Excel- Explication effacement de zone - Page 2

Bonsoir,
Alors là j'étais certain de recevoir cette réponse.
La procédure complète ....!
Qu'elle est le message d'erreur exact ?
Ou se trouve la procédure, dans le MODULES ou dans celui de la feuille (Feuil1) ?
Qu'elle est la valeur de la variable [livide] ?

Voici le lien.
La procédure se trouve sur le bouton nommé "Remise à zero".
Voici le code:
Private Sub cmdeffacer_Click()
' compteur bat a-b + salle 'RAZ
Range("bata") = 0
Range("batb") = 0
Range("salvideo") = 0
Range("salchimie") = 0
Range("salinfo") = 0
Range("B1").Value = 3
indente = 0
Range("C1") = indente
flagPlac = False

' LE PB EST ICI !!
livide = Sheets("feuil1").Cells(Columns(1).Cells.Count, [“A”]).End(xlDown).Row + 1
Sheets("feuil1").Range(Cells(3, 1), Cells(livide, 1)).ClearContents

' la plage des agencement colonne K dés ligne 4
covide = Range("IV3").End(xlToLeft).Column
Range(Cells(4, 11), Cells(Cells(1, 1), covide)).ClearContents 'efface tout apres (4,11)
Cells(1, 1) = 4 'defini la ligne de départ d'affichage de l'agencement
End Sub

Bonjour,

La procédure complète ....! = oui, Merci

Et ou sont les réponses aux 3 autres points ?
1.- Qu'elle est le message d'erreur exact ?
2.- Ou se trouve la procédure, dans le MODULES ou dans celui de la feuille (Feuil1) ?
3.- Qu'elle est la valeur de la variable [livide] ?

Bonjour,

Je suis désolé j'étais fatigué hier soir et le lien n'est pas passé, sinon vous auriez eu les réponses à vos questions. je remets le lien ici:

https://www.cjoint.com/?bFnpWPVQK7

Sinon, j'ai recopié le code de Gilles du poste 3. Ca marche mais pas dans la feuil1.
Alors j'ai essayé d'adapter ainsi:
Sheets("Feuil1").Range("A3").Select 'Effacement zone feuil1
Selection.End(xlDown).Select
x = ActiveCell.Row
Sheets("Feuil1").Range("A3:M" & x).Select
Selection.ClearContents

Mais j'ai un message d'erreur: "erreur d'éxécution1004, erreur définie par l'application ou par l'objet"

Je suis sur que ça tien à peu de chose. Mais quoi?

Merci de votre aide

Bonjour,
La procédure se trouvant dans un module de feuille et vous voulez effacer les valeurs sur une autre feuille les 2 lignes deviennent :
livide = Sheets("Feuil1").Cells(Columns(1).Cells.Count, ["a"]).End(xlUp).Row + 1
Sheets("Feuil1").Range("A3:A" & livide).ClearContents

Bonjour,
Petit complément pour l’écriture du code si l’on se réfère à une autre feuille, c’est plus propre de cette manière :

With Sheets("Feuil1")
    livide = .Cells(Columns(1).Cells.Count, ["A"]).End(xlUp).Row + 1
    .Range(.Cells(3, 1), .Cells(livide, 1)).Clear
    End With

Désolé, j’étais un peu dans les nuages … !