Deplacer des celulles sous condition
nonossov
Messages postés
638
Statut
Membre
-
nonossov Messages postés 638 Statut Membre -
nonossov Messages postés 638 Statut Membre -
Bonjour mes amis,
merci de m'aider a créer une macro pour deplacer le contenu des cellules sous une condition:
j'ai colonne A et B
A
50
-20
-30
60
-40
-20
100
-90
-10
je veux deplacer les valeurs positive vers colonne B.
Merci infiniment
merci de m'aider a créer une macro pour deplacer le contenu des cellules sous une condition:
j'ai colonne A et B
A
50
-20
-30
60
-40
-20
100
-90
-10
je veux deplacer les valeurs positive vers colonne B.
Merci infiniment
Configuration: Windows / Firefox 52.0
A voir également:
- Deplacer des celulles sous condition
- Déplacer colonne excel - Guide
- Excel cellule couleur si condition texte - Guide
- Déplacer barre des taches windows 11 - Guide
- Déplacer dossier onedrive - Guide
- Deplacer icone sur iphone - Guide
car je vais l'associer avec une autre macro
Option Explicit Sub DeplacerPositifs() Dim r As Range Dim c As Range Set r = ActiveSheet.Range("A1").CurrentRegion.Columns(1) For Each c In r.Cells If IsNumeric(c.Value) Then If c.Value > 0 Then c.Cut Destination:=c.Offset(0, 1) End If End If Next c End Sub