Tj pas trouver cette petite macro qui me faciliterait=20
bien la vie ...
Comment =E0 partir d'une valeur dans une Feuil1 la=20
retrouver et me positionner dessu dans une Feuil2
Si une ame charitable peu m'aider Merci beaucoup
HB
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ellimac
Bonjour,
En partant de la feuille 1 :
Sub toto() a = ActiveCell.Value Sheets(2).Select Cells.Find(a, LookIn:=xlValues).Activate End Sub
Camille
-----Message d'origine----- Tj pas trouver cette petite macro qui me faciliterait bien la vie ... Comment à partir d'une valeur dans une Feuil1 la retrouver et me positionner dessu dans une Feuil2 Si une ame charitable peu m'aider Merci beaucoup HB .
Bonjour,
En partant de la feuille 1 :
Sub toto()
a = ActiveCell.Value
Sheets(2).Select
Cells.Find(a, LookIn:=xlValues).Activate
End Sub
Camille
-----Message d'origine-----
Tj pas trouver cette petite macro qui me faciliterait
bien la vie ...
Comment à partir d'une valeur dans une Feuil1 la
retrouver et me positionner dessu dans une Feuil2
Si une ame charitable peu m'aider Merci beaucoup
HB
.
Sub toto() a = ActiveCell.Value Sheets(2).Select Cells.Find(a, LookIn:=xlValues).Activate End Sub
Camille
-----Message d'origine----- Tj pas trouver cette petite macro qui me faciliterait bien la vie ... Comment à partir d'une valeur dans une Feuil1 la retrouver et me positionner dessu dans une Feuil2 Si une ame charitable peu m'aider Merci beaucoup HB .
JS
Pas très précis dans ta demande.
Tu cherche une valeur A dans la feuille1 qui est une valeur unique que du retrouverais dans la feuille2 et du aimerais te positionner sur la cellule qui la contient, également valeur unique ? J'ai bien compris ? A+
-----Message d'origine----- Tj pas trouver cette petite macro qui me faciliterait bien la vie ... Comment à partir d'une valeur dans une Feuil1 la retrouver et me positionner dessu dans une Feuil2 Si une ame charitable peu m'aider Merci beaucoup HB .
Pas très précis dans ta demande.
Tu cherche une valeur A dans la feuille1 qui est une valeur
unique que du retrouverais dans la feuille2 et du
aimerais te positionner sur la cellule qui la contient,
également valeur unique ?
J'ai bien compris ?
A+
-----Message d'origine-----
Tj pas trouver cette petite macro qui me faciliterait
bien la vie ...
Comment à partir d'une valeur dans une Feuil1 la
retrouver et me positionner dessu dans une Feuil2
Si une ame charitable peu m'aider Merci beaucoup
HB
.
Tu cherche une valeur A dans la feuille1 qui est une valeur unique que du retrouverais dans la feuille2 et du aimerais te positionner sur la cellule qui la contient, également valeur unique ? J'ai bien compris ? A+
-----Message d'origine----- Tj pas trouver cette petite macro qui me faciliterait bien la vie ... Comment à partir d'une valeur dans une Feuil1 la retrouver et me positionner dessu dans une Feuil2 Si une ame charitable peu m'aider Merci beaucoup HB .
Michel Gaboly
Bonjour,
A moins d'être sûr que la valeur existe aussi dans la seconde feuille, il vaut mieux prévoir un test, sous peine d'une erreur 91 (variable objet ou variable de bloc With non définie.) si la recherche n'aboutit pas.
Sub toto() Dim Ref As String, c As Range Ref = ActiveCell Sheets(2).Activate Set c = Cells.Find(Ref, , xlValues) If Not c Is Nothing Then c.Select Else MsgBox "Pas de correspondance." End If End Sub
Bonjour,
En partant de la feuille 1 :
Sub toto() a = ActiveCell.Value Sheets(2).Select Cells.Find(a, LookIn:=xlValues).Activate End Sub
Camille
-----Message d'origine----- Tj pas trouver cette petite macro qui me faciliterait bien la vie ... Comment à partir d'une valeur dans une Feuil1 la retrouver et me positionner dessu dans une Feuil2 Si une ame charitable peu m'aider Merci beaucoup HB .
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Bonjour,
A moins d'être sûr que la valeur existe aussi dans la seconde feuille,
il vaut mieux prévoir un test, sous peine d'une erreur 91 (variable
objet ou variable de bloc With non définie.) si la recherche n'aboutit
pas.
Sub toto()
Dim Ref As String, c As Range
Ref = ActiveCell
Sheets(2).Activate
Set c = Cells.Find(Ref, , xlValues)
If Not c Is Nothing Then
c.Select
Else
MsgBox "Pas de correspondance."
End If
End Sub
Bonjour,
En partant de la feuille 1 :
Sub toto()
a = ActiveCell.Value
Sheets(2).Select
Cells.Find(a, LookIn:=xlValues).Activate
End Sub
Camille
-----Message d'origine-----
Tj pas trouver cette petite macro qui me faciliterait
bien la vie ...
Comment à partir d'une valeur dans une Feuil1 la
retrouver et me positionner dessu dans une Feuil2
Si une ame charitable peu m'aider Merci beaucoup
HB
.
A moins d'être sûr que la valeur existe aussi dans la seconde feuille, il vaut mieux prévoir un test, sous peine d'une erreur 91 (variable objet ou variable de bloc With non définie.) si la recherche n'aboutit pas.
Sub toto() Dim Ref As String, c As Range Ref = ActiveCell Sheets(2).Activate Set c = Cells.Find(Ref, , xlValues) If Not c Is Nothing Then c.Select Else MsgBox "Pas de correspondance." End If End Sub
Bonjour,
En partant de la feuille 1 :
Sub toto() a = ActiveCell.Value Sheets(2).Select Cells.Find(a, LookIn:=xlValues).Activate End Sub
Camille
-----Message d'origine----- Tj pas trouver cette petite macro qui me faciliterait bien la vie ... Comment à partir d'une valeur dans une Feuil1 la retrouver et me positionner dessu dans une Feuil2 Si une ame charitable peu m'aider Merci beaucoup HB .
-- Cordialement,
Michel Gaboly http://www.gaboly.com
merci pour la solution je teste et vous tient au courant
-----Message d'origine----- Bonjour,
A moins d'être sûr que la valeur existe aussi dans la seconde feuille,
il vaut mieux prévoir un test, sous peine d'une erreur 91 (variable
objet ou variable de bloc With non définie.) si la recherche n'aboutit
pas.
Sub toto() Dim Ref As String, c As Range Ref = ActiveCell Sheets(2).Activate Set c = Cells.Find(Ref, , xlValues) If Not c Is Nothing Then c.Select Else MsgBox "Pas de correspondance." End If End Sub
Bonjour,
En partant de la feuille 1 :
Sub toto() a = ActiveCell.Value Sheets(2).Select Cells.Find(a, LookIn:=xlValues).Activate End Sub
Camille
-----Message d'origine----- Tj pas trouver cette petite macro qui me faciliterait bien la vie ... Comment à partir d'une valeur dans une Feuil1 la retrouver et me positionner dessu dans une Feuil2 Si une ame charitable peu m'aider Merci beaucoup HB .
-- Cordialement,
Michel Gaboly http://www.gaboly.com
.
merci pour la solution je teste et vous tient au courant
-----Message d'origine-----
Bonjour,
A moins d'être sûr que la valeur existe aussi dans la
seconde feuille,
il vaut mieux prévoir un test, sous peine d'une erreur
91 (variable
objet ou variable de bloc With non définie.) si la
recherche n'aboutit
pas.
Sub toto()
Dim Ref As String, c As Range
Ref = ActiveCell
Sheets(2).Activate
Set c = Cells.Find(Ref, , xlValues)
If Not c Is Nothing Then
c.Select
Else
MsgBox "Pas de correspondance."
End If
End Sub
Bonjour,
En partant de la feuille 1 :
Sub toto()
a = ActiveCell.Value
Sheets(2).Select
Cells.Find(a, LookIn:=xlValues).Activate
End Sub
Camille
-----Message d'origine-----
Tj pas trouver cette petite macro qui me faciliterait
bien la vie ...
Comment à partir d'une valeur dans une Feuil1 la
retrouver et me positionner dessu dans une Feuil2
Si une ame charitable peu m'aider Merci beaucoup
HB
.
merci pour la solution je teste et vous tient au courant
-----Message d'origine----- Bonjour,
A moins d'être sûr que la valeur existe aussi dans la seconde feuille,
il vaut mieux prévoir un test, sous peine d'une erreur 91 (variable
objet ou variable de bloc With non définie.) si la recherche n'aboutit
pas.
Sub toto() Dim Ref As String, c As Range Ref = ActiveCell Sheets(2).Activate Set c = Cells.Find(Ref, , xlValues) If Not c Is Nothing Then c.Select Else MsgBox "Pas de correspondance." End If End Sub
Bonjour,
En partant de la feuille 1 :
Sub toto() a = ActiveCell.Value Sheets(2).Select Cells.Find(a, LookIn:=xlValues).Activate End Sub
Camille
-----Message d'origine----- Tj pas trouver cette petite macro qui me faciliterait bien la vie ... Comment à partir d'une valeur dans une Feuil1 la retrouver et me positionner dessu dans une Feuil2 Si une ame charitable peu m'aider Merci beaucoup HB .
