Discussion :

[tofies33]

Bonjour à tous,
Je viens juste de créer mon premier userform pour gérer mes dépenses.Application plutôt simple.
Description du userform:
Lorsque je saisie une dépense dans la textebox"saisieMontantdépense" cette valeur est réenvoyée dans la lixtbox"soldecomptecourant"
Je voudrais lorsque "retrait" est choisi dans la combobox "modedepaiement" que la valeur saisi dans la textbox"SaisieMontantDépense" soit réenvoyer dans la cellule "I1" de la feuille"CompteCréditAgricole".
Merci d'avance

[rjamin]

Bonjour,
Essayez ce que j'ai ajouté à la procédure (en rouge)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub SaisieMontantDépense_Change()
Sheets("Dépenses").Select
If Me.Modedepaiement = "retrait" Then
      Worksheets("Compte Crédit Agricole").Range("I1") = SaisieMontantDépense * 1
Else
      [C2] = SaisieMontantDépense * 1
End If
End Sub

[tofies33]

Merci beaucoup,
je viens juste de l'essayer vite fait et magie cela à l'air de fonctionner.
Je vais voir de quelle manière je peux l'adapter au mieux sur mon userform.
J'étais dessus plusieurs jours(pas du non stop bien-sur) et à 1000 lieux de la réponse.
Encore une fois merci et je vous tiens au courant de la suite.
Bon week-end

[tofies33]

Bonsoir,
Je reviens vers vous car j'essais de nouveau de faire évoluer mon module.
J'aimerais cette fois ci copier le montant de la "celluleC2" quand la valeur en"Mode de paiement" renvoie "Espèces"
pour les additionner en cellule"I2".
Merci d'avance.

[clementmarcotte]

Bonjour,

====> Intégré au IF existant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If Me.Modedepaiement = "retrait" Then
      Worksheets("Compte Crédit Agricole").Range("I1") = SaisieMontantDépense * 1
elseif Me.Modedepaiement = "Espèces" then
      range("i2").value =range("i2").value + range("C2").value 
Else
      [C2] = SaisieMontantDépense * 1
End If

Que l'on peut aussi réécrire ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
select case Me.Modedepaiement 
    case "retrait"
        Worksheets("Compte Crédit Agricole").Range("I1") = SaisieMontantDépense * 1
    case "Espèces"
        range("i2").value =range("i2").value + range("C2").value 
    case "Chèque"
    Case Else
        [C2] = SaisieMontantDépense * 1
end select

Et même, pour être sûr d'attraper espèces, Espèces, esPèces etc.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
select case ucase(Me.Modedepaiement )
    case "RETRAIT"
        Worksheets("Compte Crédit Agricole").Range("I1") = SaisieMontantDépense * 1
    case "ESPÈCES"
        range("i2").value =range("i2").value + range("C2").value 
    case "CHÈQUE"
    Case Else
        [C2] = SaisieMontantDépense * 1
end select

[tofies33]

Bonjour,
Je reviens vers vous car votre code ne fonctionne pas ou j'ai mal détaillé ma demande.

Je veux pouvoir additionner tout les montants, de la colonne C dont la valeur en colonne E affiche"Espèces", en cellule G1

[clementmarcotte]

Bonjour

Juste à enregistrer une macro. Tu fais un filtre élaboré avec extraction sur une nouvelle feuille, et tu fais ta somme avec Somme(). Tu vas avoir ton canevas avec les adresses à rendre variables pour universaliser la macro. C'est comme cela que tout le monde commence.

Pour tester ta valeur C1, tu as tout ce qu'il faut dans les exemples fournis.