Discussion :

[Nelmech]

Bonjour a tous,

Voici mon probleme actuellement je travaille avec du VBA qui navigue quasiment tout le temps entre different classeurs excel, et je souhaiterais pouvoir variabiliser au maximum certain bout de code VBA, afin d'eviter d'avoir du code tres tres lourd...
Par exemple au lieu de devoir ecrire cela tout le temps :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Workbooks("MyWorkBook").sheets("Sheet1") .cells(

Je souhaiterais pouvoir faire ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Const WorBook1 = "Workbooks("MyWorkBook").sheets("Sheet1") "
WorBook1.cells(2,2) = "MyValue"

J'ai essaye differente syntaxe mais a chaque fois Excel me dit erreur, qu'il ne veut pas de cette syntaxe.
Savez-vous comment faire cela ?

[Daniel.C]

Bonjour,

Tu peux écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Workbooks("MyWorkBook").Sheets("Sheet1")
    .Cells(2, 2) = "MyValue"
End With

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim WS As Worksheet
Set WS = Workbooks("MyWorkBook").Sheets("Sheet1")
WS.Cells(2, 2) = "MyValue"

Note le "." devant "Cells" en ligne 2 du premier code.

[Nelmech]

La syntaxe avec le with je la connais mais ca m'arrive de naviguer d'un classeur a un autre d'une ligne a l'autre donc ecrire with a chaque fois juste pour une ligne est pas pratique
La deuxieme syntaxe est plus ce que je recherche merci a toi !