Pb select ... casse tête (clos)

[herve62]

Bonsoir
Je n'aime pas trop venir pour ce genre de pb basique , mais je pense avoir respecté les règles la Sub est dans un module et pas dans la feuille du bouton ; Ensuite j'ai extrait cette sub d'un pg qui fonctionnait au bureau l'an passé , donc cela ne va plus , et mise dans un nouveau fichier non plus
Je dois effacer ( couleur, texte ) d'une zone pour x onglets
Après x essais ... je m'énerve !! certainement pour rien

 

[Modeste geedee]

Bonsoir
Je n'aime pas trop venir pour ce genre de pb basique , mais je pense avoir respecté les règles la Sub est dans un module et pas dans la feuille du bouton ; Ensuite j'ai extrait cette sub d'un pg qui fonctionnait au bureau l'an passé , donc cela ne va plus , et mise dans un nouveau fichier non plus
Je dois effacer ( couleur, texte ) d'une zone pour x onglets
Après x essais ... je m'énerve !! certainement pour rien

Sauf erreur au lancement de la macro
la feuil1 est active
la feuil2 n'est pas activée, le Select ne peut s'y effectuer :
With Sheets(k)
.Range("C5:L22").Select

plutôt ceci :
With Sheets(k).Range("C5:L22")
With .Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("M5").Select
End With

 

[herve62]

Ok merci , cela fonctionne , je vais méditer