recuperation d'une colonne

[GHISLAIN]

bonjour bonne annee 2012 a tous,

voila je recupere suivant ma selection dans un combo la colonne de ma feuille "essaicalendrier"
dans des textbox

face a chaque textbox se trouve un label
je voudrai que ces labels s'alimentent toujours avec la colonne A de la feuille "essaiCalendrier"
meme si je change la valeur de mon combo

pour alimenter mes textbox automatiquement j'utilise ce code

For I = 1 To 100
Me.Controls("TEXTBOX" & I).Enabled = False
Me.Controls("textbox" & (I)).Value = c.Offset(-1, 0)(I + 4, 1).Value
Next I

pour alimenter mes labels


Dim x As Variant
For x = 1 To 100
Me.Controls("label" & (x)).Caption = c.Offset(-1, 0)(x + 3, 0).Value
Next x


je dois modifier cette ligne Me.Controls("label" & (x)).Caption = c.Offset(-1, 0)(x + 3, 0).Value

pour que ce soit toujours ma colonne A qui soit prise en compte mais je n'y parviens pas

merci a tous de votre aide

amicalement

ghislain

 

[Guest]

Re : recuperation d'une colonne

Bonjour,

Me.Controls("label" & (x)).Caption = c.Parent.Cells(c.Row, 1)

Où c.Parent = feuille parente de c

Peut être également:

= c.EntireRow.Cells(1, 1)

A+

 

[GHISLAIN]

Re : recuperation d'une colonne

bonjour Hasco,

je viens de tester ta proposition mais ça ne fonctionne pas

mes labels comporte que des 0 et pas les valeurs des la colonne A


merci de ton aide

amicalement

ghislain

 

[Guest]

Re : recuperation d'une colonne

Re,

Oui, un peu fouilli tout ça.

Vois si cela convient. Je ne comprends pas ce que vient faire le c.offset(-1,0)
De plus il faudrait limiter le .Find à la plage de cellules de l'entête et non à toutes les cellules de la feuille (.Cells)

Private Sub ComboBox2_Change()
    TextBox101 = "100"
    Set c = Sheets("essaiCalendrier").Cells.Find(What:=ComboBox2)
    If Not c Is Nothing Then
        TextBox101.Value = c.Offset(-1, 0)
        'Afficher les labels et textbox
        For I = 1 To 50
            With Controls("textbox" & I)
                .Enabled = False
                .Text = c(I + 2, 1).Value
                .Visible = True
            End With
            With Controls("label" & I)
                .Caption = c.EntireRow.Cells(I + 2, 1).Value
                .Visible = True
                .BackColor = &H8000000D
            End With
        Next
    Else
       'c n'est pas trouvé, cacher les textbox et labels
        For I = 1 To 50
            With Controls("textbox" & I)
                .Enabled = False
                .Text = ""
                .Visible = False
            End With
            Controls("label" & I).Visible = False
        Next
    End If
End Sub

A+

 

[GHISLAIN]

Re : recuperation d'une colonne

re Hasco,

genial ton code , fonctionne parfaitement
bonne journee

amicalement
ghislain