Rechercher et Sélectionner
Fermé
mic6259
-
1 mai 2015 à 10:12
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 8 mai 2015 à 14:49
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 8 mai 2015 à 14:49
A voir également:
- Rechercher et Sélectionner
- Rechercher ou entrer l'adresse - Guide
- Adresse IP locale : comment la trouver facilement - Guide
- Rechercher et remplacer word - Guide
- Rechercher une chanson - Guide
- Rechercher mon téléphone - Guide
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 1/05/2015 à 11:26
Modifié par michel_m le 1/05/2015 à 11:26
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
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
1 mai 2015 à 14:07
1 mai 2015 à 14:07
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+
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
>
mic6259
2 mai 2015 à 10:10
2 mai 2015 à 10:10
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+
mic6259
>
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
4 mai 2015 à 14:21
4 mai 2015 à 14:21
Bonjour
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
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
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
1 mai 2015 à 17:41
1 mai 2015 à 17:41
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+
mic6259
Messages postés
342
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
11 décembre 2023
1
8 mai 2015 à 09:02
8 mai 2015 à 09:02
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
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
8 mai 2015 à 09:45
8 mai 2015 à 09:45
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+
mic6259
Messages postés
342
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
11 décembre 2023
1
8 mai 2015 à 11:26
8 mai 2015 à 11:26
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.
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.
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
>
mic6259
Messages postés
342
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
11 décembre 2023
8 mai 2015 à 13:17
8 mai 2015 à 13:17
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+
mic6259
Messages postés
342
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
11 décembre 2023
1
>
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
8 mai 2015 à 14:49
8 mai 2015 à 14:49
Franchement très fort, çà marche
Merci beaucoup
Bon Week-End
Merci beaucoup
Bon Week-End