Discussion :

[ayms75]

Bonjour j'ai tenté de faire une macro qui si elle tombe sur une valleur positif alors elle coupe la valeur dans la colonne C et la colle dans la colonne D mais ça me fait autre chose, quelqu'un pourrait me corriger ma macros svp :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub déplacement()
 
For i = 14 To 40
 
    If Cells(i, 3).Value <> Cells(i, 3) * (-1) Then
 
        Cells(i, 3).Select
        Selection.Cut
        Cells(i, 4).Select
        ActiveSheet.Paste
 
    End If    
 
Next i
 
End Sub

[Marc-L]

Bonjour,

t'aurais pu expliquer le autre chose !
Faut bien dire que le test de ton code est plutôt idiot : c'est quoi chez toi une valeur positive ?

Voici une manière parmi différentes possibles :

Code :

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

1
2
3
4
5
6
7
8
Sub Deplacement()
         Dim Rg As Range
    For Each Rg In Range("C14:C40")
        With Rg
            If .Value > 0 Then .Offset(, 1).Value = .Value: .ClearContents
        End With
    Next
End Sub

_________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


_________________________________________________________________________________________________
Deux choses sont infinies : l’Univers et la bêtise humaine.
Mais en ce qui concerne l’Univers, je n’en ai pas encore acquis la certitude absolue ! (Albert Einstein)

[Kaldore]

Si tu veux du code ressemblant à ce que tu avais codé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub déplacement()
 
	For i = 14 To 40
 
	    If Cells(i, 3).Value < 0 Then
 
 	       	Cells(i, 3).Select
       		Selection.Cut
	        Cells(i, 4).Select
        	ActiveSheet.Paste
 
	    End If
 
	Next i
 
End Sub

[ayms75]

Merci, c'est magnifique.

Le autre chose dans le 1er code ça ça me couper en C14 pour la coller en D40 et dans le 2nd code, ça me couper toute la colonne C et ça me la coller en D, en tout cas merci car je débute