Discussion :

[maxval18]

Bonjour,

Voila j'ai un code pour effacer la dernière colonne renseigner sur les parties "K4: AP50" qui marche très bien .
Seul petit souci est que la feuille à évoluer, et que j'ai des colonnes auquel il y a des formules et qu'il ne faut pas effacer, les colonnes "AQ4:E50" qui se rempli en fonction des cellules "K4: AP50".
Mon problème est-il possible d'effacer la dernière colonne renseigner uniquement sur les parties "K4: AP50" sans s'occuper des colonnes "AQ4E50"?

mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Macro288()
 
 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

D'avance merci à qui pourra m'aider.
Cordialement

Maval

[gFZT82]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Macro288()
 Dim DerColonne As Integer
     With Worksheets("Feuil1")
          DerColonne = .Cells(4, 11).End(xlToRight).Column
         .Range(.Cells(4, DerColonne), .Cells(50, DerColonne)).ClearContents
         .Cells(1, DerColonne).ClearContents
     End With
End Sub

Cordialement.

[maxval18]

Bonjour,

Je te remercie beaucoup et te souhaite une bonne journée

Max