Spitnolan08
XLDnaute Barbatruc
Bonsoir le forum,
et les amis toujours présents
J'ai un souci qui me fait devenir chèvre : j'ai écrit un code avec la fonction split qui fonctionne très bien dans un fichier mais qui bogue dans un autre sans raison apparente.
Erreur de compilation :
Nombre d'arguments incorrect ou affectation de propriété non valide (erreur 450)
J'ai donc créé une macro en test dans un fichier qui contient les feuilles sources utilisées pour la fonction SPlit et tout fonctionne normalement.
Puis j'ai déplacé (copier-coller) cette macro dans le nouveau fichier qui contient mes userform avec lesquels cette macro doit être mise en oeuvre et là ça bogue !
En fait, la fonction Split n'est plus reconnue par VBA !
Le S de Split se transforme en minuscule et je ne peux même pas lancer la macro. Alors que le reste du code se déroule normalement si je neutralise la ligne contenant Split.
J'ai vérifié les bibliothèques : dans le nouveau classeur, les mêmes références sont cochées et il yen a même plus ...
Je n'ai pas mis d'Option Explicit dans un classeur et pas dans l'autre.
J'ai déjà fait de nombreuses tentatives mais aucune ne résout le problème
Avez vous une idée ???
Je vous met le code, à tout hasard, mais je ne pense pas que la solution vienne de là puisqu'il fonctionne ailleurs.
Merci de votre aide
et les amis toujours présents
J'ai un souci qui me fait devenir chèvre : j'ai écrit un code avec la fonction split qui fonctionne très bien dans un fichier mais qui bogue dans un autre sans raison apparente.
Erreur de compilation :
Nombre d'arguments incorrect ou affectation de propriété non valide (erreur 450)
J'ai donc créé une macro en test dans un fichier qui contient les feuilles sources utilisées pour la fonction SPlit et tout fonctionne normalement.
Puis j'ai déplacé (copier-coller) cette macro dans le nouveau fichier qui contient mes userform avec lesquels cette macro doit être mise en oeuvre et là ça bogue !
En fait, la fonction Split n'est plus reconnue par VBA !
Le S de Split se transforme en minuscule et je ne peux même pas lancer la macro. Alors que le reste du code se déroule normalement si je neutralise la ligne contenant Split.
J'ai vérifié les bibliothèques : dans le nouveau classeur, les mêmes références sont cochées et il yen a même plus ...
Je n'ai pas mis d'Option Explicit dans un classeur et pas dans l'autre.
J'ai déjà fait de nombreuses tentatives mais aucune ne résout le problème
Avez vous une idée ???
Je vous met le code, à tout hasard, mais je ne pense pas que la solution vienne de là puisqu'il fonctionne ailleurs.
Code:
For i = 3 To 12
Y = Split(WbBDVenteShBDFact.Cells(k, i + 3), "|", -1)
.Activate
.Range(Cells(i, 57), Cells(i, 78)).ClearContents '***Efface les données préexistantes de la zone de saisie avant la nouvelle saisie
For j = 0 To UBound(Y) - 1
On Error Resume Next '***Traite le cas d'une cellule vierge ou ne contenant qu'une seule valeur de la base de départ
.Cells(i, 57 + j) = Y(j)
Next j
Next i
Merci de votre aide