Insertion ligne - contenu cellules à effacer
abloin
Messages postés
30
Statut
Membre
-
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Voici la macro que j'ai utilisé pour créer une ligne à la fin de mon tableau.
Le problème maintenant, je souhaite effacer certaines cases de cette dernière ligne pour laisser le champ libre pour être renseigné par quelqu'un (sinon j'ai 2 lignes exactement identiques en fin de tableau...).
Merci d'avance pour votre aide.
Abloin
'macro utilisé pour créer une nouvelle ligne
'Aller en A7
Range("A7").Select
'Tester si la cellule de dessous est vide, si non descendre d'une ligne
While ActiveCell.Offset(1, 0).Value <> ""
ActiveCell.Offset(1, 0).Select
Wend
'Quand la dernière valeur du tableau est trouvée, sélectionner le nombre de colonnes concernées
ActiveCell.Range("A1:Q1").Select
'Recopier le contenu sur une ligne vers le bas
Selection.AutoFill Destination:=ActiveCell.Range("A1:Q2"), Type:=xlFillDefault
Voici la macro que j'ai utilisé pour créer une ligne à la fin de mon tableau.
Le problème maintenant, je souhaite effacer certaines cases de cette dernière ligne pour laisser le champ libre pour être renseigné par quelqu'un (sinon j'ai 2 lignes exactement identiques en fin de tableau...).
Merci d'avance pour votre aide.
Abloin
'macro utilisé pour créer une nouvelle ligne
'Aller en A7
Range("A7").Select
'Tester si la cellule de dessous est vide, si non descendre d'une ligne
While ActiveCell.Offset(1, 0).Value <> ""
ActiveCell.Offset(1, 0).Select
Wend
'Quand la dernière valeur du tableau est trouvée, sélectionner le nombre de colonnes concernées
ActiveCell.Range("A1:Q1").Select
'Recopier le contenu sur une ligne vers le bas
Selection.AutoFill Destination:=ActiveCell.Range("A1:Q2"), Type:=xlFillDefault
1 réponse
-
bonjour
Si tu veux effacer les données en gardant les formules tu rajoutes :
Selection.Offset(1).SpecialCells(xlCellTypeConstants).ClearContents
Tu peux aussi simplifier ta procédure ainsi :
Public Sub ligne_en_plus() Dim derlig As Long ' dernière ligne derlig = Cells(Columns(1).Cells.Count, "A").End(xlUp).Row 'colonne A Rows(derlig).Resize(2).FillDown ' ajout ligne Rows(derlig + 1).SpecialCells(xlCellTypeConstants).ClearContents ' efface valeurs et garde formules End Sub
