Discussion :

[boulser]

Bonjour à tous,

J'ai déjà ouvert cette discussion mais je ne sais pourquoi, je ne la retrouve plus.

Dans un fichier, j'ai une cellule B12 qui renvoie un texte rechercher dans une plage E6:E46.
Si mon code vba ne trouve pas de correspondance, je voudrais que la cellule B12 soit à nouveau sélectionnée. Je ne trouve pas ce qu'il me faut rajouter.
Voici mon code :

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

Merci de bien vouloir m'aider.
Boulser

[ARTURO83]

Bonjour,

Je ne vois pas trop le rapport entre ce que vous demandez et le code fourni. d'une part:
je voudrais que la cellule B12 soit à nouveau sélectionnée

et d'autre part:

Code :

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

If Range("B12").Value = "" Then Range("D46").End(xlUp).Offset(1, 0).Select Else

en attendant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub RJNomEquipe1()
    Dim i As Integer
    If Range("B12").Value = "" Then
        Range("B12").Select
        Exit Sub
    Else
        With ActiveSheet.Range("E6:E46")
            Set x = .Find(Range("B12").Value, lookat:=xlWhole)
            If Not x Is Nothing Then Cells(x.Row, "E").Select
        End With
    End If
End Sub

Cdlt

[boulser]

Merci pour ta réponse.
Si la cellule B12 est vide, la première cellule vide de la plage est sélectionnée.
Si la cellule B12 contient un texte, et qu'il le trouve dans la plage, la cellule contenant ce texte est donc sélectionnée.
Si le code ne trouve pas le texte mentionné en B12 dans la plage, la cellule suivante non protégée est donc sélectionnée ce qui se trouve loin dans ma feuille et m'oblige à revenir en arrière.
Je voulais donc que ce soit la cellule B12 qui soit sélectionnée.
Je vais essayer par ton code
Merci encore

[boulser]

Bonjour Arturo83

Merci pour ton code cela fonctionne bien, mais n'arrange pas tout à fait mon problème.

J'ai comme code dans la feuille:

Code :

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

1
2
3
4
5
Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("B12")) Is Nothing Then
        Call RJNomEquipe1
    End If
End Sub

Cela déclenche la macro sur la commande de ma touche Entrée.
Le problème est que si je n'ai pas changé de donnée dans ma cellule B12, la commande de la touche Entrée ne déclenche pas la macro mais passe à la cellule non protégée suivante qui est B56 dans mon cas. Je voudrais que la macro soit quand même lancée ou relancée.
En fait, je n'avais pas compris tout de suite mon problème.
Merci

[ARTURO83]

Cela déclenche la macro sur la commande de ma touche Entrée, Oui, mais aussi lors de la saisie d'une valeur dans la cellule B12


Ajoutez celle-ci, elle surveillera en plus le changement de cellule

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("B12")) Is Nothing Then
        Call RJNomEquipe1
    End If
End Sub

[boulser]

Malheureusement, cela ne fonctionne pas.
Lorsque la cellule B12 est vide, je n'arrive plus à la sélectionner.