XL 2021 trouver date anniversaire dans calendrier pour recopie

[Bruce68]

Bonsoir à tous
Dans le fichier ci-joint la macro ne trouve pas date anniversaire de l'année en cours dans le calendrier et je ne pas recopier les infos de l'userform dans la feuil2.
Je vous remercie pour toute votre aide.

 

[sylvanu]

Bonjour Bruce,
Une TextBox renvoie ... un texte, pas un nombre.
Utilisez cette notation pour transformer un texte en date :

If Cells(u, 1) = CDate(Tex_Anni) Then

Cependant ensuite encore pas mal de souci, dont un mélange, je pense, entre les variables k et u.
Mais au moins ce point ne bloque plus.

De plus cette notation n'est pas correcte : W2.Range("A" & u, 2)
Que vouliez vous faire ? que veut dire le ",2" ?

 

[TooFatBoy]

Bonjour,

De plus cette notation n'est pas correcte : W2.Range("A" & u, 2)

Sans oublier W1.Range(Tex_Datenaiss) = W2.Range("A" & u, 2) et suivantes.

Que sont W1 et W2 ???
Et en supposant que W1 soit définie, où est censé pointer W1.Range(Tex_Datenaiss), sachant que Tex_Datenaiss est un texte censé représenter une date (genre "04/02/2026") ?
Même remarque pour les trois ligne de code suivantes.
En supposant que W1 et W2 soit définies et que les paramètres soient corrects, n'est-ce pas l'inverse qu'il faudrait faire ? Autrement dit, est-ce vraiment dans Feuil1 qu'il faut chercher la date, puis écrire dans Feuil2 ???

Bref, sans données, devant tant d'incohérences du code VBA, et sans explications, pas facile de savoir ce que le code est censé faire. 🙁