Copier Glisser

Le 09/06/2015 à 07:50

bonjour je cherche la formule pour Copier de manières multiple les cellules

exemple D10 en G11 + D24 et l'opération suivante copier D11 en D12 + H12 mais réalisant un glissement de cette cellule et ainsi de suite

Merci pour votre aide

MArc

Le 09/06/2015 à 08:01

Bonjour,

Essaye ça

For i = Prem_ligne To Der_ligne
             Der_Ligne_feuille =Sheets("toto").Cells(Rows.Count, "E").End(xlUp).Row + 1
            Sheets("tata").Cells(i, "L").Copy _
            Destination:=Sheets("toto").Cells(Der_Ligne_feuille, "E")
Next i

Je copie ma colonne "L" de ma feuille "tata", que je colle dans la colonne "E" de ma feuille "toto", ligne par ligne, via une petite boucle.

A modifier à ta guise.

Cdlt

Le 09/06/2015 à 08:11

merci de la réponse rapide mais n'y a t il pas plus simple car je ne suis bon utilisateur des lors que c'est simple et la avec les feuilles cela se complique un peu et j'au du mal à transposer à mon problème

Le 09/06/2015 à 08:28

Bonjour,

Si je lis bien ce que tu as écris, tu veux copier :

D10 en G11 et en D24, puis

D11 en D12 et en H12.

Je ne vois aucune logique itérative dans cette copie.

La copie suivante est censée donner quel résultat ?

A+

Le 09/06/2015 à 08:36

Non ce que je voudrai faire c'est

copier la cellule D10 et la cellule K11 en D11 puis coller la cellule D11 et la cellule L12 en D12 et ainsi de suite c'est à dire décaler la deuxième cellule à copier d'une colonne à caques fois si je m'explique bien

Le 09/06/2015 à 08:45

Tu peux aussi déclarer une "variable" du type..:

Set MaFeuille = ThisWorkbook.Sheets("Ma feuille")

Ensuite lorsque tu fais appel a ta feuille tu as juste besoin d'utiliser "MaFeuille"

Cela permet de t'y retrouver plus facilement

Le 09/06/2015 à 08:58

je doit partir une petite heure je regarderai à mon retour mais je ne comprend pas le mot feuille ou son application n'y a t il pas une formule comme décalé ou glisser qui existe comme décaler d'une colonne à chaque fois ?

exemple en D11 =D10+K11

D12 =D11+K12 décalé +1 soit L12

ce qui correspondrai à la formule en D12 =D11+L12 et ainsi de suite

merci à + marc je regarde la réponse à mon retour

Le 09/06/2015 à 09:20

En D11, tu places la formule

=D10+DECALER(K11;;LIGNE()-11), ce qui correspond à =D10+K11

En tirant la formule vers le bas, tu obtiens la formule suivante en D12 :

=D11+DECALER(K12;;LIGNE()-11), ce qui correspond à =D11+L12

etc.

A+

Le 09/06/2015 à 11:01