Deplacer des celulles sous condition

nonossov Messages postés 638 Statut Membre -
nonossov Messages postés 638 Statut Membre - 24 juin 2019 à 16:32

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

Configuration: Windows / Firefox 52.0

Afficher la suite

1 réponse

Réponse 1 / 1
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention 1 784

Bonjour,

Pas besoin de VBA :
- En B1 mettre la formule :
=SI(A1<=0;A1;"")
- En C1B1 mettre la formule :
=SI(A1>0;A1;"")
et tirer les 2 formules vers le bas
- sélectionner les colonnes B:C, Copier, Collage spécial, Valeurs.
- supprimer la colonne A
0
1. nonossov Messages postés 638 Statut Membre
  
  est ce qu'il est possible de l'avoir comme une macro
  car je vais l'associer avec une autre macro
  
  0
2. nonossov Messages postés 638 Statut Membre
  
  tjrs en attente de votre aide, SVP
  
  0
3. Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention 1 784
  
  Par exemple :
  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
  
  0
4. nonossov Messages postés 638 Statut Membre
  
  Merci infiniment Patrice!!
  
  0

Deplacer des celulles sous condition

1 réponse

Discussions similaires

Newsletters