Deplacer des celulles sous condition

Fermé

nonossov Messages postés 610 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 610 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 barre des taches windows 11 - Guide
Déplacer dossier onedrive - Guide
Déplacer une fenetre hors écran - Guide

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
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 610 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 610 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 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
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 610 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

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

Impossible de supprimer photo galaxy s4

SOS EXCEL

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

Bloquer des cellules sous conditions