Ligne active dans une boucle for each

Le
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 = 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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #25549662
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
JP
Le #25549702
Merci Daniel.
JP
Publicité
Poster une réponse
Anonyme