Discussion :

[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.

[illight]

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.

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ++

[illight]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Enfin par exemple

[captaine93]

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