Microsoft 365 Userform avec combobox

J

JBL07

XLDnaute Occasionnel

• 28 Décembre 2020

• #31

Oui je sais, c'est pourquoi en message #2 j'ai renvoyé un fichier en précisant avoir corrigé une petite erreur et annoncé que la seconde PJ était la bonne - Mais je rectifie avant de tester vos propositions :

Private Sub CBValider_Click()
If MsgBox("La nouvelle saisie est-elle confirmée ?", _
vbYesNo, "Demande confirmation de saise") = vbYes Then
With Sheets("Ecritures")
.Range("B10").Value = CDate(TextBox4)
.Range("E10:G10").Value = Array(CboComptes, CboCatégories, CboSousCat)
.Range("I10").Value = Array(TextBox1)
.Range("L10").Value = CboModePaie
.Range("N10:O10").Value = Array(TextBox2 * 1, TextBox5 * 1)
.Range("N10:O10").NumberFormat = "#,##0.00 $"
End With
End If
Unload Me
'FMSaisie.Show vbModeless
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Décembre 2020

• #32

Re

Ici le Array n'est pas utile
.Range("I10").Value = Array(TextBox1)
C'est pour cela que j'avais juste écris
.Range("I10").Value = TextBox1

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 28 Décembre 2020

• #33

J'ai testé sans le Array
Même demande de débogage

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 28 Décembre 2020

• #34

Le fichier test en l'état actuel, si tu veux retester dessus

 

Pièces jointes

• Comptes - 7 bis.xlsm

  905.1 KB · Affichages: 6

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Décembre 2020

• #35

re
bonjour
si tu réfléchi une seconde tu te rend compte qu'il y a ( entre autres) erreur dans le raisonnement
comment tu peux vouloir nourrir N et O alors que l'un est débit l'autre crédit
du fait dans ta saisie tu est obligé de mettre "0" dans l'un ou dans l'autre selon un achat ou une entrée
je parle même pas du non contrôle de la validité de la date et j'en passe et des meilleures ailleurs dans le code aussi

le raisonnement n'a rien a voir avec vba soit on fait les choses dans le bon sens soit on le fait pas dans le bon sens et là c'est le crach bien évidement

VB:

Private Sub CBValider_Click()
    If Not IsDate(TextBox4) Or Len(TextBox4) < 10 Then MsgBox "la date n'est pas valide": Exit Sub
    If MsgBox("La nouvelle saisie est-elle confirmée ?", _
              vbYesNo, "Demande confirmation de saise") = vbYes Then
        With Sheets("Ecritures")
            .[B10].Value = DateValue(TextBox4)
            .[E10:G10].Value = Array(CboComptes, CboCatégories, CboSousCat)
            .[I10].Value = TextBox1
            .[L10].Value = CboModePaie
            With .[N10:O10]
            .Value = Array(IIf(Val(TextBox2) > 0, Val(TextBox2), ""), IIf(Val(TextBox5) > 0, Val(TextBox5), ""))
            .Cells.NumberFormat = "#,##0.00 $"
            End With
        End With
    End If
    Unload Me
End Sub

je précise que j'ai testé ça fonctionne
et encore perso je ferait une verif de tout les control afin que la ligne soit dûment remplie!!!

 

Vote positif 0 Vote négatif

Solution

Staple1600

XLDnaute Barbatruc

• 28 Décembre 2020

• #36

Bonjour à toi aussi patricktoulon

=>patricktoulon

c'est fatiguant de ne pas savoir faire, un pb peut en cacher un autre en vba !!

Cliquez pour agrandir...

Laisse supposer que JB07 est un padawan en VBA, non?
C'est donc normal qu'il essaie à l'aune de ses connaissances, non?
Le bon sens (ou pas) n'a rien à voir avec cela.
On a tous été débutant un jour
Et pis, pendant la tréve des confiseurs, faut être gentil tout plein!

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Décembre 2020

• #37

re
Bonjour Staple1600
oui c'est vrai je n'ai pas de filtre

une autre chose me perturbe aussi
on remplie toujours la ligne 10
ça va jamais plus loin??????? elle est toujours remplacée c'est voulu???

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Décembre 2020

• #38

Re

=>patricktoulon
Je vois que tu as adopté ma syntaxe à base d'Array
Et que ...tu mis de l'if dans la raie?
Ca va gratter, non ?
Pardon

Ok je sors (ce n'est pas dans l'esprit de Noel, j'ai presque honte )

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Décembre 2020

• #39

re

oui dans une ligne de plusieurs cells contiguës j'ai toujours utilisé un array(surtout avec des tableaux structurés c'est tellement plus simple
les iif c'est justement pour éviter les erreur de "rien*1"
et quoi que là encore "val" selon le séparateur décimal va donner l'entier ,on a donc encore un problème ici de contrôle de validité de chaîne numérique

perso je m'ennuierais pas étant donné que il y a plusieurs area (donc non contiguës)
je met dans le tag de chaque controls la lettre ou le numéro de colonne et
exemple
for each ctrl in me.controls
if ctrl.tag<>"" then
cells(10,ctrl.tag)=ctrl.value'ou .text
end if
next
là y a plus de iif plus d'array ou quoi que ce soit
mais la question de la ligne "10" reste d'actualité
testé avec le tag

VB:

Private Sub CBValider_Click()
    If Not IsDate(TextBox4) Or Len(TextBox4) < 10 Then MsgBox "la date n'est pas valide": Exit Sub
    If MsgBox("La nouvelle saisie est-elle confirmée ?", _
              vbYesNo, "Demande confirmation de saise") = vbYes Then
        For Each ctrl In Me.Controls
            If ctrl.Tag <> "" Then Sheets("Ecritures").Cells(10, ctrl.Tag) = ctrl.Value    'ou .text
        Next
        Sheets("Ecritures").[N10:O10].NumberFormat = "#,##0.00 $"
    End If
    Unload Me
End Sub

 

Pièces jointes

• Comptes - 7 bis.xlsm

  899.9 KB · Affichages: 6

Dernière édition: 28 Décembre 2020

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 28 Décembre 2020

• #40

Hello Patricktoulon !

Comme le dit avec beaucoup de tact Staple, je suis un p'tit bleu.
Si je connaissais plus de choses ( un jour peut-être mais qd je lis vos échanges, je mesure mon ignorance dans le domaine... ), j'apporterais mon aide au lieu de la demander pour la moindre ligne qui coince
Ceci dit, au-delà de la petite impression de m'être fait sermonner , tes corrections fonctionnent nickel, je vous remercie donc énormément tous les 3, toi Stanple et Chalet53, pour votre support plus que précieux, et le temps consacré !

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 28 Décembre 2020

• #41

Mince, Staple1600, j'ai écorché ton pseudo, dsl

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 28 Décembre 2020

• #42

Pour la ligne 10, oui c'est voulu : dans la macro nouvelle saisie, il y a insertion d'une ligne 10 vierge

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Décembre 2020

• #43

Re

Mince, Staple1600, j'ai écorché ton pseudo, dsl

Cliquez pour agrandir...

Je m'en remettrai JBL07
(même si la larme qui perle sur ma joue gauche vient de tomber sur mon clavier, heureusement sans provoquer de court-circuit)

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 28 Décembre 2020

• #44

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Décembre 2020

• #45

ouais le pauvre stample0061 c'est pourtant simple a retenir

 

Vote positif 0 Vote négatif