Discussion :

[canicothy]

Bonjour,

Toujours dans mon développement,

je n'arrive pas à faire en sorte de copier coller plusieurs cellules (cf code) d'une feuille sur l'autre
en sachant que je souhaiterais éviter des aller/retour entre les feuilles
les cellules collées n'ont pas de positionnement spécifique

message renvoyé par excel = "cette action ne fonctionne pas sur plusieurs sélections"

je comprend mais comment faire ? en sachant que ma feuille active doit restée la même si on doit faire des A/R,
je ne peux nommer la feuille puisque ce code devrait être utilisé sur plusieurs feuilles à la demande.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
ActiveSheet.Select
 
    Range("a13:d13,f13:h13,f15:h15,f18:h18,f20:h20,f23:h23,f25:h25,f28:h28,f30:h30,f33:h33,f35:h35,f38:h38,f40:h40,e45:h45,e49:h66,e70:h70").Select
 
    Selection.Copy
    Sheets("FACT").Select
'        Columns("A:I").Select
'        Selection.ClearContents
    Range("A18").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

Merci à tous

[a_diard]

Code :

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

  Sheets("FACT").range("A18:d18") =SelectActiveSheet. Range("a13:d13")

puis les 15 zones suivantes .

[canicothy]

Bonjour A diard et merci

pouvez vous m'apporter une précision, comment dois-je le positionner?

je ne comprend pas bien l'instruction.

Merci

[riaolle]

Que veut dire SelectActiveSheet? Je pense que le code serait plutôt:

Code :

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

Sheets("FACT").range("A18:d18") =ActiveSheet.Range("a13:d13")

Lorsqu'on écrit Sheets("nom de la feuill"), on dit qu'on cherche qqc dans cette feuille (sans la rednre active). Puis Range("A18:D18") indique qu'on s'intéresse à la plage de cellules A18:D18. ActiveSheet désigne la feuille active.
A gauche du "=", on met la cellule qu'on veut changer et à droite, on met la nouvelle valeur.
Par contre, code à tester, parce que la taille des plages de données n'est pas la même, je ne sais pas trop comment ça va réagir?!

[Marc-L]

Bonjour.

je n'arrive pas à faire en sorte de copier coller plusieurs cellules (cf code) d'une feuille sur l'autre
en sachant que je souhaiterais éviter des aller/retour entre les feuilles

C'est si simple en appliquant le B-A-BA de l'aide VBA - suffit pourtant de la consulter ! - via la méthode Range.Copy et ce
en une unique ligne de code en une seule instruction !

RangeSource.Copy RangeDestination …

RangeDestination pouvant représenter uniquement la première cellule de la plage de destination et,
encore une fois, comme le démontre l'exemple dans l'aide VBA …

Avec cette unique instruction il n'y a donc aucun aller / retour car évidemment les affreux Activate et Select n'ont pas lieu d'être !

___________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[canicothy]

Un grand merci à tous et surtout à Riaolle et Marc.L

Je suis autodidacte, j'apprend beaucoup sur le forum et il est vrai que j'utilise très peu l'aide (habituellement rébarbatif et difficile à comprendre) mais là je dois avoué = nikel

Donc je continue à bientôt

et encore merci à tous



Mon père avait raison : "on apprend tous les jours et c'est quand on meurt que l'on devrait naitre".

[canicothy]

Re bonjour,

tout marche bien même trop bien, en effet les cellules sources contiennent des formules et donc au lieu de me restituer la valeur dans la destination il me met les formules.

Est ce qu'avec value ça pourrait le faire? ou y a t il autre chose?

Merci

[Marc-L]

• Soit comme l'exemple de riaolle du post #4 en spécifiant la propriété Value, les plages devant être de même taille;

• soit en deux instructions, l'une via Copy et l'autre via la méthode Range.PasteSpecial en spécifiant le type de collage
   (cf aide VBA) …

[canicothy]

Marc

Je suis pas bon, du tout,

avant de poster j'avais regarder dans l'aide, mais là les explications (surtout en anglais) ne me permettent pas d'avancer.

J'ai déjà utiliser la fonction pastespecial dans d'autres modules mais là je ne comprend pas pourquoi cela ne fonctionne pas.

Code :

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

1
2
3
4
5
ub NVLLEFACT()
 
ActiveSheet.Range("E5:F5").Copy Destination:=Sheets("FACT").Range("a6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
  SkipBlanks:=False, Transpose:=False
ActiveSheet.Range("F6").Copy Destination:=Sheets("FACT").Range("C6")

je suppose qu'il faut utiliser la fonction pastespecial pour chacune des lignes;

Merci