Bonjour le forum,
Dans le code suivant :
For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
If CStr(cell) = Me.ComboBox1.Value Then
k = cell.Offset(1, 1).Row
If ActiveCell.Value = TextBox23.Text Then
Ligne = k
Else
If ActiveCell.Value = "" Then
Ligne = k
End If
End If
Next
lorsque la valeur en "B" = le textbox23 alors le code continu, le contenu de la cellule est différente, il faut descendre d'une cellule ("B3" à "B4", ...), si la cellule est vide alors inscrire la valeur du textobx23.
Cette partie du code ne fonctionne pas et je ne sais pas comment le corriger.
À l'aide
Merci
Dans le code suivant :
For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
If CStr(cell) = Me.ComboBox1.Value Then
k = cell.Offset(1, 1).Row
If ActiveCell.Value = TextBox23.Text Then
Ligne = k
Else
If ActiveCell.Value = "" Then
Ligne = k
End If
End If
Next
lorsque la valeur en "B" = le textbox23 alors le code continu, le contenu de la cellule est différente, il faut descendre d'une cellule ("B3" à "B4", ...), si la cellule est vide alors inscrire la valeur du textobx23.
Cette partie du code ne fonctionne pas et je ne sais pas comment le corriger.
À l'aide
Merci