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

  • Initiateur de la discussion Initiateur de la discussion Sim75
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

Sim75

Guest
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
 
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
0
Affichages
1 K
Retour