Discussion :

[Abdelbasset HAMIDI]

Bonjour les développeurs,

Je suis un débutant en VBA et je veux créer une boucle pour faire le même travail de JN33 à JN500.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Range("JN33").Select
    Selection.AutoFill Destination:=Range("JN33:TM33"), Type:=xlFillDefault
    Range("JN33:TM33").Select
 
    Range("JN34").Select
    Selection.AutoFill Destination:=Range("JN34:TM34"), Type:=xlFillDefault
    Range("JN34:TM34").Select
 
    Range("JN35").Select
    Selection.AutoFill Destination:=Range("JN35:TM35"), Type:=xlFillDefault
    Range("JN35:TM35").Select

[Invité]

Bonjour Abdel

Normalement,

Code :

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

1
2
3
4
Dim Lig as Long
For Lig = 33 to 500
  Range("JN" & Lig).AutoFill Destination:=Range("JN" & Lig & ":TM" & Lig), Type:=xlFillDefault
Next Lig

A+

[Abdelbasset HAMIDI]

Merci pour votre aide

[Philippe Tulliez]

Bonjour,
Il n'est pas nécessaire d'utiliser une boucle

Code :

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

Range("JN33:JN500").AutoFill Destination:=Range("JN33:TM500"), Type:=xlFillDefault

[Abdelbasset HAMIDI]

J'ai juste un problème lorsque j'ai ajouté cette instruction, ma Macro prend du temps à s'exécuter.

[Philippe Tulliez]

Bonjour,
C'est curieux car sans les boucles cela devrait au contraire aller plus vite.

[EDIT]
Vous pouvez également utiliser la méthode Copy

Code :

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

  Range("JN33:JN500").Copy Destination:=Range("JN33:TM500")