A albert Guest 31 Mars 2003 #1 bonjour à tous, bonjour forum, si je fais deux userforms, je travaille sans pb sur deux feuilles différentes, mais tous mes essais de travailler avec un seul userform (sur 2 feuilles)ont échoués... existe-t-il une solution ??? merci d'avance albert Pièces jointes COMBObox.zip 11.9 KB · Affichages: 47 COMBObox.zip 11.9 KB · Affichages: 53 COMBObox.zip 11.9 KB · Affichages: 49
bonjour à tous, bonjour forum, si je fais deux userforms, je travaille sans pb sur deux feuilles différentes, mais tous mes essais de travailler avec un seul userform (sur 2 feuilles)ont échoués... existe-t-il une solution ??? merci d'avance albert
R Ronan Quennec Guest 1 Avril 2003 #2 Je n'ai pas trop compris ton principe mais pour travailler sur 2 feuilles en même temps, il faut rajouter devant tes commandes "Sheets("feuil1") ou ("feuil2"). Voir fichier joint Pièces jointes SYNTHESE5.zip 12 KB · Affichages: 62 Vote positif 0 Vote négatif
Je n'ai pas trop compris ton principe mais pour travailler sur 2 feuilles en même temps, il faut rajouter devant tes commandes "Sheets("feuil1") ou ("feuil2"). Voir fichier joint
A albert Guest 1 Avril 2003 #3 merci Ronan, en effet, mon code donné en exemle comportait des erreurs j'ai corrigé et appliqué ton principe de commandes maintenant ça marche (bonjour à la Bretagne) Pièces jointes eureka.zip 12.8 KB · Affichages: 73 eureka.zip 12.8 KB · Affichages: 66 eureka.zip 12.8 KB · Affichages: 66 Vote positif 0 Vote négatif
merci Ronan, en effet, mon code donné en exemle comportait des erreurs j'ai corrigé et appliqué ton principe de commandes maintenant ça marche (bonjour à la Bretagne)
A albert Guest 1 Avril 2003 #4 ...ça marche mais il y a encore une erreur (s'uis pas fait pour l'info...) '88888888888888888888888888888888888 Sheets("Feuil2").Select ComboBox2.RowSource = Range("A1", Range("A1").End(xlDown)).Address End Sub remplacer par : '88888888888888888888888888888888888 Sheets("Feuil2").Select ComboBox2.RowSource = Range("A1", Range("A1").End(xlToRight)).Address End Sub Vote positif 0 Vote négatif
...ça marche mais il y a encore une erreur (s'uis pas fait pour l'info...) '88888888888888888888888888888888888 Sheets("Feuil2").Select ComboBox2.RowSource = Range("A1", Range("A1").End(xlDown)).Address End Sub remplacer par : '88888888888888888888888888888888888 Sheets("Feuil2").Select ComboBox2.RowSource = Range("A1", Range("A1").End(xlToRight)).Address End Sub