Ajout d'une ligne automatiquement à la fin d'un tableau
Fermé
bassmart
Messages postés
277
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
30 août 2022
-
25 févr. 2015 à 19:51
bassmart Messages postés 277 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 30 août 2022 - 26 févr. 2015 à 15:16
bassmart Messages postés 277 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 30 août 2022 - 26 févr. 2015 à 15:16
A voir également:
- Ajout d'une ligne automatiquement à la fin d'un tableau
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Tableau croisé dynamique - Guide
- Aller à la ligne excel - Guide
- Ajout rapide snap ✓ - Forum Snapchat
- Retour à la ligne css - Forum CSS
1 réponse
bassmart
Messages postés
277
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
30 août 2022
1
25 févr. 2015 à 22:11
25 févr. 2015 à 22:11
J'ai trouvé un autre code, mais il m'ajoute aussi des lignes entre mes valeurs.
Private Sub worksheet_activate()
Dim lig As Long
Application.ScreenUpdating = False
For lig = ActiveSheet.Cells(Columns(2).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
Range("b8").Select
End Sub
26 févr. 2015 à 15:16
Après plusieurs recherches, voici que ce j'ai trouvé! La macro, ajoute une ligne au bon endroit, c'est-à-dire à la fin de mon tableau, mais elle le fait à chaque fois que j'ouvre la feuille.
Je veux qu'il ajoute une ligne seulement lorsque qu'il me reste une seul ligne vide!
Private Sub worksheet_activate() Dim Ligne As Long nlign = Range("B7").End(xlDown).Row + 1 MsgBox "Et voilà" & nlign If IsError(Range("B7").End(xlDown).Row) Then nlign = 7 Else nlign = Range("B7").End(xlDown).Row + 1 End If If Range("b7:b" & nlign).Value <> "" Then Range("B7:b" & nlign).Select [B1048576].End(xlUp).Select Rows(nlign).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End If Range("b7").Select End SubMerci pour votre aide!