Fonction split procédure publique - VBA excel

Résolu/Fermé
Zozo - 19 mars 2021 à 09:27
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 19 mars 2021 à 13:21
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
A voir également:

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
19 mars 2021 à 11:30
Bonjour,

Chez moi pas d'erreur..
0
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,
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Zozo
Modifié le 19 mars 2021 à 13:22
Re,

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