Discussion :

[DIDIDIDA]

bonjour tout le monde.

depuis hier j'arrive pas à resoudre mon probleme, alors s'il vous plait s'il y a qlq qui puisse m'aider je lui serai tres reconaissante.

mon probleme est le suivant:
je veux copier quelque resultats de la feuille STATISTIQUESCONSO vers la feuille STATCONSOLIDEES. alors il faut à chaque fois que j'execute ce code il me copie la case C1 dans la première cellule vide de la colonne A.
si ça marche je vais le generaliser. c'est à dire copie la case B31 dans la première cellule vide de la colonne B...

mais le probleme rien que ce code , il me genere cette message: erreur définie par l'application ou par l'objet? et le cursseur se positionne vers la ligne suivante:

Code :

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

Range("A1").End(xlDown).Offset(1, 0).Select ' selectionner la première cellule vide de la colonne A

Code :

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

1
2
3
4
5
6
'copier quelque resultat de la feuille STATISTIQUESCONSO vers la feuille STATCONSOLIDEES
Worksheets("STATISTIQUESCONSO").Activate ' activer la feuille source
Range("C1").Copy                         'copier le résultat de la cellule C1
Worksheets("STATCONSOLIDEES").Activate   'activer la feuille de distination
Range("A1").End(xlDown).Offset(1, 0).Select ' selectionner la première cellule vide de la colonne A
ActiveCell.Insert                    'coller le resultat dans la cellule selectionnée

merci par avance

[fring]

Bonjour,

Pour copier ta cellule C1 tu peux essayer soit (copier tout : valeur, format, formule)

Code :

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

Sheets("STATISTIQUESCONSO").Range("C1").Copy Sheets("STATCONSOLIDEES").Range("A65535").End(xlUp)(2)

soit (copier uniquement la valeur)

Code :

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

Sheets("STATCONSOLIDEES").Range("A65535").End(xlUp)(2) = Sheets("STATISTIQUESCONSO").Range("C1")

[DIDIDIDA]

j'ai trouvé une piste:

Code :

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

Sheets("STATCONSOLIDEES").Range("A65536").End(xlUp).Offset(1, 0) = Sheets("STATISTIQUESCONSO").Range("C1").Value

je vous tiendrai au courant de la suite

merci fring
je viens de voir ta proposition, merci beacoup, je vais l'exploiter pour generaliser (l'adapter à mon cas) merci encore fring

fring est ce que tu peux m'expliquer stp la différence entre le code que j'ai trouvé offset et ton code (2)? le résultat est le meme! merci

[fring]

(2) permet de décaler d'une ligne vers le bas, (3) de 2 lignes, (4) de 3 lignes, etc...c'est juste parce que je suis fainéant et que c'est plus court à encoder... mais il est plus facile, et plus clair à la lecture du code, d'utiliser Offset pour exécuter un décalage.

Offset(x, y) :
x = nombre de ligne (positif = décalage vers le bas, négatif = vers le haut)
y = nombre de colonne (positif = décalage vers la droite, négatif = vers la gauche

Exemple Range("A1").Offset(5, 3) va t'amener dans la cellule "C6"