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

[Marc-L]

Rien qu'en utilisant l'Enregistreur de macro (donc à la portée d'un débutant !)
et comme pourtant déjà indiqué en deux instructions :

ligne n°1 :   RangeSource.Copy  

ligne n°2 :   RangeDestination.PasteSpecial xlPasteValues   …

[canicothy]

oui oui biensur

c'est bien comme ça que j'ai réussi à l'utiliser précédemment mais là ? comme vous pouvez le voir j'ai essayer avec ou sans le "sélection" mais rien n'y fait.




j'ai bien évidemment réutilisé l'enregistreur,
je n'ai pas pour habitude de poster qlqchose sans avoir essayer auparavant plusieurs choses (c'est comme ça que j'apprend)
donc quand je demande de l'aide c'est que malheureusement il y a qlqchose que je fais mal (certainement)
ou que je ne vois pas (la tête dans le guidon)
souvent un regard extérieur est la solution ou en tout cas le trouve plus vite.

Désolé et

Merci

[Marc-L]

Les codes des posts #9 et #11 ne correspondant pas au post #10, ceci explique donc cela …

[canicothy]

Merci pour votre patience Marc

je dois avancer puisque maintenant j'ai un autre message d'erreur mais est ce que j’écris correctement le code (cette fois en 2 lignes), c'est comme ça?

Si ce n'est pas le cas, auriez vous l'amabilité de me le corriger.

Merci

[Marc-L]

Le caractère _ indique une continuité dans la ligne suivante mais c'est comme si c'était sur la même ligne !
Or ce caractère est pourtant absent dans l'exemple du post #10 ‼     Tout comme Destination, etc …

Donc encore une fois, cela n'a aucun rapport avec cet exemple, et il ne doit y avoir rien de plus !
Est-ce si compliqué de juste recopier ce code du post #10 et de juste adapter les plages source et destination ?‼

___________________________________________________________________________________________________________

Zézette épouse X, vous savez pas lire ?!   (Le Père Noël est une ordure)

[canicothy]

Bonjour Marc

Comme je l'ai dis je continue et effectivement hier soir voila ce à quoi je suis arrivé après plusieurs essais et avoir relu votre post

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub NVLLEFACT()
 
Dim SourceSheet As Worksheet
Dim DestinationSheet As Worksheet
 
Set SourceSheet = ActiveSheet
Set DestinationSheet = ActiveWorkbook.Sheets("FACT")
 
SourceSheet.Range("E5:F5").Copy
DestinationSheet.Range("a6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
'''ActiveSheet.Range("F6").Copy Destination:=Sheets("FACT").Range("C6")
SourceSheet.Range("F2").Copy
DestinationSheet.Range("D6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'''ActiveSheet.Range("P2").Copy Destination:=Sheets("FACT").Range("a7")

il est vrai que je n'avais pas compris qu'il s'agissait de 2 ordres distincts d'ou "2 lignes"

j'ai crée des variables et rédiger comme ça et ça fonctionne, impec, je n'ai plus qu'à le reproduire sur l'ensemble des lignes du code.


Merci beaucoup

[Marc-L]

• Définir une variable objet de type Worksheet pour la feuille source ActiveSheet est un peu too much,
   ActiveSheet étant déjà une variable de type Worksheet …
   Et un Range sans ActiveSheet fait quand même référence à la feuille active !

• Qui plus est il ne faut pas oublier de libérer ces variables objets en fin de procédure (voir Nothing dans l'aide VBA).

A partir de ton extrait de code précédent :

Code :

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

1
2
3
4
5
6
Sub NVLLEFACT()
    With Worksheets("FACT")
        [E5:F5].Copy:  .[A6].PasteSpecial xlPasteValues
        [F2].Copy:     .[D6].PasteSpecial xlPasteValues
        ' suite …
    End With

Ici les deux lignes ont été regroupées en une via le séparateur : …
Ce n'est pas conseillé mais ici cela aide à lire directement source & destination.

Quant à la notation abrégée de Range, elle n'est pas non plus conseillée,
voir l'aide VBA de la puissante fonction Evaluate.
Tout comme celle de l'instruction With …