Deplacer des celulles sous condition

Fermé

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - 18 juin 2019 à 19:17
nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - 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 une colonne excel - Guide
Excel cellule couleur si condition texte - Guide
Déplacer la barre des taches windows 11 - Guide
Déplacer dossier onedrive - Guide
Copier ligne excel sous condition sans macro ✓ - Forum Excel

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
Modifié le 19 juin 2019 à 09:21

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 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
Modifié le 19 juin 2019 à 16:04

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 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
21 juin 2019 à 17:40

tjrs en attente de votre aide, SVP

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
21 juin 2019 à 22:23

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 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
24 juin 2019 à 16:32

Merci infiniment Patrice!!

Discussions similaires

Bloquer des cellules sous conditions

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

SOS EXCEL

Masquer lignes d'un tableau sous conditions de cellules

Combiné SI et RECHERCHEV excel

Discussions similaires

Newsletters