Formule case à cocher
#1
Régulier XLPages

Inscription: 05/11/2008

Messages: 53

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 17-12-2008 15h05
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.
Hors Ligne
Rapport   Haut 

Re: Formule case à cocher
#2
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 17-12-2008 17h50
Bonjour kelly,

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

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


A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
Rapport   Haut 

Re: Formule case à cocher
#3
Régulier XLPages

Inscription: 05/11/2008

Messages: 53

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 17-12-2008 18h43

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 !

Hors Ligne
Rapport   Haut 

Re: Formule case à cocher
#4
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 17-12-2008 20h42
Dans ce cas, il faut appliquer le format avant d'écrire dans la cellule comme ceci:

If IsDate(DateDécision.Value) Then
  Range("M" & Derlig).NumberFormat = "# ###"
  If opt24.Value Then
    Range("M" & Derlig).Value = DateAdd("m", 24, DateDécision.Value)
  ElseIf opt36.Value Then
    Range("M" & Derlig).Value = DateAdd("m", 36, DateDécision.Value)
  ElseIf opt48.Value Then
    Range("M" & Derlig).Value = DateAdd("m", 48, DateDécision.Value)
  End If
End If



A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
Rapport   Haut 

Re: Formule case à cocher
#5
Régulier XLPages

Inscription: 05/11/2008

Messages: 53

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 17-12-2008 23h16

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.

Hors Ligne
Rapport   Haut 

Re: Formule case à cocher
#6
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 18-12-2008 08h56
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, "# ###")


A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
Rapport   Haut 

Re: Formule case à cocher
#7
Régulier XLPages

Inscription: 05/11/2008

Messages: 53

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 19-12-2008 00h27
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.
Hors Ligne
Rapport   Haut 

Re: Formule case à cocher
#8
Aspirant XLPages

Inscription: 09/11/2008
De Riedisheim (Mulhouse - Alsace)

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 19-12-2008 13h39
Re bonjour,

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

A+
Skoobi
-----------------------------------------
On en apprend tous les jours.
Hors Ligne
Rapport   Haut 

Re: Formule case à cocher
#9
Régulier XLPages

Inscription: 05/11/2008

Messages: 53

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 20-12-2008 16h27
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.
Hors Ligne
Rapport   Haut 

Re: Formule case à cocher
#10
Régulier XLPages

Inscription: 05/11/2008

Messages: 53

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 21-12-2008 00h00
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.
Pièce jointe:
zip exemple SUIVI.zip   [ Taille: 48.53 Ko - Téléchargements: 568 ]
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes