Fonction split procédure publique - VBA excel [Résolu]

Signaler
-
Messages postés
15808
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 juin 2021
-
Bonjour,

J'ai un problème avec le code suivant qui fonctionne parfaitement bien quand je le lance au sein d'une procédure privée.

Cependant celui-ci ne fonctionne plus dans une procédure publique et je ne comprends pas pourquoi.


I_P2() = Split(Cells(9, 1).Offset(0, 5).Value)
I_P2_Valeur() = Split(Cells(9, 1).Offset(0, 6).Value)
For z = LBound(I_P2) To UBound(I_P2) Step 2
Nbr_I_P2 = Nbr_I_P2 + 1
SaveSetting "Création BDD", "Indices", "Indice P2 " & "n°" & Nbr_I_P2, I_P2(z)
SaveSetting "Création BDD", "Indices", "Valeur Indice P2 " & "n°" & Nbr_I_P2, I_P2_Valeur(z)
Next z


I_P2() et I_P2_Valeur() sont déclarés en String.
Nbr_I_P2 et z sont déclarés en Integer.

Excel m'indique une erreur d'incompatibilité de type sur la première ligne.
Merci de m'éclaircir.

Configuration: Windows / Chrome 89.0.4389.90

1 réponse

Messages postés
15808
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 juin 2021
1 504
Bonjour,

Chez moi pas d'erreur..
En effet, l'erreur se déclenchait parce que dans mon module où je déclare mes variables publiques, celles-ci étaient déclarées sur une même ligne :

"Public I_P1(), I_P1_Valeur(), I_P2(), I_P2_Valeur(), I_P3(), I_P3_Valeur(), I_R1(), I_R1_Valeur(), I_R2(), I_R2_Valeur() As String"

En modifiant pour déclarer les variables "I_P2()" et "I_P2_Valeur()" distinctement par ligne le bug ne se déclenche plus...

Je ne comprends pas pourquoi mais désormais mon programme fonctionne.

Merci et au temps pour moi,
Messages postés
15808
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 juin 2021
1 504 > Zozo
Re,

Vous n'avez pas besoin des parentheses dans votre declaration de variables I_XXX