recuperation d'une colonne

GHISLAIN · 1 Janvier 2012

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 · 1 Janvier 2012

Re : recuperation d'une colonne

Bonjour,

Code:

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

Où c.Parent = feuille parente de c

Peut être également:

Code:

= c.EntireRow.Cells(1, 1)

A+

GHISLAIN · 1 Janvier 2012

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 · 1 Janvier 2012

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)

Code:

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 · 1 Janvier 2012

Re : recuperation d'une colonne

re Hasco,

genial ton code , fonctionne parfaitement
bonne journee

amicalement
ghislain

recuperation d'une colonne

GHISLAIN

XLDnaute Impliqué

Pièces jointes

Guest

Guest

GHISLAIN

XLDnaute Impliqué

Guest

Guest

GHISLAIN

XLDnaute Impliqué

Discussions similaires

recuperation d'une colonne

GHISLAIN

XLDnaute Impliqué

Pièces jointes

Guest

Guest

GHISLAIN

XLDnaute Impliqué

Guest

Guest

GHISLAIN

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency