Envoyer vers une feuille suivant le choix | ||
---|---|---|
Inscription: 02/09/2008
Messages:
25
Système d'exploitation: PC & Mac Version Excel utilisée: 2007 |
Posté le : 08-02-2011 18h24
Bonjour, |
|
|
Re: Envoyer vers une feuille suivant le choix | ||
---|---|---|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 08-02-2011 23h59
Bonsoir apdf,
J'avais commencé à travailler sur ton projet car dans notre précédent échange, tu avais fini par me convaincre de ta bonne foi... Mais tu ne penses pas qu'il aurait été correct de nous informer de ton précédent post ICI ? Même s'il est resté sans réponse (pour l'instant), ton sujet sur XLD n'est pas mort pour autant et les quelques personnes qui ont téléchargé ton classeur là bas, sont peut-etre en train de plancher dessus ! J'espère au moins qu'ici comme là bas, chacun aura connaissance de l'avancée des échanges et de l'éventuelle solution au final. Si tu n'as pas eu de réponse d'ici là, alors je me pencherai à nouveau sur ta question demain si je peux. Cela dit, je te conseille d'abord de t'assurer que ton classeur ne comporte aucune donnée confidentielle (je n'en ai pas l'impression). Tu as la possibilité d'éditer ton post, supprimer le fichier et en mettre un autre le cas échéant. Cordialement, Didier_mDF
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
Re: Envoyer vers une feuille suivant le choix | ||
---|---|---|
Inscription: 02/09/2008
Messages:
25
Système d'exploitation: PC & Mac Version Excel utilisée: 2007 |
Posté le : 09-02-2011 08h23
Bonjour et merci d'avoir répondu, Je préfère attendre et avoir la réponse ici. Pour ce qui est de la demande je vais essayé de détailler un peut plus je pense que sa seras préférable. J'ouvre mon 1er USF, je double click sur un item de la listbox se qui envoie les données vers les textbox, jusque la! pas de problème. "Les quatre textbox qui nous intéresse son: Nom, adresse, CP et ville." Après je valide par le bouton "Envoies les données" qui ouvre le deuxième USF, je sélectionne le format et je valide pour envoyer les valeurs vers le format d'enveloppe choisi. En sachant qu'il peut avoir d'autre format d'enveloppe sa seras suivant la nécessité, dans cette exemple j'ai mis deux format mais il en existe beaucoup plus.Et on devrais avoir le nom,adresse, CP et ville sur le format de l'enveloppe choisie. |
|
|
Re: Envoyer vers une feuille suivant le choix | ||
---|---|---|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 09-02-2011 22h45
Bonsoir apdf,
Tu trouveras en pièce jointe ton classeur modifié (et au format .xls) selon ma façon de voir le problème... J'ai essayé d'apporter le moins de modifications possible. J'ai toutefois préféré renommer certains contrôles dans les Userforms (je te conseille vivement de prendre l'habitude de faire de même pour ajouter de la clarté dans ton code et en faciliter la maintenance ultérieure !). J'ai également opté pour les prérequis de fonctionnement suivants : - Dans le Userform1, on ne doit pas pouvoir cliquer sur le bouton "Envoie les données" tant qu'une ligne de la liste n'a pas été sélectionnée : je rends donc la propriété Enabled du bouton à False dès le l'ouverture du Userform1 (Initialize) et je surveille ensuite le contenu du TextBox1 (Change) pour activer/désactiver simplement ce bouton. - Dans le code de ce même bouton "CommandButton2", je remplace le Unload.Me par un Me.Hide : en effet, si tu décharges le Userform, tu ne peux plus accéder aux données de la ligne sélectionnée (Nom, Adresse, CP et Ville). Il te faut donc le conserver en mémoire en le masquant simplement (Hide). - Dans le code du Userform2, j'ai donc finalement complété le code du bouton "Valider" comme suit : Private Sub btnValider_Click() - Ensuite, j'ai juste allégé un peu le code de la procédure CommandButton6_Click(). C'est tout. J'espère que ça répondra à ta demande. Cordialement, Didier_mDF
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
Re: Envoyer vers une feuille suivant le choix | ||
---|---|---|
Inscription: 02/09/2008
Messages:
25
Système d'exploitation: PC & Mac Version Excel utilisée: 2007 |
Posté le : 10-02-2011 09h10
Bonjour Didier et merci beaucoup de temps passé. Déjà je vais prendre le conseil que tu ma donné pour la clarté et la faciliter de maintenance de mon code. Après ces pas exactement se que je souhaiter, je pense que j'ai du mal m'expliquer. Pour toutes les modifications de Userform1 avec le bouton "Envoie les données" tant qu'une ligne de la liste n'a pas été sélectionnée n'est actif ces super rien à dire. Pour le code de Userform2 moi se que souhaiter. Quand le Userform2 est ouvert, je voudrais pouvoir envoyer les données uniquement et sans passé par la feuille impEnveloppe ou je le souhaite en cochant la destination vers une feuille de ma listbox, sinon il n'y a aucun intérêt de passer par Userform2, du bouton "Envoie les données" on envoie les données directement sur la feuille impEnveloppe puisque la j'avais programmé pour récupérer les données sur les feuille DL ou C6.
Cordialement, Max |
|
|
Re: Envoyer vers une feuille suivant le choix | ||
---|---|---|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 11-02-2011 23h44
Bonsoir apdf, le Forum,
Pas sûr d'avoir tout compris... Je te propose toutefois de reprendre le classeur que je t'ai proposé ci-dessus et de modifier la procédure btnValider_Click() comme suit : Private Sub btnValider_Click() Cordialement, Didier_mDF
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
Re: Envoyer vers une feuille suivant le choix | ||
---|---|---|
Inscription: 02/09/2008
Messages:
25
Système d'exploitation: PC & Mac Version Excel utilisée: 2007 |
Posté le : 12-02-2011 07h18
Bonjour Didier et merci beaucoup,
Cet exactement se que je rechercher. Juste une petite modif de derniere minute quel est le code pour se rendre a la feuille active. Sheets("ListBox1.List").Select J'ai fait Sa! sa ne marche pas? Je te remercie encore et te souhaite une bonne journée. Bonne continuation Cordialement Max
Edité par apdf le 12/02/2011 10:20:01
|
|
|
Re: Envoyer vers une feuille suivant le choix | ||
---|---|---|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 12-02-2011 16h40
Bonjour apdf, le Forum,
Tout d'abord, et concernant ton essai, si tu veux qu'une commande ou instruction VBA soit interprétée correctement par le système, il ne faut en aucun cas l'entourer de guillemets (c'est là base en programmation VBA et même pour la plupart des langages de développement) : Sheets("ListBox1.List").Select .... ne peut pas fonctionner à moins d'avoir une feuille de calcul nommée textuellement "ListBox1.List", ce qui est peu probable ! Voici donc comment tu peux essayer : Il te faut d'abord supprimer la ligne : Application.ScreenUpdating = False Et comme tu avais visiblement choisi de laisser l'utilisateur cocher plusieurs éléments dans la liste, il te faut donc utiliser quelque chose comme ci-dessous pour activer la première feuille "cochée" dans la liste : Dim I As Byte Cordialement, Didier_mDF
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
Re: Envoyer vers une feuille suivant le choix | ||
---|---|---|
Inscription: 02/09/2008
Messages:
25
Système d'exploitation: PC & Mac Version Excel utilisée: 2007 |
Posté le : 12-02-2011 17h21
Bonjour Didier,
Je te remercie pour tous sa marche nickel exactement se que j'avais besoin. Bon week end à bientôt Max |
|
|