Mise en forme automatique via copier coller

[sebos]

Je souhaite réaliser une mise en forme automatique d'un fichier . La cellule inferieur doit etre couper et coler sur la colonne
d'a coté, et ceci pour toute les lignes du fichier excepté pour les cellules contenant l'info Titre

A
2
B
7
Titre
C
8

doit devenir
A 2
B 7
Titre
C 8

Le vba editor donne :

Range("A2").Select
Selection.Cut
Range("B1").Select
ActiveSheet.Paste

Il convient ensuite de boucler tout ça ...

 

[Robert]

Re : Mise en forme automatique via copier coller

Bonsoir Sebos, bonsoir le forum,

Peut-ête comme ça :

Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim i As Long 'déclare la variable i (Incrément)

dl = Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne de la colonne A
For i = dl To 1 Step -1 'boucle inversée de la dernière ligne dl à la première
    'condition : si la cellule n'est pas une valeur numérique et si elle est différente de "Titre"
    If IsNumeric(Cells(i, 1).Value) = False And Cells(i, 1).Value <> "Titre" Then
        Cells(i, 2).Value = Cells(i + 1, 1).Value 'récupère dans la colonne B la valeur de la cellule en dessous
        Rows(i + 1).Delete shift:=xlShiftUp 'supprime la ligne en dessous
    End If 'fi de la condition
Next i 'prochaine ligne de la boucle
End Sub

 

[sebos]

Re : Mise en forme automatique via copier coller

Bonjour,

Merci la macro fonctionne nickel