J'ai une colonne G contenant diff=E9rentes valeurs.
Je voudrais que lorsque je rentre une valeur dans un=20
textbox1, le label m'indique =E0 quelle ligne cela=20
correspondt. Mais l=E0 ou cela se complique, c'est que ma=20
valeur du textbox1 peut correspondre =E0 la somme de=20
plusieurs lignes et je souhaiterais que le label me=20
l'indique =E9galement.
Comment faire ?
Je ne sais pas du tout par ou commencer...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Papyty
Salut @ Tous, Cat a écrit:
J'ai une colonne G contenant différentes valeurs.
Je voudrais que lorsque je rentre une valeur dans un textbox1, le label m'indique à quelle ligne cela correspondt.
Une idée de pour commencer Un TextBox1 et Un Label1, les deux de la boite à outils controle G contenant différentes valeurs Conditions: ne renvoi que la premiere valeur trouvé dans G (si plusieur préciser ce qu'il faut faire!!!)
A affecté au TextBox1:
Private Sub TextBox1_Change() Dim Zone As Range, Cel Set Zone = Range("G1:G" & Range("G65536").End(xlUp).Row) For Each Cel In Zone If Cel Like TextBox1 Then If Mid(Trim(Cel.FormulaLocal), 1, 1) = "=" Then Label1.Caption = "La formule est:" & Chr(10) & Cel.FormulaLocal Exit Sub Else Label1.Caption = "La ligne est:" & Chr(10) & Cel.Row Exit Sub End If End If Next Cel Label1.Caption = TextBox1 & " non trouvé" Set Zone = Nothing End Sub
-- @+ Thierry
Salut @ Tous,
Cat a écrit:
J'ai une colonne G contenant différentes valeurs.
Je voudrais que lorsque je rentre une valeur dans un
textbox1, le label m'indique à quelle ligne cela
correspondt.
Une idée de pour commencer
Un TextBox1 et Un Label1, les deux de la boite à outils controle
G contenant différentes valeurs
Conditions: ne renvoi que la premiere valeur trouvé dans G (si plusieur
préciser ce qu'il faut faire!!!)
A affecté au TextBox1:
Private Sub TextBox1_Change()
Dim Zone As Range, Cel
Set Zone = Range("G1:G" & Range("G65536").End(xlUp).Row)
For Each Cel In Zone
If Cel Like TextBox1 Then
If Mid(Trim(Cel.FormulaLocal), 1, 1) = "=" Then
Label1.Caption = "La formule est:" & Chr(10) & Cel.FormulaLocal
Exit Sub
Else
Label1.Caption = "La ligne est:" & Chr(10) & Cel.Row
Exit Sub
End If
End If
Next Cel
Label1.Caption = TextBox1 & " non trouvé"
Set Zone = Nothing
End Sub
Je voudrais que lorsque je rentre une valeur dans un textbox1, le label m'indique à quelle ligne cela correspondt.
Une idée de pour commencer Un TextBox1 et Un Label1, les deux de la boite à outils controle G contenant différentes valeurs Conditions: ne renvoi que la premiere valeur trouvé dans G (si plusieur préciser ce qu'il faut faire!!!)
A affecté au TextBox1:
Private Sub TextBox1_Change() Dim Zone As Range, Cel Set Zone = Range("G1:G" & Range("G65536").End(xlUp).Row) For Each Cel In Zone If Cel Like TextBox1 Then If Mid(Trim(Cel.FormulaLocal), 1, 1) = "=" Then Label1.Caption = "La formule est:" & Chr(10) & Cel.FormulaLocal Exit Sub Else Label1.Caption = "La ligne est:" & Chr(10) & Cel.Row Exit Sub End If End If Next Cel Label1.Caption = TextBox1 & " non trouvé" Set Zone = Nothing End Sub
