Insertion d'une ligne automatique dans Excel - colonne A
Rosa
-
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je voudrais insérer une ligne automatiquement à chaque fois que le compte change dans la colonne A.
J'ai trouver dans une autre discussion un code VBA, mais il s'applique sur les infos de la colonne B.
Je n'arrive pas à identifier ce que je dois changer dans le code pour qu'il s'applique sur les infos de la colonne A.
Public Sub insère_ligne()
Dim lig As Long
Application.ScreenUpdating = False
For lig = ActiveSheet.Cells(Columns(1).Cells.Count, 2).End(xlUp).Row To 2 Step -1
If Cells(lig, 2).Value <> Cells(lig + 1, 2).Value _
And Cells(lig + 1, 2).Value <> "" _
And Cells(lig, 2).Value <> "" Then
Rows(lig + 1).Insert
End If
Next lig
End Sub
Merci d 'avance !!!
Je voudrais insérer une ligne automatiquement à chaque fois que le compte change dans la colonne A.
J'ai trouver dans une autre discussion un code VBA, mais il s'applique sur les infos de la colonne B.
Je n'arrive pas à identifier ce que je dois changer dans le code pour qu'il s'applique sur les infos de la colonne A.
Public Sub insère_ligne()
Dim lig As Long
Application.ScreenUpdating = False
For lig = ActiveSheet.Cells(Columns(1).Cells.Count, 2).End(xlUp).Row To 2 Step -1
If Cells(lig, 2).Value <> Cells(lig + 1, 2).Value _
And Cells(lig + 1, 2).Value <> "" _
And Cells(lig, 2).Value <> "" Then
Rows(lig + 1).Insert
End If
Next lig
End Sub
Merci d 'avance !!!
A voir également:
- Insertion d'une ligne automatique dans Excel - colonne A
- Déplacer une colonne excel - Guide
- Trier colonne excel - Guide
- Aller à la ligne excel - Guide
- Formule somme excel colonne - Guide
- Liste déroulante excel - Guide
1 réponse
Bonjour Rosa
Dans la macro changes tout les 2 (qui désignent la colonne B) en 1(qui désigne la colonne A)
SAUF le 2 dans To 2 Step -1 qui indique la dernière où s'arrêter c'est à dire la ligne 2 puisque la macro part de la dernière ligne remplie (dont le n° est trouvé par ActiveSheet.Cells(Columns(1).Cells.Count, 2).End(xlUp).Row) et remonte (Step -1) jusqu'à la ligne 2 en insérant s'il y a lieu des lignes vides
Cdlmnt
Dans la macro changes tout les 2 (qui désignent la colonne B) en 1(qui désigne la colonne A)
SAUF le 2 dans To 2 Step -1 qui indique la dernière où s'arrêter c'est à dire la ligne 2 puisque la macro part de la dernière ligne remplie (dont le n° est trouvé par ActiveSheet.Cells(Columns(1).Cells.Count, 2).End(xlUp).Row) et remonte (Step -1) jusqu'à la ligne 2 en insérant s'il y a lieu des lignes vides
Cdlmnt