Deplacer des celulles sous condition

nonossov -

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

Réagir
1. nonossov Auteur
  
  est ce qu'il est possible de l'avoir comme une macro
  car je vais l'associer avec une autre macro
  
  0
  
  Réagir
2. nonossov Auteur
  
  tjrs en attente de votre aide, SVP
  
  0
  
  Réagir
3. Patrice33740
  
  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
  
  Réagir
4. nonossov Auteur
  
  Merci infiniment Patrice!!
  
  0
  
  Réagir

Deplacer des celulles sous condition

1 réponse

Discussions similaires

Newsletters