Effacer données

Bonjour,

Mes connaissances étant limitées en matière d'écriture langage VBA,

Est il possible d'avoir votre aide,

Je souhaiterai effacer avec un bouton associer à une MACRO, des données d'une feuille excel

Ces données se trouvent de la cellule A2 à J100 voire plus - A2 à J......INDEFINI

Est ce possible ??

Merci de votre aide

Et félicitation pour votre site

Bien cordialement

Fabien

Bonjour Fabien,

Voici ci dessous un code qui te permet de supprimer le contenu de ta plage de cellule entre A2 et J[Indéfini]

Sub DeleteRows()
Dim x As Long
x = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:J" & x).ClearContents
End Sub

Avec x, tu compte le nombre de ligne non vide de ta colonne A et ensuite tu supprime le contenu de A2 à Jx

Restant à ta disposition si tu a des questions

Bonjour cette fonctionnalité tien en une seule ligne :

    Range("A2:J" & Range("A:A").Rows.Count).ClearContents

Je te laisse l'incorporer où tu veux ^^

avec mes remerciements

Je vais essayer les deux formules

Merci également pour votre rapidité de réponse

J'ai modifié mon code, celui d'avant supprimait toutes les lignes jusqu'à la première ligne vide en A, maintenant il supprime vraiment de A2 à JVraimentBeaucoup

MERCI à vous

cela fonctionne à merveille

J'avais opté pour le code à JUICE

Par contre en appuyant (par mégarde)une seconde fois sur le bouton que j'ai crée pour effacer les informations, cela me supprime également les titres de la première ligne

Merci à vous

Fabien67 a écrit :

MERCI à vous

cela fonctionne à merveille

J'avais opté pour le code à JUICE

Par contre en appuyant (par mégarde)une seconde fois sur le bouton que j'ai crée pour effacer les informations, cela me supprime également les titres de la première ligne

Merci à vous

Mon code ne prendra jamais la première ligne puisque la selection commence en A2

Bonjour Chbouli04

Est comment l'incorporer ???

Et surtout ou l'intégrer au code VBA de JUICE ???

Bonjour à tous,

autre solution :

Sub DeleteRows()
  Dim dlig&: dlig = Cells(Rows.Count, "A").End(xlUp).Row
  If dlig > 1 Then Range("A2:J" & dlig).ClearContents
End Sub

dhany

VBA de Juice :

Sub DeleteRows()
Dim x As Long
x = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:J" & x).ClearContents
End Sub

Avec ma ligne :

Sub DeleteRows()
Range("A2:J" & Range("A:A").Rows.Count).ClearContents
End Sub

Merci à tous pour vos réponses rapides

J'ai opté, pour le code à Dhany

Fonctionne à merveille

Félicitations à tous

merci pour ton retour ! bonne continuation !

dhany