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
A voir également:
- Rechercher et Sélectionner
- Rechercher ou entrer l'adresse - Guide
- Rechercher et remplacer word - Guide
- Rechercher image - Guide
- Rechercher une chanson - Guide
- Adresse IP locale : comment la trouver facilement - Guide
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
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 :
A+
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,
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+
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+
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
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+
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+
Essaie avec :
A+
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+
