pb de syntaxe

[mumu]

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 :

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

 

[phlaurent55]

Re : pb de syntaxe

Bonjour Mumu

essaie avec un : ( double-point) entre w et s

ou alors efface une après l'autre au lieu de vouloir faire les deux dans unemême instruction

 

[phlaurent55]

Re : pb de syntaxe

Re,
ou alors

    Range("w:w,s:s").Select
Selection.ClearContents

 

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

 

[phlaurent55]

Re : pb de syntaxe

Re,
mea culpa, je rectifie

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
à+
.

 

[mumu]

Re : pb de syntaxe

Hum....
Ta proposition me plait bien en l'adaptant au véritable nombre de cellule de ma colonne.

Merci pour ce coup de main !!!

Bonne journée !

Mumu

 

[mumu]

Re : pb de syntaxe

Si je peux me permettre je gagne une ligne en écrivant :

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

Merci encore !

 

[phlaurent55]

Re : pb de syntaxe

Re,

Si je peux me permettre je gagne une ligne en écrivant :

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

Merci encore !

Erreur, avec cette ligne de code, tu n'efface rien

pour faire en une seule instruction,

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

 

[mumu]

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