erreur dans macro de récuperation de valeur

[creolia]

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.

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]

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

 

[creolia]

Re : erreur dans macro de récuperation de valeur

Bonjour Vmax01 ta solution à résolu mon probleme merci beaucoup à toi a bientot

 

[Dull]

Re : erreur dans macro de récuperation de valeur

Salut creolia, vbmax01, le Forum

Peut-être comme cela

'...
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

 

[creolia]

Re : erreur dans macro de récuperation de valeur

Bonjour Dull et merci beaucoup sa fonctionne parfaitement à trés bientot bonne fête