FOUQUET Yves
XLDnaute Occasionnel
Bonjour,
Quelqu'un peut me dire pourquoi dans les lignes ci dessous
avec la variable "ligne1" il ne m'écrit rien dans la cellule
et avec un nombre il écrit bien "OUI" dans la cellule!
Et pourtant au débogueur il passe bien sur la ligne de code...
Je craque.
merci d'avance
Yves
Quelqu'un peut me dire pourquoi dans les lignes ci dessous
avec la variable "ligne1" il ne m'écrit rien dans la cellule
et avec un nombre il écrit bien "OUI" dans la cellule!
Et pourtant au débogueur il passe bien sur la ligne de code...
Je craque.
merci d'avance
Yves
VB:
Private Sub commandbutton2_Click()
Dim PathName As String
Dim i As Integer
Dim ligne1 As Integer
ligne1 = 1
Sheets("Effectif").Activate
Set Ws = Sheets("Effectif") '--- comparer nom et prenom ---
For j = 2 To Ws.Range("B" & Rows.Count).End(xlUp).Row
ligne1 = ligne1 + 1 ' --- saute la ligne de titre ---
nom_effectif1 = Sheets("effectif").Range("B" & j) ' récupère nom dans la liste effectif
If nom_effectif1 = UserForm9.nom Then
prenom_effectif1 = Sheets("effectif").Range("C" & j)
If prenom_effectif1 = UserForm9.prenom Then
relance = "OUI"
Range("O" & ligne1).Value = relance
' Range("O" &15).Value = relance et là ça marche!!!
Exit For
End If
End If
Next
End sub