Egalité entre une valeur d'une liste déroulante et une cellule excelRésolu

Question

Bonjour,
Je n'arrive pas &#224; v&#233;rifier une &#233;galit&#233; entre la valeur d'une liste d&#233;roulante et la valeur d'une cellule excel (v 2000).C'est surtout le corps du code qui me pose probl&#232;me. Si quelqu'un pouvait m'aider ca serait sympa :D.
Je vous remercie d'avance ;).

Le code est le suivant et la partie qui me pose probl&#232;me est en gras :

Private Sub cbx_typetvx_Change()
Dim i As Integer
i =  2
'condition si &#233;nergie gaz
If  cbx_typetvx.Value = ThisWorkbook.Worksheets("typetvx").Range("A2").Value  Then
'Boucle pour remplir les champs de la liste d&#233;roulante des diff&#233;rents types de travaux gaz
    cbx_zone.Enabled  = True
    Do While ThisWorkbook.Worksheets("zone").Range("B" & i) <> ""
    frm_choixnrj.cbx_zone.AddItem ThisWorkbook.Worksheets("zone").Range("B" & i)
    i = i + 1
    Loop
    cbx_typetvx.Enabled = False
End Sub

Eijih

mrdep1978 · Accepted Answer

Tu utilises peut-&#234;tre plusieurs colonnes dans ta combobox. Dans ce cas, il est possible que la valeur renvoy&#233;e par .Value (pas forc&#233;ment celle affich&#233;e) diff&#232;re de celle renvoy&#233;e par .Text (affichage).

Il y a une propri&#233;t&#233; BoundColumn qui d&#233;finit le num&#233;ro de la colonne d'o&#249; vient le .Value et une propri&#233;t&#233; .TextColumn pour celle du .Text.

jpleroisse · Answer

Bonsoir,

Cela fonctionne tr&#232;s bien.



Private Sub cbx_typevx_Change()

Dim i

i = 2

If cbx_typetvx.Value = Sheets("typetvx").Range("A2").Value Then

    cbx_zone.Enabled = True

    End If

Do While Sheets("zone").Range("B" & i) <> ""

cbx_zone.AddItem Sheets("zone").Range("B" & i)

i = i + 1

Loop

cbx_typevx.Enabled = False

End Sub



jpleroisse

Eijih · Answer

Re bonjour,
J'ai juste chang&#233; le .Value en .Text et ca marche.
Merci beaucoup pour l'aide ;).

Private Sub cbx_typetvx_Change()
Dim i As Integer
i =  2
'condition si &#233;nergie gaz
If  cbx_typetvx.Text = ThisWorkbook.Worksheets("typetvx").Range("A2").Value  Then
'Boucle pour remplir les champs de la liste d&#233;roulante des diff&#233;rents types de travaux gaz
    cbx_zone.Enabled  = True
    Do While ThisWorkbook.Worksheets("zone").Range("B" & i) <> ""
    frm_choixnrj.cbx_zone.AddItem ThisWorkbook.Worksheets("zone").Range("B" & i)
    i = i + 1
    Loop
    cbx_typetvx.Enabled = False
End Sub

Eijih

Egalité entre une valeur d'une liste déroulante et une cellule excel

3 réponses

Discussions similaires