Boucle copier coller

Signaler
Messages postés
7
Date d'inscription
jeudi 4 juin 2009
Statut
Membre
Dernière intervention
10 juin 2009
-
Messages postés
7
Date d'inscription
jeudi 4 juin 2009
Statut
Membre
Dernière intervention
10 juin 2009
-
Bonjour,
Je souhaiterais pouvoir effectuer une boucle permettant permettant de copier les cellules pleines d'une plage de cellule sur une feuille puis de les coller sur une autre feuille en colonne selon certaines conditions.
J'aimerais que tant que les cellules à gauche de celles collées sont supérieures à ces dernières alors faire un collage addition jusqu'à ce que les cellules de gauche = les cellules collées.
Les cellules collées ne peuvent pas être supérieures aux cellules de gauche.
D'autre part, j'aimerais que si la plage ou l'on doit coller et vide alors on fait un collage simple
Et si les cellules de gauche sont vides alors ne pas coller.

Pour tenter d'effectuer cette fonctionnalité j'ai fait le code suivant mais cela ne me donne pas vraiment ce que je voudrais

sub commande()
    Dim I As Range
    Set I = ThisWorkbook.Worksheets("commande client").Range("D6:D26")
    Dim J As Range
    Set J = ThisWorkbook.Worksheets("données commandes").Range("G3:G1000")
    Dim K As Range
    Set K = ThisWorkbook.Worksheets("données commandes").Range("F3:F1000")
       ' boucle sur chaque cellule de "I"
    For Each cI In I
        If cI.Value <> "" Then
       
            ' boucle sur chaque cellule de "J"
            For Each cJ In J
            For Each cK In K
            Do Until cK.Value = cJ.Value
                If cJ.Value = "" Then
                    Sheets("commande client").Select
                    cI.Copy
                    Sheets("données commandes").Select
                    cJ.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
                Else
                     Sheets("commande client").Select
                    cI.Copy
                    Sheets("données commandes").Select
                    cJ.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
                    ' sortie forcée boucle sur "J"
                   
                    Exit For
                
                End If
            Loop
            Next
            Next
        End If
    Next
    Application.CutCopyMode = False
End Sub

Merci d'avance

1 réponse

Messages postés
7
Date d'inscription
jeudi 4 juin 2009
Statut
Membre
Dernière intervention
10 juin 2009

Quelqu'un peut-il m'aider ?
SVP