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

misteryann

XLDnaute Occasionnel
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
 

Pièces jointes

  • Calcul Dates et Liste Alertes Chti160.xlsm
    40.6 KB · Affichages: 38

ChTi160

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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.
 

misteryann

XLDnaute Occasionnel
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.
 

Pièces jointes

  • BdC 2017 Light.xls
    443 KB · Affichages: 36

ChTi160

XLDnaute Barbatruc
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
 

ChTi160

XLDnaute Barbatruc
Re
j'aurais du te joindre le fichier
car j'ai aussi rajouté un procédure a l'ouverture du Userform "Accueil"
VB:
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
 

Pièces jointes

  • BdC 2017 Light.xls
    451.5 KB · Affichages: 35
Dernière édition:

Discussions similaires