Bonjour,
Dans mon userform, j'ai des cases à cocher 24 mois et 36 mois.
Cependant, je souhaiterais maintenant ajouter 48 mois.
Comment faire ? Que dois-je ajouter dans ma formule ???

If IsDate(DateDécision.Value) Then
    Range("M" & Derlig).Value = DateAdd("m", IIf(opt24.Value, 24, 36), DateDécision.Value)
End If

Merci d'avance.

Bonjour kelly,

comme tu as maintenant 3 conditions, il faut passer par une condition If.... Then ....ElseIf .... End If:

Bonjour et merci beaucoup Skoobi !

J'ai encore une petite question : mes montants se mettent bien dans la colonne cependant, ça ne met pas automatiquement en format "# ###". Il faut à chaque fois que je sélectionne "format + cellule" et m'inscrit "nombre stocké sous forme de texte" ! Y a t-il un moyen pour que cela se fasse automatiquement ????
Merci encore !

Dans ce cas, il faut appliquer le format avant d'écrire dans la cellule comme ceci:

Merci encore Skoobi!

Le problème c'est que les montants désirés sont dans une autre colonne.

J'ai donc essayé ceci (en gras) mais cela ne fonctionne pas !!

Private Sub Valider_Click()
Dim Derlig As Long
Derlig = Range("A700").End(xlUp).Offset(1, 0).Row
Range("A" & Derlig).Value = NumConvention
Range("B" & Derlig).Value = ChargeOperations
Range("C" & Derlig).Value = Nom
Range("D" & Derlig).Value = NumAttributaire
Range("E" & Derlig).Value = Dept
Range("F" & Derlig).Value = Travaux
Range("G" & Derlig).Value = Nature
Range("H" & Derlig).Value = DateDecision
Range("K" & Derlig).Value = NumberFormat("# ###", MontantTrav.Value)
Range("L" & Derlig).Value = NumberFormat("# ###", MontantAide.Value)
Range("M" & Derlig).Value = TauxAide
Range("O" & Derlig).Value = NumberFormat("# ###", MontantAvance.Value)
Range("P" & Derlig).Value = TauxAvance

If IsDate(DateDecision.Value) Then
    If opt24.Value Then
    Range("J" & Derlig).Value = DateAdd("m", 24, DateDecision.Value)
  ElseIf opt36.Value Then
    Range("J" & Derlig).Value = DateAdd("m", 36, DateDecision.Value)
  ElseIf opt48.Value Then
    Range("J" & Derlig).Value = DateAdd("m", 48, DateDecision.Value)
  End If
End If
 
et dans ma feuille, j'ai ceci :

Private Sub Nouvconvention_Click()
'Ouvrir un formulaire de saisie
With UserForm1
    .NumConvention.Text = ""
    .Nature.Text = ""
    .Nom.Text = ""
    .ChargeOperations.Text = ""
    .NumAttributaire.Text = ""
    .Dept.Text = ""
    .DateDecision.Text = ""
    .Travaux.Text = ""
    .MontantTrav.Text = ""
    .MontantAide.Text = ""
    .TauxAide.Text = ""
    .MontantAvance.Text = ""
    .TauxAvance.Text = ""
    End With
UserForm1.Show
End Sub

et dans ma colonne "A" ce sont également des chiffres !

Que me manque t-il ? Qu'est-ce qui bloque ???
Merci d'avance.

Bonjour,

enlève ce qui est en rouge, numberformat est une propriété de range, ici il faut utiliser la fonction format.
Et inverse les arguments entre les parenthèses:

Range("K" & Derlig).Value = NumberFormat(MontantTrav.Value, "# ###")
Range("L" & Derlig).Value = NumberFormat(MontantAide.Value, "# ###")
Range("M" & Derlig).Value = TauxAide
Range("O" & Derlig).Value = NumberFormat(MontantAvance.Value, "# ###")

Bonsoir Skoobi,
J'ai rectifié le code mais malheureusement cela ne fonctionne pas !
ça me mets : "Erreur de compilation - Projet ou bibliothèque introuvable" ???
Qu'ai-je oublié ??
Merci.

Re bonjour,

Sur quelle ligne exactement?
Si possible envoie le fichier ou un extrait.

Bonjour Skoobi
Je suis désespérée car je ne peux plus ouvrir mon fichier !!!!!
Quand je veux l'ouvrir, il me met "Impossible de charger les DLL". Pourquoi ?
Comment faire ????
Merci.

Bonsoir,
J'ai enfin pu récupérer mon fichier !
Comme convenu, voici mon fichier.
J'ai besoin de votre aide et vos conseils :
J'ai plusieurs feuilles dans mon classeur et je souhaiterais lorsque je remplis mon tableau via mon userform de ma 1ere feuille que les données inscrites dans "convention", "montant des travaux", "montant de l'aide Subvention" et "Montant de l'aide Avance" se répercute automatiquement dans ma 2e feuille et que le montant "reste à payer" de ma 2e feuille se répercute dans ma première feuille. Au départ, j'avais mélangé formule et code VBA mais apparemment ça ne fait pas bon ménage !
De plus, lorsque ce sont des montants, je voudrais en format "# ###".
Y-a-t-il un moyen quand je suis sur un n° de convention d'aller directement sur la 2eme feuille au meme n° de convention ?Comment pourrais-je faire ?J'espère avoir été assez claire.

Merci par avance de votre aide.