Explication macro Fermé

Question

Bonjour à tous,

J'ai créé ce petit bout de code le mois dernier mais je suis incapable de retrouver ce que j'ai écrit pour le modifier.
Pouvez-vous m'aider à la décomposer pas à pas ?
J'aimerai y ajouter le copier/coller du contenu de mes colonnes quand la macro créer les lignes.

Sub ..()

Dim lig&, lig1&, col%
Application.ScreenUpdating = True

For lig = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
  lig1 = lig + 1
  col = 26
  While Cells(lig, col) <> ""
    Rows(lig1).Insert
    Cells(lig1, 1) = Cells(lig, 1)
    Cells(lig1, 26) = Cells(lig, col)
    lig1 = lig1 + 1
    col = col + 1
  Wend
Next
[AA:AA].Resize(, Columns.Count - 26).ClearContents

End Sub
Merci d'avance !

silver · Answer

Bonjour,

Est-ce cela que tu souhaite faire ?

Sub test()Dim lig, lig1, col As IntegerApplication.ScreenUpdating = False ' Desactive l'affichage des opérations pour gagner du tps d'éxécutionFor lig = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 'de la derniere ligne à la premiere ligne  lig1 = lig + 1 ' Selection de la derniere ligne (vide)  col = 26 ' Colonne Z  Rows(lig1).Insert ' Insere une ligne X à la fin  Rows(lig1 - 1).Copy ' Copie la ligne précédente  Range("A" & lig1).Select  ActiveSheet.Paste ' Colle les valeurs sur la ligne crééeNext[AA:AA].Resize(, Columns.Count - 26).ClearContents ' Efface toutes les colonnes à partir de AAApplication.ScreenUpdating = True ' Réactive l'affichage des opérationsEnd Sub

Explication macro

1 réponse

Discussions similaires