XL 2019 Affecter une variable dans range("....")

[Didier Quilghini]

Bonjour à tout le monde,
J'ai besoin d'aide pour ce qui suit :

Dans feuille1, il y a une base de donnée classique
Dans feuille 2 je récupère une ligne de cette BdD grace à =recherchev()
Dans feuille 2 j'utilise =equiv() sur la premiere cellule de la ligne récupérée afin de connaitre l'emplacement de cet enregistrement dans la BdD en Feuille 1
Jusque là ... tout va bien!
Je souhaite affecter dans une macro, à range("xx").select ce qui suit : range("Ax").select où A est la colonne A et c'est fixe et ou x est mon N° de ligne récupéré avec =equiv().

J'y suis depuis ce matin ... je décide de vous solliciter.
Merci d'avance
Didier

 

[mapomme]

Bonjour @Didier Quilghini,

Essayez :

Application.Goto Sheets("feuil1").Cells(x,"a")

 

[Didier Quilghini]

Hello mapomme,
merci, vous êtes toujours hyper réactif !
Question : comment je déclare "a" car le n° de ligne change selon l'enregistrement récupéré
j'ai tenté avec des variables mais je n'y arrive pas, hélas
Cdt
Didier

 

[Staple1600]

Bonjour

Ici a correspond à la colonne pas à la ligne
Syntaxe Cells
Cells(NUM_Ligne, NUM_Colonne)

 

[Didier Quilghini]

Bonjour

Ici a correspond à la colonne pas à la ligne
Syntaxe Cells
Cells(NUM_Ligne, NUM_Colonne)

Merci Staple1600, pour cette précision. Et donc comment donné la valeur aléatoire à Nom_Ligne ?
J'ai tout essayé mais en vain ....
Cdt
Didier

 

[mapomme]

Re,

Essayez :

Dim Col
Col="a"
Application.Goto Sheets("feuil1").Cells(x,Col)

'Au lieu d'attribuer une lettre, Cells accepte aussi les nombres pour la colonne.
'Pour la colonne F :
Col = 6
Application.Goto Sheets("feuil1").Cells(x,Col)

 

[Staple1600]

Bonsoir mapomme 😉

=>Didier
Désolé (une crise d'égomanie passagère 😉)

Sub test()
Range("A1:A39") = ""
Range("A1:A39") = "=REPT(""Staple"",MOD(ROW(),RANDBETWEEN(1,27))=0)"
Range("A1:A39") = Range("A1:A39").Value
x = Application.Match("Staple", [A1:A39], 0)
MsgBox "Où suis-je?", vbCritical, "Test"
Application.Goto Cells(x, "A")
End Sub

NB: A tester sur une feuille vierge.

 

[Didier Quilghini]

mapomme, Staple1600,
Magnifique ! vous êtes supers. Mon problème est résolu.
Et comme vous avez passé quelques instants pour moi, je vous ai fait un petit fichier excel qui résume mon problème résolu !
Merci beaucoup
Bonne fin de soirée
Cdt Didier