Discussion :

[boulser]

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

[laurent_ott]

Bonjour.
Je ne suis pas sûr d'avoir compris la demande, donc voici un code qui ne correspond peut-être pas à votre besoin.
A tester :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub RJNomEquipe1()
Dim i As Integer
 
If Range("B12").Value = "" Then Range("D46").End(xlUp).Offset(1, 0).Select
For i = 6 To 46
    If Range("E" & i).Value = Range("B12").Value Then Range("E" & i).Select
Next
End Sub

Bonne continuation.