erreur dans macro de récuperation de valeur

creolia · 26 Décembre 2011

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 · 26 Décembre 2011

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 · 26 Décembre 2011

Re : erreur dans macro de récuperation de valeur

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

Dull · 26 Décembre 2011

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

creolia · 28 Décembre 2011

Re : erreur dans macro de récuperation de valeur

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

erreur dans macro de récuperation de valeur

creolia

XLDnaute Impliqué

vmax01

XLDnaute Occasionnel

creolia

XLDnaute Impliqué

Dull

XLDnaute Barbatruc

creolia

XLDnaute Impliqué

Discussions similaires

erreur dans macro de récuperation de valeur

creolia

XLDnaute Impliqué

vmax01

XLDnaute Occasionnel

creolia

XLDnaute Impliqué

Dull

XLDnaute Barbatruc

creolia

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency