Rechercher et Sélectionner

mic6259 -

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

Afficher la suite

4 réponses

Réponse 1 / 4
michel_m Contributeur
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

0
Réponse 2 / 4
Gyrus
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+
0
1. mic6259
  
  Bonjour et merci d'avoir répondu assez vite
  Je vais essayer mais est-ce que je peut faire une recherche dans une cellule de la feuille 1 que trouve dans a feuille 2 sans modifier la macro?
  
  0
2. mic6259
  
  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
  
  0
3. Gyrus
  
  @mic6259Bonjour,
  
  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+
  
  0
4. mic6259
  
  @GyrusBonjour
  Pour l'instant je ne peut vous envoyer un fichier joint car je suis en plein transfert de réseau dans une autre maison .
  Je pense e faire d ici une dizaine de jours
  A bientôt et merci encore
  
  0
Réponse 3 / 4
Gyrus
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+

0
1. mic6259
  
  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
  
  0
Réponse 4 / 4
Gyrus
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+

0
1. mic6259
  
  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.
  
  0
2. Gyrus
  
  @mic6259Essaie 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+
  
  0
3. mic6259
  
  @GyrusFranchement très fort, çà marche
  Merci beaucoup
  Bon Week-End
  
  0

Rechercher et Sélectionner

4 réponses

Discussions similaires

Newsletters