Déplacement cellule feuil1 vers cellule Feuil2 Résolu

Question

Bonjour, 

Dans mon fichier j'ai deux feuilles.

Je me positionne sur la cellule A1 de la feuille1 contenant le texte Valeur1.
Je dois me déplacer dans la feuille 2 Aire A3:K3 sur la cellule contenant le même texte
Valeur 1.

Le texte Valeur 1 est automatiquement dans une des cellules de l'aire A3:K3 de la feuille 2.

Malgrés des essais de codes avec Find, je n'arrive pas à trouver le bon code.

Je vous remercie d'avance de votre aide éventuelle.

pijaku · Answer

Bonjour,

Essayez ceci après avoir adapté ce qui doit l'être :

Sub VazY()
Dim maVal As String 'A ADAPTER
Dim maCell As Range

With Sheets("Feuil1") 'A ADAPTER
  maVal = .Range("A1").Value
End With
With Sheets("Feuil2") ' A ADAPTER
  .Select
  Set maCell = .Range("A3:K3").Cells.Find(maVal)
  If Not maCell Is Nothing Then
    maCell.Select
  Else
    MsgBox "Pas trouvé"
  End If
End With
End Sub 

EDIT : si cela ne fonctionne pas, vérifiez l'adresse du Range ou vous cherchez... La valeur est peut être située en dehors de la ligne 3 : A3:K3...
 
Cordialement, 
Franck

varin · Answer

Cela fonctionne parfaitement.

Merci beaucoup.

Déplacement cellule feuil1 vers cellule Feuil2

2 réponses

Discussions similaires

Newsletters