Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres Chercher une cellule dans une autre feuille

A

alain.pierrephie

XLDnaute Occasionnel
Bonjour à tout le forum
Je cale sur un truc qui me semblait simple mais voilà des heures que je tourne en rond, si qqun pouvait m'aider ça serait super.
J'explique mon problème:
Je suis dans l'onglet feuille 1 en A2 qui me marque par exemple "5" comme le cas dans ma pièce jointe
Ce que j'aimerai c'est que si je demande par le biais d'une macro d'aller chercher ce chiffre, mon curseur se place dans la feuille 2 et se retrouve automatiquement sur la cellule "B6 " qui correspond au critère "5" si par exemple je voulais modifier quelque chose dans cette cellule.
Bien sûr ceci n'est qu'un exemple car ma colonne en feuille 2 peut contenir plusieurs centaines d'animaux et j'aimerai que cela se fasse instantanément grâce a une macro.
Merci à ceux qui pourront m'aider
Alain

nb: je suis sur excel 2007
 

Pièces jointes

  • Va chercher la cellule correspondante.xlsm
    9.9 KB · Affichages: 18
Trier par date Trier par votes

Dranreb

XLDnaute Barbatruc
Bonsoir.
Avec votre exemple où il n'y que des numéros qui se suivent dans l'ordre :
VB: 
Sub Rectangleàcoinsarrondis1_Cliquer()
   Application.Goto Feuil2.Cells(Feuil1.[A2].Value + 1, "A")
   End Sub
 
Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc
Bonjour,
Avec 2 plages nommées + une liste de validation
et
VB: 
Sub catégorie()
  Feuil2.Activate
  Cells(Application.Match([lenum], [num], 0) + 1, 2).Activate
End Sub

//-Hyppopotame= hippopotame
*Une solution peut-être envisagée, sans le bouton, sur simple modification de la cellule A2 de la feuil1
**Mfc ajouter
 

Pièces jointes

  • Va chercher la cellule correspondante.xlsm
    19.2 KB · Affichages: 5
Dernière édition:
Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc
Repose en paix
Re Bonsoir ou Bonjour @Jacky67 , @Dranreb et à @alain.pierrephie , le Forum

Une v01 un peu plus optionnelle dans la recherche....
Trouverez-vous Mirza .......... That is the question !!!

Bon Dimanche
@+Thierry

