Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

ou est l'erreur , vba

  • Initiateur de la discussion Initiateur de la discussion VBA_première_fois
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

V

VBA_première_fois

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

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

merci a+
 
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.

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

A++
Sofhy
 
Re : ou est l'erreur , vba

Salut,

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

Erreur dans le code pour commencer
Code:
Sheets("feuil1").Range("A[COLOR=red][B]1[/B][/COLOR]" & Rows.Count).End(xlUp)
Ensuite
Code:
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
Code:
Sheets("Feuil1").Cells.ClearContents

A+

Edit : oups y'a du monde sur le fil ... bonjour à tous
IL SERAIT SYMPA D'EXPLIQUER LE POURQUOI EGALEMENT !
 
Dernière modification par un modérateur:
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
HTML:
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+
 
Re : ou est l'erreur , vba

Re,

Masterdisco, si je puis me permettre petite une petite rectification
Code:
Sheets(1).Range("6:" & [B][COLOR=blue]Rows.Count[/COLOR][/B]).ClearContents

Rows.Count Suffit 😉😀

Merci pour les explications

A+
 
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
15
Affichages
782
Réponses
14
Affichages
484
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…