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 :
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)
Partager