Déplacer les cellules non-vides vers gauche

pedram0080 · 3 Mars 2017

Bonjour tout le monde,
Comme toujours j'ai besoin de vos aide.
C'est pour une Macro qui transfert les valeurs des cellules non-vides (ou d'une plage définie) vers gauche.
j'ai préparé un fichier Ex. en pièce jointe.

Merci en avance et bon week end

Calvus · 4 Mars 2017

Bonsoir pedram0080, le Forum,

Pas trouvé mieux pour l'instant que de déplacer les cellules une par une, par clic à chaque fois.

Regarde si cela te convient en attendant.

Adapté d'un code de Si.

A+

EDIT : Voilà qui est mieux !

VB:

Option Explicit

Sub Deplacer()
    Dim C As Range, valeur As String
Set C = ActiveCell
      valeur = C
      C.Copy
      C.ClearContents
          Do
      Set C = ActiveCell(1, 0)
      C.Select
          Loop Until C(1, 0) <> ""
C = valeur
End Sub

pedram0080 · 4 Mars 2017

Merci Calvus ,
J'ai essayé mais ne fonctionne pas!
je crois ça serais mieux avec "Selection.Delete Shift:=xlToLeft" mais j'arrive pas à l'appliquer
Merci

Calvus · 4 Mars 2017

Re,

Une coquille s'était glissée dans le nom de la macro !
Ça fonctionne maintenant. J'ai remplacé le fichier.
A+

ROGER2327 · 4 Mars 2017

Bonjour à tous.

Il y a sûrement mieux à faire, mais essayez tout de même ceci :

VB:

Sub aaa()
Dim i&, f As Boolean, Ligne As Range, Cel As Range
  Application.EnableEvents = False
  With Selection
    For Each Ligne In .Rows
      With Ligne
        Do
          f = False
          For i = .Cells.Count To 2 Step -1
            If Not IsEmpty(.Cells(1, i)) Then If IsEmpty(.Cells(1, i - 1)) Then .Cells(1, i - 1).Value = .Cells(1, i).Value: .Cells(1, i).Value = Empty: f = True
          Next
        Loop While f
      End With
    Next
  End With
  Application.EnableEvents = True
End Sub

Mode d'emploi : sélectionner la plage à traiter puis exécuter la procédure.

ℝOGER2327
#8510

Mardi 10 Pédale 144 (Nativité de Saint Tancrède, jeune homme - fête Suprême Quarte)
14 Ventôse An CCXXV, 0,2509h - vélar
2017-W09-6T00:36:08Z

mapomme · 4 Mars 2017

Bonsoir pedram0080, à tous ,

pedram0080 à dit:
(...) je crois ça serais mieux avec "Selection.Delete Shift:=xlToLeft" mais j'arrive pas à l'appliquer Merci

Essayer la procédure test après avoir sélectionné la zone à traiter:

VB:

Sub test()
  'sélectionner la plage à traiter
  SupprimerCellulesVides Selection
End Sub

Sub SupprimerCellulesVides(xplage As Range)
On Error Resume Next
  xplage.SpecialCells(xlCellTypeBlanks).Delete xlShiftToLeft
End Sub

DoubleZero · 4 Mars 2017

Bonjour à toutes et à tous,

Une autre suggestion :

VB:

Option Explicit
Sub Décaler()
    Dim plage As Range
    On Error Resume Next
    Set plage = Application.InputBox(Prompt:="Sélectionner les colonnes : (Exemple : a:g) ", _
        Title:="Etendue ? ", Default:="a:g", Type:=8)
    plage.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

A bientôt

pedram0080 · 4 Mars 2017

Merci tout le monde , excellent...

Déplacer les cellules non-vides vers gauche

pedram0080

XLDnaute Occasionnel

Pièces jointes

Calvus

XLDnaute Barbatruc

Pièces jointes

pedram0080

XLDnaute Occasionnel

Calvus

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

pedram0080

XLDnaute Occasionnel

Discussions similaires