PS je pense que les ActiveX CheckBox passent sous Excel 2007, première version à les incorporer si je me souviens bien (ou c'était même 2000), tu nous diras Alain...
 

Pièces jointes

  • XLD_alain.pierrephie_Va_chercher_la_cellule_correspondante_v01.xlsm
    37.2 KB · Affichages: 9
Dernière édition:
Vote positif 0 Vote négatif
A

alain.pierrephie

XLDnaute Occasionnel
Bonjour à vous tous
J'ai mis mon message à 1h00 ce matin et viens de me réveiller à 7h00 et j'ai déjà des solutions !!!!!
Vous êtes d'une efficacité terrible. Je vais essayer chaque solution sur mon vrai programme car celui là n'était pas le bon car ça aurait été trop lourd pour le mettre ici. Je reviens vers vous dés que j'ai vérifié.
A tout a l'heure chers forumeurs
Alain
 
Vote positif 0 Vote négatif
A

alain.pierrephie

XLDnaute Occasionnel
_Thierry à dit:
Bonsoir @alain.pierrephie , le Forum

Voalà ton fichier modifié... Il va chercher ce que tu veux et même plus ...

Fais des essais...

Bonne nuit
@+Thierry
Cliquez pour agrandir...

Bonjour Thierry
J'y suis presque on choisi donc un numéro, par exemple "5" qui doit me ramener sur "Hyenne" et non sur "5" en feuille 2. Comment faire pour que le curseur arrive en "B6" au lieu de "A6" ?
Merci encore pour ce que tu as fait et pour ta réponse que j'attend avec impatience. Merci
 
Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc
Repose en paix
Bonjour @alain.pierrephie ,@Dranreb, @Jacky67, le Forum

Les trois solutions sont toutes les trois très différentes, celle de Dranreb avec le
Application.Goto est de loin la plus simple.

Pour la mienne, je ne sais pas de quelle version tu parles, mais disons que dans les deux v00 ou v01 pour sectionner la cellule d'à côté il faut ajouter un Offset (décaler) si on saisit un nombre :
Ws.Range(FirstAddress.Address).Offset(0, 1).Select

Si on saisit un texte, (avez-vous trouvé Mirza ?), alors il ne faut pas cet Offset ...

La v02 ci-jointe gère ceci automatiquement.

Bon dimanche
@+Thierry

PS J'en déduis que sous Excel 2007 les ActiveX CheckBoxes fonctionnent alors...
 

Pièces jointes

  • XLD_alain.pierrephie_Va_chercher_la_cellule_correspondante_v02.xlsm
    37.8 KB · Affichages: 8
Vote positif 0 Vote négatif
A

alain.pierrephie

XLDnaute Occasionnel
La solution de DRANREB ne fonctionne pas c'est la votre qui me donne satisfaction. Pourquoi ? J'en sais rien je ne suis pas assez fort en programmation.
Je vais voir maintenant si ça marche en enlevant les cases à cocher. Je reviens vers vous quand j'aurai fait tout ça
merci et A+
Alain
 
Vote positif 0 Vote négatif
A

alain.pierrephie

XLDnaute Occasionnel
Les checkboxes bloquent tout.
Surligner comme étant l'erreur
If WSSource.OLEObjects("CheckBox1").Object.Value = True Then

Si tu pouvais me retirer ces cases à cocher (physiquement en feuil 1 ainsi que dans le programme qui bloquent ça serait super. Je voulais un truc tout simple.
Merci encore
 
Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc
Repose en paix
Re Bonjour

J'ai compris pourquoi le code de Dranreb ne fonctionne pas chez vous, il utilse le "Worksheet.CodeName" et pas le "WorkSheet.Name", je l'ai adapté dans la v03 ci-jointe.

Et j'ai adapté ma version sans checkbox.

Bonne découverte
@+Thierry

EDIT 10H09 :
alain.pierrephie à dit:
Si tu pouvais me retirer ces cases à cocher (physiquement en feuil 1 ainsi que dans le programme qui bloquent ça serait super. Je voulais un truc tout simple.
Cliquez pour agrandir...
Voilà c'est fait j'avais compris ta demande pour la v03

EDIT 10H12 :
La différence entre les deux version avec Dranreb la cellule retrouvée et en bas de la fenêtre, et la mienne en top (Scroll)
 

Pièces jointes

  • XLD_alain.pierrephie_Va_chercher_la_cellule_correspondante_v03.xlsm
    34 KB · Affichages: 2
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

E
  • Résolu(e)
XL 2019 chercher une date dans une colonne vba
Réponses
12
Affichages
473
sylvanu
V
  • Question
XL pour MAC texte dans une cellule en selectionnant une autre cellule
Réponses
14
Affichages
590
Oneida
T
  • Résolu(e)
Microsoft 365 Chercher si dans une plage de cellule la valeur d'une autre cellule est présente
Réponses
4
Affichages
270
TomJoad
T
O
  • Question
XL 2010 Besoin d'aide Excel pour Expert - récupérer données sur une autres feuille
Réponses
8
Affichages
435
AtTheOne
V
  • Question
XL 2019 aide pour une formule dans Excel
Réponses
3
Affichages
383
vinc2107
V
F
  • Résolu(e)
Microsoft 365 Donner a une cellule le nom de la feuille
Réponses
5
Affichages
430
Faroyo
F
C
  • Question
Microsoft 365 Insérer le contenu d'une cellule dans le texte d'une autre cellule
Réponses
2
Affichages
403
chris427
C
R
  • Question
XL pour MAC identifier des cellules sur une feuille
Réponses
2
Affichages
501
rtlv17
R
L
  • Résolu(e)
XL 2021 Aide VBA pour appli Gestion de stock
Réponses
2
Affichages
354
LuckyShuri
L
U
  • Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
328
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…