[VBA-E]couper en fonction d'une valeur

Bonjour !
j ai une série de données dans H3:J19 ...
Je veux lui faire comprendre que quand la valeur dans la case H3 est <0 alors il coupe la sélection H3:J3 et colle à la destination L3:N3...
evidemment, j aimerais faire ca pour toute la zone H3:J19...
Merci d'avance d'éclairer ma lanterne de novice.:oops:

Citation:

Envoyé par captaine93

Bonjour !
j ai une série de données dans H3:J19 ...
Je veux lui faire comprendre que quand la valeur dans la case H3 est <0 alors il coupe la sélection H3:J3 et colle à la destination L3:N3...
evidemment, j aimerais faire ca pour toute la zone H3:J19...
Merci d'avance d'éclairer ma lanterne de novice.:oops:

Tu veux décaler en fait ?
Il suffit de faire un if sur ta première cellule, et si jamais c'est inférieur a 0, tu déplace..
Pour savoir comment déplacer, essaye l'enregistreur de macro ça te donnera une idée de comment faire :)

Les cases que tu testes sont seulement celle de la colonne H (cad H3 à H19) ou toutes les cellules de plage H3:J19

Si c'est le premier cas
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub test() With Worksheets("Feuil1") For index = N°1ereLigne To N°DernièreLigne If .Cells(index, 8) < 0 Then Range(.Cells(index, 8), .Cells(index, 10)).Select Selection.Cut Range(.Cells(index, 12)).Select ActiveSheet.Paste Application.CutCopyMode = False End If Next index End With End Sub
Le code est pas tester redis moi au cas ou
bonne continuation ++

Citation:
Envoyé par Ania
Les cases que tu testes sont seulement celle de la colonne H (cad H3 à H19) ou toutes les cellules de plage H3:J19

Si c'est le premier cas
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub test() With Worksheets("Feuil1") For index = N°1ereLigne To N°DernièreLigne If .Cells(index, 8) < 0 Then Range(.Cells(index, 8), .Cells(index, 10)).Select Selection.Cut Range(.Cells(index, 12)).Select ActiveSheet.Paste Application.CutCopyMode = False End If Next index End With End Sub
Le code est pas tester redis moi au cas ou
bonne continuation ++
Tu n'es pas obligé de faire un Paste :) tu peux faire directement :
Code:

1 2 3 Range("H3:J3").Select Selection.Cut Destination:=Range("L3:N3")
Enfin par exemple :)

Mille mercis !
En fait fallait juste rajouter que je colle sur 3 colonnes...
Longue vie au forum et aux gens qui l'animent;)