Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Resize

Resize

2 réponses
Avatar
Denys
Bonjour =E0 tous,

Je d=E9sire, =E0 l'aide d'un bouton de commande, effacer la=20
derni=E8re entr=E9e sur ma feuille Excel... de la colonne A =E0=20
la colonne K.

Voici ma macro:

Private Sub CommandButton3_Click()
Application.Goto Range("A4")
Selection.End(xlDown).Select
ActiveCell.Offset(, -11).Resize(, A).ClearContents
Range("A5").Select
End Sub

Excel ne veut pas..... Pourquoi???

Merci beaucoup

Denys
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.M
Salut Denys,

Private Sub CommandButton3_Click()
Range("A4").End(xlDown).Resize(1, 11).ClearContents
End Sub

Salutations,

Daniel M.

"Denys" wrote in message
news:0bf101c3c0d8$40814b30$
Bonjour à tous,

Je désire, à l'aide d'un bouton de commande, effacer la
dernière entrée sur ma feuille Excel... de la colonne A à
la colonne K.

Voici ma macro:

Private Sub CommandButton3_Click()
Application.Goto Range("A4")
Selection.End(xlDown).Select
ActiveCell.Offset(, -11).Resize(, A).ClearContents
Range("A5").Select
End Sub

Excel ne veut pas..... Pourquoi???

Merci beaucoup

Denys
Avatar
Denys
Bonjour Daniel,

Merci beaucoup, ça fonctionne à merveille...

Bonne fin de semaine

Denys

-----Original Message-----
Salut Denys,

Private Sub CommandButton3_Click()
Range("A4").End(xlDown).Resize(1, 11).ClearContents
End Sub

Salutations,

Daniel M.

"Denys" wrote in
message

news:0bf101c3c0d8$40814b30$
Bonjour à tous,

Je désire, à l'aide d'un bouton de commande, effacer la
dernière entrée sur ma feuille Excel... de la colonne A à
la colonne K.

Voici ma macro:

Private Sub CommandButton3_Click()
Application.Goto Range("A4")
Selection.End(xlDown).Select
ActiveCell.Offset(, -11).Resize(, A).ClearContents
Range("A5").Select
End Sub

Excel ne veut pas..... Pourquoi???

Merci beaucoup

Denys


.