Sub Macro2()
Dim DerColonne As Integer
With Worksheets("Feuil1")
DerColonne = .Cells(4, .Columns.Count).End(xlToLeft).Column
.Range(.Cells(4, DerColonne), .Cells(50, DerColonne)).ClearContents
End With
End Sub
Petit bémol avec le code que j'ai transmis.
Si des colonnes de la plage AQ à XFD sont renseignées, la recherche de la dernière colonne renseignée ne pourra pas se faire avec
Juste une petite modif si possible
Sur le code de Frangy qui fonctionne très bien est-il possible d'ajouter a la dernière colonne renseigner sur les parties "K4: AP50" la partie K1: AP1 je m'explique lorsque j'efface la dernière ligne j'aimerai ajouter la première ligne ex:
j'efface la colonne "H" donc j'efface "H1, H4:H50" sans effacer les lignes 2 et 3
Voilà avec la ligne ajoutée dans le code qui efface la cellule de la ligne 1 vis-à-vis la colonne concernées.
Code:
Sub Macro2()
Dim DerColonne As Integer
With Worksheets("Feuil1")
DerColonne = .Cells(4, .Columns.Count).End(xlToLeft).Column
.Range(.Cells(4, DerColonne), .Cells(50, DerColonne)).ClearContents
.Cells(1, DerColonne).ClearContents
End With
End Sub
Voila j'ai un code pour effacer la dernière colonne renseigner sur les parties "K4: AP50" qui marche très bien qui a était réaliser par Gelinotte que je remercie et salut au passage.
Seul petit souci est que la feuille à évoluer et qu'il y a des formules dans les colonnes "AQ4E50" qui se rempli en fonction des cellules "K4: AP50".
Mon problème est-il possible d'effacer la dernière colonne renseigner sur les parties "K4: AP50" sans s'occuper des colonnes "AQ4E50"?