C creolia XLDnaute Impliqué 26 Décembre 2011 #1 Bonjour à tous j'ai 3 cellule qui comporte des entêtes Nom Prenom Age respectivement A1 B1 C1 j'ai voulu creer une macro qui me récupere ses entête et me les mettes dans 3 label nommer Label1 Label2 Label3 j'ai pensé faire comme ceci. Code: With UserForm1 For d = 1 To 3 Me.Controls("Label" & d).Caption = Sheets("Gestion_pret").Range(3, d) Next d End With et la j'ai un soucis il me fais un beug semblerais t'il le probleme vienne de cette syntax Sheets("Gestion_pret").Range(1, d)End With[/CODE] pouvez vous m'aider svp merci
Bonjour à tous j'ai 3 cellule qui comporte des entêtes Nom Prenom Age respectivement A1 B1 C1 j'ai voulu creer une macro qui me récupere ses entête et me les mettes dans 3 label nommer Label1 Label2 Label3 j'ai pensé faire comme ceci. Code: With UserForm1 For d = 1 To 3 Me.Controls("Label" & d).Caption = Sheets("Gestion_pret").Range(3, d) Next d End With et la j'ai un soucis il me fais un beug semblerais t'il le probleme vienne de cette syntax Sheets("Gestion_pret").Range(1, d)End With[/CODE] pouvez vous m'aider svp merci
vmax01 XLDnaute Occasionnel 26 Décembre 2011 #2 Re : erreur dans macro de récuperation de valeur bonjour creolia. un petit fichier serai le bienvenu.... ramplace .range(3,d) par .Cells(3, d) bonne journée Vote positif 0 Vote négatif
Re : erreur dans macro de récuperation de valeur bonjour creolia. un petit fichier serai le bienvenu.... ramplace .range(3,d) par .Cells(3, d) bonne journée
C creolia XLDnaute Impliqué 26 Décembre 2011 #3 Re : erreur dans macro de récuperation de valeur Bonjour Vmax01 ta solution à résolu mon probleme merci beaucoup à toi a bientot Vote positif 0 Vote négatif
Re : erreur dans macro de récuperation de valeur Bonjour Vmax01 ta solution à résolu mon probleme merci beaucoup à toi a bientot
Dull XLDnaute Barbatruc 26 Décembre 2011 #4 Re : erreur dans macro de récuperation de valeur Salut creolia, vbmax01, le Forum Peut-être comme cela Code: '... Dim d As Byte With Me For d = 1 To 3 .Controls("Label" & d).Caption = Sheets("Gestion_pret").Cells(1, d) Next d End With '... Bonne Journée Vote positif 0 Vote négatif
Re : erreur dans macro de récuperation de valeur Salut creolia, vbmax01, le Forum Peut-être comme cela Code: '... Dim d As Byte With Me For d = 1 To 3 .Controls("Label" & d).Caption = Sheets("Gestion_pret").Cells(1, d) Next d End With '... Bonne Journée
C creolia XLDnaute Impliqué 28 Décembre 2011 #5 Re : erreur dans macro de récuperation de valeur Bonjour Dull et merci beaucoup sa fonctionne parfaitement à trés bientot bonne fête Vote positif 0 Vote négatif
Re : erreur dans macro de récuperation de valeur Bonjour Dull et merci beaucoup sa fonctionne parfaitement à trés bientot bonne fête