legalize83
Messages postés7Date d'inscriptionjeudi 4 juin 2009StatutMembreDernière intervention10 juin 2009
-
9 juin 2009 à 10:44
legalize83
Messages postés7Date d'inscriptionjeudi 4 juin 2009StatutMembreDernière intervention10 juin 2009
-
10 juin 2009 à 11:56
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