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

Didier Quilghini · 8 Mars 2021

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

Didier Quilghini · 8 Mars 2021

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

mapomme · 8 Mars 2021

Bonjour @Didier Quilghini,

Essayez :

VB:

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

Didier Quilghini · 8 Mars 2021

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 · 8 Mars 2021

Bonjour

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

Didier Quilghini · 8 Mars 2021

Staple1600 à dit:
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 · 8 Mars 2021

Re,

Essayez :

VB:

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 · 8 Mars 2021

Bonsoir mapomme

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

VB:

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 · 8 Mars 2021

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

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

Didier Quilghini

XLDnaute Nouveau

Didier Quilghini

mapomme

XLDnaute Barbatruc

Didier Quilghini

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Didier Quilghini

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Didier Quilghini

XLDnaute Nouveau

Pièces jointes

Discussions similaires