boucle de copie

Pierrot93

XLDnaute Barbatruc

• 23 Février 2012

• #2

Re : boucle de copie

Bonjour,

tu veux "boucler" sur quelle plage de cellule.... peut être nous donner un peu plus d'explication sur le résultat à atteindre..;

bonne journée
@+

 

Vote positif 0 Vote négatif

B

BBdoc

Guest

• 23 Février 2012

• #3

Re : boucle de copie

le resultat recherché est le suivant :

je descends la cellule G9 en G10 et je remonte les cellules E10 à H10 en E9 à H9 puis j'efface la ligne 10

et G9 étant ma cellule active, je répete la macro pour chaque "ligne" que je veux modifier

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Février 2012

• #4

Re : boucle de copie

Re,

euh... pas tout compris, regarde peut être dans l'aide vba "ActiveCell" ainsi que la propriété "Offset"...

 

Vote positif 0 Vote négatif

B

BBdoc

Guest

• 23 Février 2012

• #5

Re : boucle de copie



voici une image de ce que je voudrais comme résultat.

Merci.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Février 2012

• #6

Re : boucle de copie

Re,

oui... pas facile de travailler avec une image dans Excel....

 

Vote positif 0 Vote négatif

B

BBdoc

Guest

• 23 Février 2012

• #7

Re : boucle de copie

voila le fichier
Regarde la pièce jointe Classeur3.xls

mille excuses

 

Pièces jointes

• Classeur3.xls

  24 KB · Affichages: 50
• Classeur3.xls

  24 KB · Affichages: 53

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Février 2012

• #8

Re : boucle de copie

Re,

regarde ceci :

Code:

With Range("E" & ActiveCell.Row)
    .Resize(, 4).Copy Range("E" & ActiveCell.Row - 1)
    .EntireRow.Delete
End With

 

Vote positif 0 Vote négatif

B

BBdoc

Guest

• 23 Février 2012

• #9

Re : boucle de copie

c'est presque ça, sauf que tu n'as pas pris en compte le fait que je déplacais la cellule G dans la macro.

par contre à quoi sert le .resize (,4) ?c'est pour selectionner les 4 cellules ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Février 2012

• #10

Re : boucle de copie

Re,
modifie peut être ainsi :

Code:

Dim i As Long
i = ActiveCell.Row
Range("E" & i & ":F" & i).Copy Range("E" & i - 1 & ":F" & i - 1)
Range("H" & i).Copy Range("H" & i - 1)
Rows(i).Delete

 

Vote positif 0 Vote négatif

B

BBdoc

Guest

• 23 Février 2012

• #11

Re : boucle de copie

merci pierrot93 de m'avoir aider.

Avec ton aide j'ai réussi à finaliser le code pour avoir ce que je voulais.
Je te joins la correction que j'ai apportée.

Code:

Dim i As Long
i = ActiveCell.Row

With Range("G" & i)
    .Copy Range("G" & i + 1)
End With

With Range("E" & i + 1 & ":H" & i + 1)
    .Copy Range("E" & i & ":H" & i)
Rows(i + 1).Delete
End With

Mille mercis

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 24 Février 2012

• #12

Re : boucle de copie

Bonjour à tous

Pour traiter tout le tableau, code pour la feuille Feuil1 :

VB:

Sub tata()
Dim i&
    i = [G3].Row
    Do While Not IsEmpty(Range("G1").Offset(i - 1))
        Range("E1:F1").Offset(i).Cut Destination:=Range("E1:F1").Offset(i - 1)
        Range("H1").Offset(i - 1).Cut Destination:=Range("H1").Offset(i - 2)
        Range("1:1").Offset(i).Delete Shift:=xlUp
        i = i + 1
    Loop
End Sub

(Je hais les cellules fusionnées.)​

ROGER2327
#5532

Dimanche 1er Pédale 139 (Erection du Surmâle - fête Suprême Tierce)
5 Ventôse An CCXX, 0,9338h - bouc
2012-W08-5T02:14:28Z

 

Vote positif 0 Vote négatif