Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion mumu
  • 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 !

mumu

XLDnaute Occasionnel
Bonjour le forum,

Je fais encore appel aux bonnes ames du forum pour un souci......
J'ai (encore !!) un problème de syntaxe pour un bout de ma macro :

Code:
Dim w As Integer
Dim s As Integer
w = Sheets("Feuil1").Range("1:1").Find(What:="AAA", LookIn:=xlValues).Column
s = Sheets("Feuil1").Range("1:1").Find(What:="BBB", LookIn:=xlValues).Column
Columns(w, s).Select
Selection.ClearContents

Malheureusement ça plante à la ligne : Columns(w, s).Select

Comment puis-je lui demander de sélectionner les deux colonnes pour effacer le contenu ?

D'avance merci !!!!
@ +

Mumu
 
Re : pb de syntaxe

Salut phlaurent55,

Le problème c'est que w et s sont des chiffres (numéro de colonne) et si je mets des guillemets ça marche pas (je viens d'essayer tes deux propositions).
Je pense que je vais faire comme tu proposes en deux fois ce sera plus simple !!!

Merci !
 
Re : pb de syntaxe

Re,
mea culpa, je rectifie
Code:
Range(Cells(1, w), Cells(15, w)).Select
Selection.ClearContents
ce code te sélectionne les 15 premières cellules de la colonne w et efface le contenu

il te reste à faire la même chose avec ta variable "s"

bonne journée
à+
.
 
Re : pb de syntaxe

ce que je voulais dire c'est que j'arrivais à sélectionner les deux colonnes plutôt qu'une seule en mettant la variable 's' dans la deuxième partie :

Range(Cells(1, w), Cells(15, s)).ClearContents

Ma réponse portait à confusion j'avoue.

Merci !!
 
- 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

Discussions similaires

Réponses
1
Affichages
326
Réponses
2
Affichages
413
Réponses
7
Affichages
377
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…