XL 2016 Copier coller en décalant si cellule vide

[xamenod]

Bonjour, j'ai dans un tableau des cellules vide dans la colonne A, en regard dans la B une valeur. J'ai écrit une macro (qui ne ressemble à rien) pour
copier coller les valeurs de la colonne B vers la colonne C.
Je vous fourni un fichier pour être plus clair.
Merci de votre investissement à nous aider.
Bonne journée

 

[sylvanu]

Bonjour Xamenod,
Un essai en PJ avec :

Sub TRANSPOSE()

    Dim DL%, L%
    Application.ScreenUpdating = False                      ' Ecran figer
    Range("C:c").ClearContents                              ' On efface la col C
    DL = Range("B65500").End(xlUp).Row                      ' Dernière ligne

    For L = DL To 1 Step -1                                 ' Toute les lignes en partant de la fin
        If Cells(L, "A") = "" And Cells(L, "B") <> "" Then  ' Si A vide et B non vide
            Cells(L - 1, "C") = Cells(L, "B")               ' On copie B et C ligne -1
            Range(Cells(L, "A"), Cells(L, "C")).Delete Shift:=xlUp ' On supprime A et B
        End If
    Next L
    
End Sub

 

[xamenod]

Bonjour Xamenod,
Un essai en PJ avec :

Sub TRANSPOSE()

    Dim DL%, L%
    Application.ScreenUpdating = False                      ' Ecran figer
    Range("C:c").ClearContents                              ' On efface la col C
    DL = Range("B65500").End(xlUp).Row                      ' Dernière ligne

    For L = DL To 1 Step -1                                 ' Toute les lignes en partant de la fin
        If Cells(L, "A") = "" And Cells(L, "B") <> "" Then  ' Si A vide et B non vide
            Cells(L - 1, "C") = Cells(L, "B")               ' On copie B et C ligne -1
            Range(Cells(L, "A"), Cells(L, "C")).Delete Shift:=xlUp ' On supprime A et B
        End If
    Next L
   
End Sub

Bonjour Sylvanu,
C'est génial, cela fonctionne, rien à voir avec ce que j'avais fait.
Merci Beaucoup.
Bon après-midi.