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

herve62 · 6 Décembre 2018

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 · 6 Décembre 2018

herve62 à dit:
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 · 6 Décembre 2018

Ok merci , cela fonctionne , je vais méditer

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

herve62

XLDnaute Barbatruc

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

herve62

XLDnaute Barbatruc

Discussions similaires