Déplacement cellule feuil1 vers cellule Feuil2

Résolu/Fermé
varin - 1 avril 2014 à 15:24
 varin - 1 avril 2014 à 17:05
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.

2 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
Modifié par pijaku le 1/04/2014 à 15:31
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
0
Cela fonctionne parfaitement.

Merci beaucoup.
0