XL 2013 "copier/coller" de USF qui ne marche pas et erreur 13 (RESOLU)

[misteryann]

Bonjour à toutes et tous.
Voici le problème: le week-end dernier Jean-Marie m'a résolu mon soucis.
Cependant lorsque j'ai copié les USF (avec les modules) vers mon vrai fichier de travail (avec les 2-3 modification de nom de feuille (Feuil1 en feuille "Alertes"))cela ne fonctionne pas.
J'ai essayé vers un classeur vierge et même problème: Erreur 13 - incompatibilité de type.

Y a t-il quelqu'un qui puisse m'en dire plus?
Merci d'avance.
Cordialement.
Misteryann

 

[misteryann]

Précision:
cela semble bloquer au niveau du module 1 :"Public Function Initialise()"

 

[misteryann]

Bonjour.
C'est une colle?

 

[misteryann]

J'ai mis les deux fichiers.
La copie ne fonctionne pas...
Pourquoi?

 

[ChTi160]

Bonsoir
Bonsoir le Fil,Le Forum
Question : comment as tu collé les Userform et autres Modules dans ton Fichier ?
Peux tu essayé de changer le Nom de la procédure "Public Function Initialise()" en "Public Function Initialise_BD()" par exemple , pour voir si c'est pas le Initialise qui pourrait être a l'origine du problème .
chez moi pas de problème même après avoir transféré les Modules et autres Userform , le Bouton "GO" , tu l'as mis comment en le copiant ,en le recréant créant ?
Dans l'attente
donne fin de Soirée
Amicalement
Jean marie

 

[misteryann]

Bonjour Jean-Marie.
Bonjour à toutes et tous.
Pour copier USF et modules j'ai fait un copier/glisser.
Le Bouton "GO" a été créé.

J'ai renommé en Public Function Initialise_BD() ainsi que l'appel de la fonction dans le code de la USF. Mais rien n'y fait.
Bonne journée.

 

[ChTi160]

Bonjour misteryann
Bonjour Le Fil ,Le Forum
quand tu débugues avec la touche F8 sur quelle ligne l'erreur apparaît elle ?
Merci
Bonne journée
Amicalement
Jean marie

 

[ChTi160]

Re
la configuration du tableau dans ton fichier "Pro" est elle la même ?
soit :"A2:Fxxxx" .
Merci
Bonne journée
Amicalement
Jean marie

 

[misteryann]

Merci de prendre à cœur ce problème.
Je vais faire une version édulcorée de mon fichier "PRO 🙂" et le poster.

 

[ChTi160]

Ok
j'attends ! lol
Bonne fin de Journée
Amicalement
Jean marie

 

[misteryann]

Bonjour Jean-Marie.
Voici en PJ le fichier Light.
Tu seras certainement horrifié par la lourdeur des codes, mais mon fichier est bricolé au fur et à mesure du besoin et des recherches sur le web 🙂.
Bonne journée.
Yannick.

 

[ChTi160]

Re Yannick
j'ai trouvé ce qui pourrait être la cause de l'erreur .
Dans la procédure "Function Initialise_BD()"

la Ligne "For Lgn = 2 To UBound(Tab_General, 6) " contient une erreur le 6 doit être remplacé par un 1 .
Cette ligne veux dire , On passe en revue chaque Ligne du Tableau de la deuxième à la Plus élevée UBound(Tab_General, 1) , le 1 représente les Lignes , si on avait eu UBound(Tab_General, 2)
on aurait passé les colonnes en revue
je te laisse tester
Bonne fin de Journée
Amicalement
Jean marie

 

[misteryann]

Re Jean-Marie.
J'ai remplacé le 6 par 1 et cela ne marche pas...🙁

 

[misteryann]

Je met le fichier avec la modif

 

[ChTi160]

Re
j'aurais du te joindre le fichier
car j'ai aussi rajouté un procédure a l'ouverture du Userform "Accueil"

Private Sub UserForm_Initialize()
With Accueil
    .Label1.Caption = Sheets("Liste").Cells(1, 35)
    .Label2.Caption = Sheets("Liste").Cells(1, 37)
    .TextBox2 = Sheets("Alertes").Cells(1, 7)
End With
'***************
  Sort_Feuille     'Ici on remplit et on tri le tableau "Tab_General"
'**************
End Sub

Ps : fichier change "pour éviter une erreur si tableau est vide.
Bonne fin de journée
Amicalement
Jean marie