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.
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
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
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.
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.