Autres Feuille masquer dans macro

gh4

XLDnaute Occasionnel
bonjour a tous,
j'ai des feuilles de données qui sont masquées par
sheets("feuil1").visible=false la macro plante lorsque
sheets("feuil1").select
Suis je obligé de rendre la feuil1 visible par true a chaque fois que ma macro veut y acceder et apres False pour la remasquer
ou existe t il une autre methode moins contraignante. sachant que plusieurs utilisateurs utilise le prog et que la feuil1 ne doit
subir de modif sans passer par la macro
par avance merci
cdt
 
Solution
Re,
J'ai remplacé :
VB:
Set rRange = .Range([c3], [c4000])
par
Set rRange = .Range("c3", "c4000")

TextBox1 = Cells(ligne, 2)
par
TextBox1 = .Cells(ligne, 2)
et renommer la feuil3 en Test
Et vous pouvez aussi, si vous le voulez supprimer : Sheets("test").Select qui ne sert à rien.

Est ce que cela fait ce que vous voulez ?

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
J'ai remplacé :
VB:
Set rRange = .Range([c3], [c4000])
par
Set rRange = .Range("c3", "c4000")

TextBox1 = Cells(ligne, 2)
par
TextBox1 = .Cells(ligne, 2)
et renommer la feuil3 en Test
Et vous pouvez aussi, si vous le voulez supprimer : Sheets("test").Select qui ne sert à rien.

Est ce que cela fait ce que vous voulez ?
 

Pièces jointes

  • test1 (1).xls
    48.5 KB · Affichages: 1

gh4

XLDnaute Occasionnel
Re,
J'ai remplacé :
VB:
Set rRange = .Range([c3], [c4000])
par
Set rRange = .Range("c3", "c4000")

TextBox1 = Cells(ligne, 2)
par
TextBox1 = .Cells(ligne, 2)
et renommer la feuil3 en Test
Et vous pouvez aussi, si vous le voulez supprimer : Sheets("test").Select qui ne sert à rien.

Est ce que cela fait ce que vous voulez ?
merci beaucoup sylvanu,maintenant il ne me reste plus qu'a adapter mes autres macros avec votre solution
bonne soirée
 

Discussions similaires