Sujet Précédent Sujet Suivant

Insertion ligne - contenu cellules à effacer

abloin Messages postés 30 Statut Membre -  
gbinforme Messages postés 15481 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

A voir également:

1 réponse

Réponse 1 / 1
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 730
 
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
0