XL 2016 Copier coller en décalant si cellule vide

xamenod

XLDnaute Junior
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
 

Pièces jointes

  • TEST.xlsm
    14.3 KB · Affichages: 14

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Xamenod,
Un essai en PJ avec :
VB:
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
 

Pièces jointes

  • TEST (30).xlsm
    16.7 KB · Affichages: 2

xamenod

XLDnaute Junior
Bonjour Xamenod,
Un essai en PJ avec :
VB:
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.
 

Statistiques des forums

Discussions
311 729
Messages
2 081 974
Membres
101 854
dernier inscrit
micmag26