Fonction ne marche plus sur excel 2007

A

alainca31

XLDnaute Nouveau
Bonjour
J’ai un programme sur Excel 2003 qui fonctionné bien, depuis que je suis passé sous vista et office 2007 certaine fonction ne marche plus et entre autre celle la :
If modif = "fonct" Then
Set p = formulaire.MultiPage1.Pages(0)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(1)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(2)
p.Enabled = True
Set p = formulaire.MultiPage1.Pages(3)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(4)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(5)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(6)
p.Enabled = False
formulaire.MultiPage1.Value = 2
End If
J’ai à chaque fois le message suivant :
Erreur d’exécution « 13 » incompatibilité de type
Merci de votre aide
 
Trier par date Trier par votes
Pierrot93

Pierrot93

XLDnaute Barbatruc
Re : Fonction ne marche plus sur excel 2007

Bonjour Alain,

"P" est-il bien déclaré et si oui, comment... A priori il devrait l'être ainsi :
Code: 
Dim p As Page

Quelle ligne de code bogue ? Pas facile de te répondre en ne voyant qu'une petite partie de procédure....

bon après midi
@+
 
Vote positif 0 Vote négatif
A

alainca31

XLDnaute Nouveau
Re : Fonction ne marche plus sur excel 2007

J'ai oublié le code
Public Sub typeModif(formulaire As UserForm)
'Préparation du formulaire passé en paramètre en fonction du choix
'des RadiosButtons du UserForm1
Dim p As Page
If modif = "admin" Then
Set p = formulaire.MultiPage1.Pages(0)
p.Enabled = True
Set p = formulaire.MultiPage1.Pages(1)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(2)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(3)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(4)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(5)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(6)
p.Enabled = False
End If
If modif = "agent" Then
Set p = formulaire.MultiPage1.Pages(0)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(1)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(2)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(3)
p.Enabled = True
Set p = formulaire.MultiPage1.Pages(4)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(5)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(6)
p.Enabled = False
formulaire.MultiPage1.Value = 3
End If
If modif = "fonct" Then
Set p = formulaire.MultiPage1.Pages(0)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(1)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(2)
p.Enabled = True
Set p = formulaire.MultiPage1.Pages(3)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(4)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(5)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(6)
p.Enabled = False
formulaire.MultiPage1.Value = 2
End If
If modif = "prod" Then
Set p = formulaire.MultiPage1.Pages(0)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(1)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(2)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(3)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(4)
p.Enabled = True
Set p = formulaire.MultiPage1.Pages(5)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(6)
p.Enabled = False
formulaire.MultiPage1.Value = 4
End If
If modif = "poste" Then
Set p = formulaire.MultiPage1.Pages(0)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(1)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(2)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(3)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(4)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(5)
p.Enabled = True
Set p = formulaire.MultiPage1.Pages(6)
p.Enabled = False
formulaire.MultiPage1.Value = 5
End If
If modif = "serv" Then
Set p = formulaire.MultiPage1.Pages(0)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(1)
p.Enabled = True
Set p = formulaire.MultiPage1.Pages(2)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(3)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(4)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(5)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(6)
p.Enabled = False
formulaire.MultiPage1.Value = 1
End If
If modif = "postprod" Then
Set p = formulaire.MultiPage1.Pages(0)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(1)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(2)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(3)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(4)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(5)
p.Enabled = False
Set p = formulaire.MultiPage1.Pages(6)
p.Enabled = True
formulaire.MultiPage1.Value = 6
End If
End Sub
 
Vote positif 0 Vote négatif
Pierrot93

Pierrot93

XLDnaute Barbatruc
Re : Fonction ne marche plus sur excel 2007

Re,

tu ne dis pas quelle ligne bogue....

tu pourrais également faire ceci :

Code: 
formulaire.MultiPage1.Pages(0).Enabled = True

ton USF est bien chargé en mémoire lorsque tu exécutes ce code ?
 
Vote positif 0 Vote négatif
Pierrot93

Pierrot93

XLDnaute Barbatruc
Re : Fonction ne marche plus sur excel 2007

Re,

je vois ceci dans ta procédure :
Code: 
Public Sub typeModif(formulaire As UserForm)

USF, c'est l'userform.... il doit être passé en argument à ta procédure, et est représenté par la variable "formulare"... logiquement cette variable est initialisée lors du lancement de la procédure....
 
Vote positif 0 Vote négatif
A

alainca31

XLDnaute Nouveau
Re : Fonction ne marche plus sur excel 2007

