Rechercher et Sélectionner
mic6259
-
mic6259 Messages postés 371 Statut Membre -
mic6259 Messages postés 371 Statut Membre -
Bonjour,
J'ai enregistré un classeur avec 2 feuils
Est-il possible après avoir cliquer sur Rechercher et Sélectionner dans la 1er feuille de retrouver après fermeture les fonctions mis dans Rechercher et Sélectionner,sous forme de macro dans module1
Merci a vous
J'ai enregistré un classeur avec 2 feuils
Est-il possible après avoir cliquer sur Rechercher et Sélectionner dans la 1er feuille de retrouver après fermeture les fonctions mis dans Rechercher et Sélectionner,sous forme de macro dans module1
Merci a vous
4 réponses
-
Bonjour,
Incompréhensible...
Dis toi bien que nous ne disposons que de ce que tu as écris pour essayer de t'aider
au besoin:
Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci du lien proposé dans le message de réponse
En précisant EXACTEMENT ce que tu as et ce que tu voudrais
Michel -
Bonjour mic6259,
bonjour michel_m,
Pour visualiser l'instruction utilisée par la fonctionnalité "Rechercher", tu peux utiliser l'enregistreur de macro.
Tu dois obtenir un code dans le module 1 qui sera du type :Sub Macro1()
'
' Macro1 Macro
'
'
Cells.Find(What:="<Texte_recherché>", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= False, SearchFormat:=False).Activate
End Sub
A+-
-
Bonjour
Votre macro fonctionne, mais j'ai une erreur et me renvoie sur débogage.
Par contre je n'ai pas la fonction Options qui est importante pour moi, car après fermeture je doit refaire les réglages
Merci encore- Bonjour,
Si une erreur apparait, je ne dirais pas que la macro fonctionne.
Il faudrait que tu indiques clairement ce que tu cherches à faire.
Tu peux joindre un fichier exemple en utilisant https://www.cjoint.com/
A+
-
-
Bien sûr, c'est à cela que sert la fonctionnalité "Rechercher" (Edition > Rechercher et Sélectionner).
Il faut toutefois que tu adaptes ta recherche avec les options proposées.
A+-
Bonjour Gyrus
Voila le fichier
Je doit rechercher dans la feuille Jeu un n° qui ce trouve dans la feuille Gagnant dans les colonnes A Q et AG.
Dans la macro il y a ceci:
If Target.Value = "" Then Exit Sub
Sheets("Gagnant").Select
Sheets("Gagnant").Range("A" & Val(Target.Value) * 4).Select
End Sub
Quan je rajoute en dessous ceci:
Sheets("Gagnant").Range("Q" & Val(Target.Value) * 4 -600).Select
La çà fonctionne, mais quand je rajoute ceci
Sheets("Gagnant").Range("AG" & Val(Target.Value) * 4 -1200).Select
La çà ne va plus.
Et-il possible soit de modifier la macro ou de trouver une formule dans la feuille Jeu ou de faire une nouvelle macro pour que je puisse lancer la recherche depuis la feuille Jeu
Merci a vous et bon Week-End
https://www.cjoint.com/c/EEijhHTUkW9
-
-
Bonjour,
Il faudrait que tu sois un peu plus précis.
Dans la feuille "Jeu", où se trouve le numéro qui doit être recherché dans la feuille "Gagnant" ?
A+-
Oui
dans R2 tu inscrit par exemple 102 puis entrée et avec le pointeur tu clic dessus et normalement tu est redirigé vers Gagnant et le n° 102.
Mais comme dans la macro une fois mis Range("AG"............), c'est là que çà bloque.- Essaie avec :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Ligne As Integer, Colonne As Integer
If Target.Column < 16 Or Target.Column > 181 Then Exit Sub
If Target.Value = "" Then Exit Sub
Ligne = ((Target - 1) Mod 150) * 4 + 2
Colonne = Int((Target - 1) / 150) * 16 + 1
Sheets("Gagnant").Select
Sheets("Gagnant").Cells(Ligne, Colonne).Select
End Sub
A+
-
