ou est l'erreur , vba

[VBA_première_fois]

qui peut me dire ou se trouve l'erreur
je souhaite supprimer tout le contenue de la feuille 1

Sheets("feuil1").Range("A1" & Rows.Count).End(xlUp).ClearContents

merci a+

 

[Sofhy]

Re : ou est l'erreur , vba

Bonjour,

Pas assez confirmée en Vba pour corriger ton code, mais tu peux utiliser ceci pour effacer tout le contenu de la feuille 1.

Sub effect()
    Sheets("Feuil1").Cells.Select
    Selection.Clear
End Sub

A++
Sofhy

 

[Compte Supprimé 979]

Re : ou est l'erreur , vba

Salut,

Ah ben non ... c pas ça du tout ...

Erreur dans le code pour commencer

Sheets("feuil1").Range("A[COLOR=red][B]1[/B][/COLOR]" & Rows.Count).End(xlUp)

Ensuite

Sheets("feuil1").Range("A" & Rows.Count).End(xlUp)

Permet de déterminer la dernière cellule remplie de la colonne "A"
Mais il faut ajouter .Row à la fin pour récupérer le numéro de ligne

Pour effacer tout les cellules de la feuilles

Sheets("Feuil1").Cells.ClearContents

A+

Edit : oups y'a du monde sur le fil ... bonjour à tous
IL SERAIT SYMPA D'EXPLIQUER LE POURQUOI EGALEMENT !

 

[VBA_première_fois]

Re : ou est l'erreur , vba

salut
o fait moi je ne souhaite pas effacer toutes les cellules de ma feuille ,
d'ailleur je voulais garder les lignes , 1,2,3,4 et 5 intacte ( car elles contiennent des données fixes)
du coup si je corrige mon code ça donne

Sheets("feuil1").Range("A" & Rows.Count).End(xlUp).Row

mais comment faire pour garder lignes 1,2,3,4 et 5 ? (selectionner puis supprimer tout sans les toucher)
a+

 

[Compte Supprimé 979]

Re : ou est l'erreur , vba

Re,

Masterdisco, si je puis me permettre petite une petite rectification

Sheets(1).Range("6:" & [B][COLOR=blue]Rows.Count[/COLOR][/B]).ClearContents

Rows.Count Suffit

Merci pour les explications

A+

 

[VBA_première_fois]

Re : ou est l'erreur , vba

masterdisco merci pour les explications , ça m a permis d'ouvrir les yeux sur des erreurs dans tout mon code

BrunoM45

a+