Macro Renvoi.

[baldron]

Bonjours a tous, voila mon souci: Il me faudrait une macro qui me renvoie a une cellule voulue.
Explications: Par exemple en G4 je rentre un numero, et bien la macro activée par un bouton va me selectionner la cellule contenant ce numero dans un tableau a gauche.
Voila une feuille explicative:

 

[francois91]

Re : Macro Renvoi.

Salut baldron,
J te propose cette solution. J'espére que ca te conviens.
Le code est trés simple mais dis moi si tu ne comprends pas et si ca t interesse.

 

[baldron]

Re : Macro Renvoi.

je comprend pas, ca ne marche pas, j'ai essayer de copier coller le code et de le reapliquer a un autre bouton mais ca marche pas. Peut etre est ce que c'est parceque je suis sur mac, ou que j'ai pas la bonne version de Excel.

Quand je l'ouvre il me met une fenetre conversion en cours "metafile" qu'il ne me met pas normalement.

 

[francois91]

Re : Macro Renvoi.

possible que ce soit psk tu as un mac je sais pas... chez moi ca marche
sinon t as bien baissé le niveau de sécurité et coché faire confiance a vba dans "outils,macro,sécurité" ???

moi g office 2003 donc a moins que t ai une version antérieur

sinon mon code c'est

Private Sub CommandButton1_Click()
Worksheets("feuil1").Cells(4 + Worksheets("feuil1").Cells(4, 7), 1).Select
End Sub

en gros ca dis de selectionner la cellule a la ligne "4 + le chiffre dans la cellule G4" et a la colonne 1

 

[papypog]

Re : Macro Renvoi.

Salut baldron,
J te propose cette solution. J'espére que ca te conviens.
Le code est trés simple mais dis moi si tu ne comprends pas et si ca t interesse.

Bonjour,

Le code paraît effectivemment simple mais des explications seraient les bienvenues pour le décryptage de ce dernier.

Worksheets("feuil1").Cells(4 + Worksheets("feuil1").Cells(4, 7), 1).Select

 

[baldron]

Re : Macro Renvoi.

Je ne comprend pas en effet, j'ai en plus Excel 2004, j'ai deja utiliser pas mal de macro et la ca ne marche pas.
Même quand je veu affecter la macro, au bouton il me la trouve pas. Rien n'est affiché.

Vous avez pas une autre formule qui pourrai avoir le même resultat.
Par exmple un code recherche de ce qui est contenu dan la cellule G4, dans la collone A1. Puis select cellule?

 

[Excel_lent]

Re : Macro Renvoi.

Salut à tous et re aux autres.

De Cells(li,col) à Range("LettreLigne")

Sub Bouton1_QuandClic()
  Cells(4 + Range("G4"), 1).Select 
End Sub

Remplacer Range("G4") par Cells(4, 7) donne le même résultat.

Remarque : la feuille de travail est celle dans laquelle se trouve le bouton !

 

[baldron]

Re : Macro Renvoi.

C nickel je pense que ca devait être a cause de la formulation (4,7).

Merci beaucoup, y a que sur ce forum que je trouve des réponses a chaque fois c cool.