pointer vers une cellule en partant d'un nom de ligne et de colonne quelconque

  • Initiateur de la discussion Initiateur de la discussion mikeramby
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mikeramby

XLDnaute Nouveau
Bonjour à tous,

N'étant pas un expert en VBA, je sollicite votre aide.
Pouvez vous m'aider s'il vous plaît pour une macro me permettant de réaliser l'exemple suivant.
Voilà mon exemple :
2 feuilles (feuil1 et feuil2)
- dans feuil1 j'ai des noms de colonne et noms de cellule personalisés, c'est à dire, en B1 "colonne1", en C1 "colonne2", en D1 "colonne3"... et en A2 "ligne1", A3 "ligne2", A4 "ligne3"...
Ceci est un grand tableau dans lequel il y a des valeurs.

- dans feuil2 j'ai en A1 par exemple le mot "ligne14" et en A2 le mot "colonne22"

- j'aimerai avoir à partir de feuil2 un bouton qui me permet de selectionner dans 'feuil1' la cellule correspondant à cette référence :[ligne14,colonne22].

PS : les noms de colonne et de ligne créés dans la feuil1 ne sont pas forcément dans un ordre croissant, et peuvent être même n'importe quel texte mais pas forcément de forme "colonne[#]" ou "ligne[#]".

Je vous remercie d'avance.

Mike.
 
Re : pointer vers une cellule en partant d'un nom de ligne et de colonne quelconque

Bonjour Mike, CC

regarde l'exemple ci-dessous, à adapter à ton projet, enfin si j'ai bien compris, pas sûr... :

Code:
Option Explicit
Sub test()
Dim x As Range, y As Range
Set x = Columns(1).Find(Feuil2.Range("A1").Value, , xlValues, xlWhole, , , 0)
Set y = Rows(1).Find(Feuil2.Range("A2").Value, , xlValues, xlWhole, , , 0)
If Not x Is Nothing And Not y Is Nothing Then Cells(x.Row, y.Column).Select
End Sub

bonne journée
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour