Fonction ne marche plus sur excel 2007

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion alainca31
  • 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'inscrire
A

alainca31

Guest
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
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
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
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
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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

N
  • Question Question
XL 2010 fichier généré par IA ne fonctionne pas ( RESOLU )
2
Réponses
16
Affichages
894
n_turf
N
Eric 888
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
126
Eric 888
Eric 888
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
3 K
kiki29
kiki29
lynyrd
  • Résolu(e)
XL 2016 Supprimer 1 sur 13
Réponses
6
Affichages
422
lynyrd
lynyrd
oguruma
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
oguruma
cathodique
  • Résolu(e)
XL 2010 Mauvaise utilisation de la fonction InStr
Réponses
11
Affichages
972
jurassic pork
jurassic pork
Nicolas JACQUIN
  • Résolu(e)
XL 2021 Combiner plusieurs macros en 1 seule fonction
2 3 4
Réponses
58
Affichages
3 K
Nicolas JACQUIN
Nicolas JACQUIN
piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
872
piga25
piga25
D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
2 K
AtTheOne
AtTheOne
Jojo973
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
711
Jojo973
Jojo973
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
649
JJ69
J
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
1 K
laurent950
laurent950
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
834
guiyom
G
Lu76Fer
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
891
Lu76Fer
Lu76Fer
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
651
ZiM
Z
gsx-air
  • Question Question
Microsoft 365 Code qui ne fonctionne pas sur Excel 365
Réponses
13
Affichages
1 K
Staple1600
Staple1600
GADENSEB
  • Question Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
962
GADENSEB
GADENSEB
Lu76Fer
  • Résolu(e)
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
10 K
TooFatBoy
TooFatBoy
L
  • Question Question
Microsoft 365 VBA sur outlook
Réponses
14
Affichages
1 K
lesoldat9
L
K
  • Question Question
XL 2013 Worksheet_change copier/coller sur un autre classeur
Réponses
6
Affichages
1 K
Dafaka7
D
Retour