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

mapomme

XLDnaute Barbatruc

Supporter XLD

• 8 Mars 2021

• #2

Bonjour @Didier Quilghini,

Essayez :

VB:

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

 

Vote positif 0 Vote négatif

Didier Quilghini

XLDnaute Nouveau

• 8 Mars 2021

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Mars 2021

• #4

Bonjour

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

 

Vote positif 0 Vote négatif

Didier Quilghini

XLDnaute Nouveau

• 8 Mars 2021

• #5

Staple1600 à dit:

Bonjour

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 8 Mars 2021

• #6

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)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Mars 2021

• #7

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.

 

Vote positif 0 Vote négatif

Didier Quilghini

XLDnaute Nouveau

• 8 Mars 2021

• #8

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

 

Pièces jointes

• Problème avec range.xlsm

  25.2 KB · Affichages: 13

Vote positif 0 Vote négatif

Solution