problème de version d'excel+ VB 2000 --> 97 !!

[Sim75]

Bonjour,

J'ai un problème de version d'excel:
J'ai fais une maquette sous excel 2000 avec VB il marche super bien, Mais je vais le faire exécuter sous excel 97 ça ne marche pas !!!! :huh:

Dès que je clique sur un bouton il m'affiche :
error d'execution '1004' impossible de définir la propriété Hidden de la classe Range

après je clique sur Débogage il va au code suivant :

Private Sub CommandButton1_Click()
If NB_theme < 7 Then
NB_theme = NB_theme + 1
Worksheets('Analyse des Risques').Rows(20 + NB_theme).Hidden = False Worksheets('Analyse des Risques').Rows(47 + (NB_theme - 1) * 10).Hidden = False [/color]Dim cmp As Integer
For cmp = 0 To 7
Worksheets('Résultats').Rows((13 + (NB_theme - 1) * 10) + cmp).Hidden = False

Pouvez vous m'aider? sans refaire le programme sous excel 97 ?

Merci

 

[MichelXld]

bonjour

sans garantie , tu peux ajouter en début de procédure

Private Sub CommandButton1_Click()
Feuil1.CommandButton1.TakeFocusOnClick = False 'bouton dans feuille
'CommandButton1.TakeFocusOnClick = False 'bouton UserForm
If NB_theme < 7 Then
NB_theme = NB_theme + 1
'...

End Sub



bon apres midi
MichelXld

Message édité par: michelxld, à: 19/05/2005 12:55

 

[Sim75]

Merci

ça marche mais il faut que je modifie tout le programme
J'ai mis ça moi avant :

Private Sub CommandButton1_Click()
If NB_theme < 7 Then
NB_theme = NB_theme + 1

le problème est pas résolu à 100%
mais je verrai

Merci

 

[Sim75]

Merci

ça marche mais il faut que je modifie tout le programme
J'ai mis ça moi avant :

Private Sub CommandButton1_Click()
If NB_theme < 7 Then
NB_theme = NB_theme + 1

le problème est pas résolu à 100%
mais je verrai

Merci