Déplacement cellule feuil1 vers cellule Feuil2
Résolu
varin
-
varin -
varin -
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.
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.
A voir également:
- Déplacement cellule feuil1 vers cellule Feuil2
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule choix multiple - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
Bonjour,
Essayez ceci après avoir adapté ce qui doit l'être :
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
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
