Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Ca c'est simple pour vous.
Pas pour moi.
Je demande juste un calendrier comme dans la PJ "Calendrier Personnalié" qui "GLISSE" mais dans une USF.
C'est juste un effet visuel sympa.
Un truc suffisament simple à comprendre pour moi.
Option Explicit
#If VBA7 Then
Private Declare PtrSafe...
Merci Dranreb pour votre patience et votre intèrêt.
Mais le code que vous proposez est une usine à gaz pour le newbie que je suis.
L'ancien fichier que je ne trouve plus était bien plus simple de mémoire.
Cordialement.
Merci Dranreb.
Ce n'est pas ce que je cherche.
J'en avais trouvé un qui répondait exactement (il y a quelques temps) à ce que je souhaite, mais je ne sais pas ce que j'en ai fait...
J'ai d'autres applis qui utilise les calendriers, mais c'est le côté visuel que je trouve interressant.
Bonjour le Forum.
Y a t-il quelqu'un qui pourrait adapter le fichier de Dudu2 (calendrier Personnalisé) à mon classeur exemple?
Ce qui m'intèresse c'est l'utilisation avancée (saisie de 2 dates) mais dans un USF (calendrier "glissant") et en conservant les fonctionnalités (si 2ème date < à 1ère...
Bonjour le Forum.
Y a t-il quelqu'un qui pourrait adapter le fichier de Dudu2 (calendrier Personnalisé) à mon classeur exemple?
Ce qui m'intèresse c'est l'utilisation avancée (saisie de 2 dates) mais dans un USF (calendrier "glissant") et en conservant les fonctionnalités (si 2ème date < à 1ère...
Bonjour Sylvanu.
Le soucis c'est que je ne suis pas le seul à utiliser ce fichier et que certains risquent de supprimer la formule "=NB.SI(Test!A:A;A4)"
Du coup en VBA ils ne peuvent pas faire de c.......
Merci pour l'intérêt.
Bonjour le Forum.
Une demande de plus sur les doublons sans doute mais j'ai cherché sans trouver
Je dois traiter des devis avec de nombreuses lignes qui comportent souvent des doublons.
J'ai "trouvé" un fichier de J. Boisgontier (RIP) mais je ne sais pas l'adapter.
1 - Il fonctionne mais pas...
En fait il me manquait la deuxième partie du code.
Du coup dans mon fichier original:
Sub verification_nom()
If Sheets("Data").Range("B:B").Find(what:=UserForm1.ComboBox2.Value) Is Nothing Then UserForm4.Show
End Sub
et ça marche :)
Cordialement.
Merci TooFatBoy.
Ce n'est pas ce que je cherche.
La Combobox1 ne bougera jamais.
Il n'y a que si je rentre dans la ComboBox2 une valeur qui n'existe pas que la UserForm2 doit s'ouvrir.
C'est ce bout de code dont j'ai besoin.
Cordialement.