Discussion :

[Halima-BTY]

faut être sur de la du nom de la feuille que tu souhaites utiliser cette page n'existe pas dans le classeur que t'as envoyé !

Code :

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

Sheets("nom de feuille").Range("b3:d1000").ClearContents

Oui effectivement c'était juste l'exemple que j'ai trouvé sur google

[wheel]

J'espere que vous avez écrit le bon code puisque on voit sur la fiche l'exécution qui bloque en même endroit .. en tout cas les noms des feuilles sont affichées à gauche en bas du classeur sur les onglets ..

Il n y a que deux noms valides pour ce classeur :"Historique des options" et "Acceuil" .

[Halima-BTY]

J'espere que vous avez écrit le bon code puisque on voit sur la fiche l'exécution qui bloque en même endroit .. en tout cas les noms des feuilles sont affichées à gauche en bas du classeur sur les onglets ..

Il n y a que deux noms valides pour ce classeur :"Historique des options" et "Acceuil" .

j'ai essayé avec le vrai nom de la feuil mais ça marche toujours pas

[wheel]

Sans monter ce que tu as écrit personne ne pourra t'aider !

vous avez essayé ce code

Code :

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

Sheets("Historique des options").Range("b3:d1000").ClearContents

[Halima-BTY]

Sans monter ce que tu as écrit personne ne pourra t'aider !

vous avez essayé ce code

Code :

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

Sheets("Historique des options").Range("b3:d1000").ClearContents

oui voilà ce que j'ai noté et toujours pas de résultat

Code :

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

1
2
3
4
5
Sub Bouton_histo()
If MsgBox("Êtes vous sûr de vouloir supprimer les feuilles non indispensables ? ", vbYesNo) = vbYes Then
Sheets("Historique des options").Select.Range("A2:o1000").ClearContent
End If
End Sub

[wheel]

Concentre un peu plus sur le reste du code le mot ClearContent sans s a la fin n'est pas correct
en plus tu colle l'instruction Select avec Range ce qui provoque aussi l'erreur

Code :

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

1
2
Sheets("Historique des options").Select
Range("A2:o1000").ClearContents

[Halima-BTY]

Concentre un peu plus sur le reste du code le mot ClearContent sans s a la fin n'est pas correct
en plus tu colle l'instruction Select avec Range ce qui provoque aussi l'erreur

Code :

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

1
2
Sheets("Historique des options").Select
Range("A2:o1000").ClearContents

ah oui c vrai je n'ai pas fais attention merci beaucoup, vous m'avez énormément aider!!
par contre y a juste un petit souci l'historique a bien été efface mais lorsque je fais une nouvelle evaluation normalement elle doit être affiché en A2 mais la elle s'affiche dans la ligne aprés la dernière évaluation avant que l'historique soit efface je vous met une photo pour bien comprendre
sachant que j'ai deux boutons un pour effacer toute l'historique

Code :

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

1
2
3
4
5
6
Sub Bouton_histo()
If MsgBox("Êtes vous sûr de vouloir supprimer les feuilles non indispensables ? ", vbYesNo) = vbYes Then
Sheets("Historique des options").Select
Range("A2:o1000").ClearContents
End If
End Sub

et un autre bouton pour effacer la dernière ligne (il fonctionne très bien)

Code :

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

1
2
3
4
5
6
7
Private Sub efface_ligne_Cliquer()
Dim derligne As Integer
If MsgBox("Êtes vous sûr de vouloir supprimer la dernière option évaluer ? ", vbYesNo) = vbYes Then
ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).EntireRow.Select
Selection.Delete Shift:=xlUp
End If
End Sub