probleme Worksheet_Activate

[wrap food]

Bonjour,

Voila une macro que je lance depuis un userform qui devrai modofier des feuilles qui on un"Worksheet_Activate()" dans chaque feuille le probleme est que le userfom apparai a chaque changement de feuille

si vous avez la solution

par avance merci

Private Sub OptionButton2_Click()
Sheets("1").Visible = True
Load test
Sheets("2").Visible = True
Load test
Sheets("3").Visible = True
Load test
Sheets("4").Visible = True
Load test
Sheets("5").Visible = True
Load test
Sheets("6").Visible = True
Load test
Sheets("7").Visible = True
Load test
Sheets("8").Visible = True
Load test
Sheets(Array("1", "2", "3", "4", "5", "6", "7", _
"8")).Select
Columns("B:J").Select
Selection.ColumnWidth = 0
Sheets("1").Visible = False
Load test
Sheets("2").Visible = False
Load test
Sheets("3").Visible = False
Load test
Sheets("4").Visible = False
Load test
Sheets("5").Visible = False
Load test
Sheets("6").Visible = False
Load test
Sheets("7").Visible = False
Load test
Sheets("8").Visible = False
Load test
Range("A1").Select
End Sub

 

[job75]

Re : probleme Worksheet_Activate

Bonsoir wrap food,

Pourquoi pas simplement ceci :

Private Sub OptionButton2_Click()
Dim i As Byte
For i = 1 To 7
Sheets(CStr(i)).Columns("B:J").ColumnWidth = 0
Next
End Sub

Ainsi on n'active pas les feuilles...

A+

 

[wrap food]

Re : probleme Worksheet_Activate

Merci Job 75

et si je veux faire l'inversse (donner une taille aux colones) je fais comme ça. ?

Private Sub OptionButton2_Click()
Dim i As Byte
For i = 1 To 7
Sheets(CStr(i)).Columns("B").ColumnWidth = 10
Sheets(CStr(i)).Columns("c").ColumnWidth = 12
Sheets(CStr(i)).Columns("d").ColumnWidth = 5
Sheets(CStr(i)).Columns("e").ColumnWidth = 7
Sheets(CStr(i)).Columns("f").ColumnWidth = 10
Sheets(CStr(i)).Columns("h").ColumnWidth = 4
Sheets(CStr(i)).Columns("g").ColumnWidth = 8
Sheets(CStr(i)).Columns("i").ColumnWidth = 5
Sheets(CStr(i)).Columns("j").ColumnWidth = 10
Next
End Sub

merci

 

[job75]

Re : probleme Worksheet_Activate

Re,

Tout à fait, et on peut aussi faire ça :

Private Sub OptionButton2_Click()
Dim col, L, i As Byte, j As Byte
col = Array(2, 3, 4, 5, 6, 7, 8, 9, 10)
L = Array(10, 12, 5, 7, 10, 4, 8, 5, 10)
For i = 1 To 7
  For j = 0 To UBound(col)
    Sheets(CStr(i)).Columns(col(j)).ColumnWidth = L(j)
  Next
Next
End Sub

A+

 

[wrap food]

Re : probleme Worksheet_Activate

merci job75

petite question encore

je n' arrive pas a le faire sur un autre fichier
je mis ça comme code

Private Sub OptionButton10_Click() 'caisse 10 moins
Dim i As Byte
For i = 1 To JOURS ( 32 feuilles de 1 à JOURS)
Sheets(CStr(i)).Columns("BD:BN").ColumnWidth = 0
Next
End Sub

j' ai fais une erreur quelque part ??