Validation par boutons radio

[aubelix]

Bonjour à tous les amis du Forum. 🙂

Je suis de nouveau confronté à un problème de syntaxe :

En cliquant sur le bouton de la souris sur les cellules C2:C20 affichage d'un userform.
En cochant une option, affichage d'un message de confirmation.
Si sélectionne Ok, et en validant, ajout du nombre d'années séléctionné.
Sinon, rien ne passe et possibilité de faire un autre choix.

C'est en rajoutant ce message de confirmation pour chaque modification que tout s'est gâté.
Pouvez-vous SVP m'aider à corriger le code SVP, car j'ai un problème de syntaxe.

Par avance, merci pour votre aide.
Cordialement.

 

[ledzepfred]

Re : Validation par boutons radio

salut aubelix,

vois si cela te convient, ai utilisé la méthode Dateadd.
ai également lié les boutons radios entre eux afin de n'en avoir qu'un seul de cocher à la fois.

a+

 

[aubelix]

Re : Validation par boutons radio

Bonjour Ledzepfed.

Merci pour ta réponse.
Chez moi, les dates ne se mettent pas à jour correctement.

1) Pour 1 an, date départ : 01/01/2000 > résultat : 24/01/10

2) Pour 2 ans, date départ : 01/01/2000 > résultat : 24/01/11

3) Pour 4 ans, date départ : 01/01/2000 > résultat : 23/01/13

D'ou vient cette anomalie ?

Merci pour ton aide.
Cordialement.

 

[ledzepfred]

Re : Validation par boutons radio

re..,

cela vient du fait que ta formule de départ pour 1 an est

activecell.value= Date + 366

or Date c'est la date du jour soit 23/01/2009 et donc + 366 cela fait 24/01/2010. Il faut que tu écrives activecell.value= activecell + 366.

Dans le code que je t'ai transmis, il faut donc écrire

ActiveCell.Value = Format(DateAdd("d", 366, ActiveCell), "dd/mm/yy")

Même chose pour 2 ans

ActiveCell.Value = Format(DateAdd("d", 731, ActiveCell), "dd/mm/yy")

et 4 ans

ActiveCell.Value = Format(DateAdd("d", 1461, ActiveCell), "dd/mm/yy")

A+

 

[aubelix]

Re : Validation par boutons radio

Re Ledzepfed.

Merci pour ton aide.
Tout esk OK

Bon week-end.
Cordialement.