Bonjour à tous
Je cherche à ajouter une partie de code pour sélectionner la cellule B12 si le nom contenu dans la cellule n'est pas trouvé dans la plage E6 à E46. Si le texte est trouvé tout se passe bien.
Merci pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub RJNomEquipe1()
Dim i As Integer
For i = 6 To 46 Step 1
    If Range("E" & i).Value = Range("B12").Value Then Range("E" & i).Select Else
    If Range("B12").Value = "" Then Range("D46").End(xlUp).Offset(1, 0).Select Else
    Next
End Sub