Sélection d'une cellule dans code vba

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:

---

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

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:

---

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

---

en attendant :

Code:

---

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

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

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:

---

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

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:

---

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

---

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

Bonjour,

Malheureusement, cela ne fonctionne pas.
Lorsque la cellule B12 est vide, je n'arrive plus à la sélectionner.
Effectivement c'est contrecarré par la condition suivante dans code.
Le problème c'est que si vous ne changez pas la valeur de la cellule B12, Excel ne détecte pas de changement dans la feuille, alors au-lieu de passer par "Worksheet_change", il faut mieux passer par "Worksheet_BeforeDoubleClick", et vous n'aurez plus ce problème, et au lieu de valider avec la touche "ENTREE", vous ferez un double-clic sur la cellule B12.

Code:

---

1 2 3 4 5

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("B12")) Is Nothing Then Call RJNomEquipe1 End If End Sub

---

Cdlt

Grand merci cela fonctionne bien