Discussion :

[Nelrub]

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'

[unparia]

Bonjour
Lecture de la rubrique Range.Offset, propriété de l'aide interne VBA

Cette propriété renvoie un objet Range qui représente une plage décalée de la plage spécifiée.

Reviens si cette lecture et son application te paraissent insurmontables.

[Nelrub]

Bonjour
Lecture de la rubrique Range.Offset, propriété de l'aide interne VBA

Reviens si cette lecture et son application te paraissent insurmontables.

Ok merci pour le conseil je vais un oeil là dessus !

Nel'

[Nelrub]

Bonsoir,

Je ne dois pas être très doué puisque je n'arrive même pas à "copier/coller" une cellule en utilisant ActiveCell...

"Range("J11").Activate
ActiveCell.Offset(0, 6).Select"

La cellule "P11" s'active bien mais elle reste vide alors que "J11" = 11

Moi qui pensais me lancer dans quelque chose de pas très compliqué ! J'ai grandement besoin de vous si vous le voulez bien.

Nel'

[unparia]

J'ai grandement besoin de vous si vous le voulez bien.

Tu as surtout besoin de comprendre ce que tu écris. La méthode Select (au demeurant inutile en l'occurrence) ne fait, comme son nom l'indique, que sélectionner.
Rubriques à lire de ton aide interne VBA :

Range.Select, méthode
Cette méthode sélectionne l'objet.
...
...

Range.Propriété Value
Cette propriété renvoie ou définit une valeur de type Variant qui représente la valeur de la plage spécifiée.
...