Twitter iPhone pliant OnePlus 12 PS5 Disney+ Orange Livebox Windows 11 ChatGPT

Ligne active dans une boucle for each

2 réponses
Avatar
JP
Bonjour,

J'ai ce code:

Dim sp As object
'
For Each sp In Sheets("BD_PFMP").Range("B9:AH" & nb)
If CB_Prof.Value =3D sp.Value Then
TextBox2 =3D ActiveCell.Offset(, 1).Value
End If
Next sp

quand l'=E9galit=E9 CB_Prof.value =3D sp.value existe, je voudrais r=E9cup=
=E9rer le n=B0 de ligne pour affecter la valeur de la cellule d'=E0 cot=E9=
=E0 TextBox2.

(CB_Prof est un combobox)

Merci d'avance

JP

2 réponses

Avatar
DanielCo
Bonjour,
TextBox2 = sp.Offset(, 1).Value
Cordialement.
Daniel

Bonjour,

J'ai ce code:

Dim sp As object
'
For Each sp In Sheets("BD_PFMP").Range("B9:AH" & nb)
If CB_Prof.Value = sp.Value Then
TextBox2 = ActiveCell.Offset(, 1).Value
End If
Next sp

quand l'égalité CB_Prof.value = sp.value existe, je voudrais récupérer le n°
de ligne pour affecter la valeur de la cellule d'à coté à TextBox2.

(CB_Prof est un combobox)

Merci d'avance

JP
Avatar
JP
Merci Daniel.
JP