Bonjour à tous,

Je débute sur VBA et n'ai pas trouvé la solution à mon problème sur le net, j'espère que vous allez pouvoir m'aider !

Je chercher à créer une macro qui copie les cellules D9 à D25 de ma feuille 1 puis les colle sur les cellules J8 à J24 de ma feuille 4. Jusque là tout va bien avec ça :

"Sheets(4).Range("L8:L24").Value = Sheets(1).Range("D9:D25").Value"

Ça se complique lorsque je veux que que les cellules D9 à D25 soient copiées sur la colonne suivante si les cellules L8 à L24 sont pleines... J'ai bien essayé ça mais une erreur se produit :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim z As String
Dim Somme As String
 
Sheets(1).Select
Somme = Range("D9:D25").Value
Sheets(4).Select
z = Columns("J:J")
 
Somme = Range(z & "8").Value
While Somme <> ""
z = z + 1
Somme = Range(z & "8").Value
 
Wend
J'aimerai que le processus se poursuive, si L8 à L24 et M8 à M24 sont pleines, alors les copier sur N8 à N24 et ainsi de suite...

Merci d'avance pour votre aide !

Nel'