Bonjour et merci de m'aider
Comment voit-on si USF est bien chargé en mémoire
Quand je suis dans le débogueur P m'indique " nothing"
J'ai ressayé sur Excel 2003 sur un autre poste et ca marche nickel
Cordialement
 
Vote positif 0 Vote négatif
A

alainca31

XLDnaute Nouveau
Re : Fonction ne marche plus sur excel 2007

Bonjour
Je suis désolé de poser des questions idiotes mais ce n'est pas moi qui ai ecrit le programme, mes connaissances en VBA existe mais sont limitées.
Le programme ne bug pas que sur Set p = formulaire.MultiPage1.Pages(0)
Mais aussi sur "Set p = UserForm1.MultiPage1.Pages(0)" du code ci dessous.

'méthode qui active que certaines pages de l'application
'en fonction des droits de l'utilisateur connecté
Public Sub typeUtil()
Dim p As Pages
If id = "util" Then
UserForm1.MultiPage1.Value = 0
' Set p = UserForm1.MultiPage1.Pages(0)
' p.Enabled = True
'Set p = UserForm1.MultiPage1.Pages(1)
'p.Enabled = False
'Set p = UserForm1.MultiPage1.Pages(2)
' p.Enabled = False
' Set p = UserForm1.MultiPage1.Pages(3)
' p.Enabled = False
' Set p = UserForm1.MultiPage1.Pages(4)
' p.Enabled = True
End If
If id = "admin" Then
UserForm1.MultiPage1.Value = 1
' Set p = UserForm1.MultiPage1.Pages(0)
'p.Enabled = True
'Set p = UserForm1.MultiPage1.Pages(1)
' p.Enabled = True
' Set p = UserForm1.MultiPage1.Pages(2)
' p.Enabled = True
' Set p = UserForm1.MultiPage1.Pages(3)
' p.Enabled = True
' Set p = UserForm1.MultiPage1.Pages(4)
'p.Enabled = True
End If
If id = "superadmin" Then
' UserForm1.MultiPage1.Value = 1
'Set p = UserForm1.MultiPage1.Pages(0)
'p.Enabled = True
'Set p = UserForm1.MultiPage1.Pages(1)
' p.Enabled = True
' Set p = UserForm1.MultiPage1.Pages(2)
' p.Enabled = True
'Set p = UserForm1.MultiPage1.Pages(3)
'p.Enabled = True
' Set p = UserForm1.MultiPage1.Pages(4)
' p.Enabled = True
End If
If id = "drh" Then
UserForm1.MultiPage1.Value = 2
' Set p = UserForm1.MultiPage1.Pages(0)
'p.Enabled = False
'Set p = UserForm1.MultiPage1.Pages(1)
' p.Enabled = False
' Set p = UserForm1.MultiPage1.Pages(2)
' p.Enabled = True
' Set p = UserForm1.MultiPage1.Pages(3)
' p.Enabled = False
' Set p = UserForm1.MultiPage1.Pages(4)
' p.Enabled = True
End If
End Sub
 
Vote positif 0 Vote négatif

Discussions similaires

Nicolas JACQUIN
  • Résolu(e)
XL 2021 Combiner plusieurs macros en 1 seule fonction
2 3 4
Réponses
58
Affichages
2 K
Nicolas JACQUIN
Nicolas JACQUIN
D
  • Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
720
AtTheOne
AtTheOne
A
  • Question
XL 2016 Erreur d'exécution 13 Incompatibilité de type
Réponses
14
Affichages
627
Aldonanou
A
gsx-air
  • Question
Microsoft 365 Code qui ne fonctionne pas sur Excel 365
Réponses
13
Affichages
798
Staple1600
Staple1600
GADENSEB
  • Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
634
GADENSEB
GADENSEB
Lu76Fer
  • Question
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
7 K
TooFatBoy
TooFatBoy
PHV.FSM
  • Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
3 K
Nicolas JACQUIN
Nicolas JACQUIN
Z
  • Question
Microsoft 365 Supprimer un doublon en fonction d'une date et d'un numéro
Réponses
0
Affichages
422
Zifox
Z
T
  • Question
Autres Erreur d'exécution 13 - Excel 2007
Réponses
9
Affichages
719
Tsegp
T
Y
  • Question
XL 2019 Copie des données des différentes lignes sur une base de données
Réponses
10
Affichages
974
YANNISE
Y

Membres actuellement en ligne

15 membres et 167 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 629
Messages
2 111 345
Membres
111 109
dernier inscrit
djameldel