Bonjour Ornithorynque,

Essaie avec la fonction Jours(Date_Fin, Date_Début) qui donne la différence en jours séparant ces deux dates. Retourne un entier positif ou négatif selon les dates saisies.

Cordialement,

Guy

Bonjour paskikic et bienvenue au forum,

Petit classeur à tester.

J'ai supprimé la variable globale objate définie comme objet.
L'erreur mentionnée était causée par la méthode d'assignation de valeur avec :

objDate = DateCalendrier

alors qu'il aurait fallu écrire :

Set objDate = DateCalendrier

Mais ce faisant d'autres problèmes seraient apparus...

Bref, j'ai ajouté un événement Clic au formulaire frmCalendrier et cet événement est déclenché sur clic du bouton OK et la date choisie est inscrite dans le contrôle TextBox idoine.

Teste la chose et plus de détails suivront si tu en as besoin.

Cordialement,

Guy

Bonjour toubabou, MANG, Jean-Marie, et bienvenue au forum de Didier,

J'ai zieuté ton classeur et je suis perplexe. Une erreur d'exécution se produit pour une cause évidente mais, bon, c'est gérable. Est-ce que ça fonctionne sans pépins sur ton poste?

Les cases à cocher, les formulaires, l'ajout de personnes. Bien.

Que le formulaire porte, à l'identique, autant de cases à cocher que la feuille de calcul et dans le même état que celles-ci avec autant de personnes que de cases quitte à en faire une jaunisse?

Est-ce bien ça?

Quelques questions toutes simples :

• Que cherches-tu à faire?
• Derrière tes explications, quelle est l'intention opérationnelle?
• Quelles informations veux-tu gérer?
• Dans quel but?

Une fois posé ce cahier des charges rudimentaire, on pourra zieuter la façon de s'y prendre sans s'y laisser prendre.

Cordialement,

Guy

Bonjour Patrick,

J'ai oublié de te souhaiter la bienvenue dans ce forum, voilà qui est fait.

J'ai monté un classeur avec des chaînes de quatre caractères aléatoires sur 30 000 lignes en colonnes A et D.

J'ai fait rouler ton code à plusieurs reprise et l'erreur s'est produite.

Comme un recalcul de la feuille se produit à chaque passe il  arrive que mondico2 soit vide, aucune correspondance entre les colonnes A et D. L'intersection des valeurs portées par ces colonne est vide : mondico2.count = 0

La boucle

    For Each C In Second
      If mondico1.exists(C) Then If Not mondico2.exists(C) Then mondico2.Add C, C
    Next C

ne charge aucune valeur dans mondico2.

L'incompatibilité de type provient de

 [g2].Resize(mondico2.Count, 1) devient [g2].Resize(0, 1)

et

 Application.Transpose(mondico2.items) devient Application.Transpose(Nothing, Rien, Néant)

Avec le classeur sur lequel tu travailles, se pourrait-il que la vacuité du dico2 soit à l'origine de l'erreur?

Cordialement,

Guy

Bonjour gosselien,

J'ai fait rouler ton code mais je n'arrive pas à reproduire l'erreur citée. Pourrais-tu fournir un classeur avec des données qui causent cette erreur?

Cordialement,

Guy

Bonjour Tojo, bonjour Mth,

Ou cette formule aussi : =SOMMEPROD((A1:A4<>"Repos")*1)

Ou encore, s'il y a des espaces avant ou après "Repos" cette formule : =SOMMEPROD((SUPPRESPACE(A1:A4)<>"Repos")*1)

Cordialement,

Guy

Bonjour Arnaud et bienvenu dans ce forum,

Pourrais-tu fournir un lien vers la page web que tu cibles.

http://www.patatorleplusfort.com

ne dit rien à mon navigateur (Adresse introuvable).

Un petit classeur exemple serait tout aussi indiqué.

Cordialement,

Guy

Bonjour Fabrice,

Si tu joignais un petit fichier exemple ce serait plus facile.

Cordialement,

Guy

Bonjour bricean et bienvenue au forum,

Petit classeur qui porte en colonne B une formule pour former aléatoirement des chaînes de la forme Aaa111 et en colonne C la formule qui scinde la précédente en Aaa-111.

J'espère que ceci répond à ta question.

Cordialement,

Guy

Bonjour mimi2a,

Petit classeur avec quelques explications.

En attendant tes commentaires.

Cordialement,

Guy