Deplacer des celulles sous condition

nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention -
nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention - 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

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

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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

nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention

est ce qu'il est possible de l'avoir comme une macro
car je vais l'associer avec une autre macro

nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention

tjrs en attente de votre aide, SVP

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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

nonossov Messages postés 610 Date d'inscription Statut Membre Dernière intervention

Merci infiniment Patrice!!

Discussions similaires

Impossible de supprimer photo galaxy s4

SOS EXCEL

comment intégrer une fonction SI dans un champ calculé

Excel : colorer une cellule sous condition d'une autre ?

Votre réponse

Discussions similaires