Autres Ajout d'une condition dans une macro...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais ajouter une condition dans une macro ;

la partie, de la macro concernée, est celle-ci :

If .Cells(LigneDestination, 5 + i) <> "" Then .Cells(LigneDestination, 26 + i) = CDbl(Me.Controls("Textbox" & i)) Somme = Somme + (CDbl(Me.Controls("Textbox" & i)) * .Cells(LigneDestination, 5 + i)) End If Next End If .Range("AV" & LigneDestination) = Somme End With

la condition souhaitée, en plus, est ;

si dans la "ComboRèglement" on trouve le mot "Facturée"; alors pas de somme; sinon somme

Merci pour votre aide, bien amicalement, Christian

 

[jmfmarques]

Bonjour

si dans la "ComboRèglement" on trouve le mot "Facturée"

signifie, tel qu'écrit : si l'un des articles de la "ComboRèglement" contient (en son sein et tout ou partie, donc) le mot "Facturée"
Confirme ou corrige.

 

[Christian0258]

Re, le forum, jmfmarques

Merci, jmfmarques, pour ton aide.
Oui c'est tout à fait ça, en fait dans cette ComboRèglement on choisit; Carte bancaire, Chèque ect et il y a aussi comme choix Facturée en janvier (idem pour les 11 autres mois) et donc si le choix dans cette Combo est par exemple "Facturée en juillet" ...la somme ne doit pas être inscrite en col AV.
Encore merci,
Bien à toi,
Christian

 

[jmfmarques]

1)

si le choix dans cette Combo est par exemple "Facturée en juillet"

est très différent de (ce n'est pas la même chose) :

si dans la "ComboRèglement" on trouve le mot "Facturée"

2) La valeur de la zone d'édition d'une combobox n'est pas forcément celle de l'article sélectionné
la valeur de l'article sélectionné dans une combo combo1 est, elle :

toto = combo1.list(combo1.listindex)

il ne reste plus qu'à insérer cette seconde condition selon cette logique exemple :

if expression1 then
  if expression2 then
    '''' tes instructions
  end if
end if

C'est vraiment là du B.A.BA de VBA

 

[Christian0258]

Re, le forum, jmfmarques

Merci pour tes explications et ton bout de code...mais je ne sais pas comment, ni où l'insérer dans le code poste 1. Quand tu écris "expression1, 2, (idem pour les douze expressions) ...?

A te lire,
Bien amicalement
Christian
P.S suis nul en vba...lol

 

[jmfmarques]

.Cells(LigneDestination, 5 + i) <> ""

est une de tes deux expressions

combo1.list(combo1.listindex) like "Facturée*"

est la seconde de tes deux expressions
et je ne vois pas d'autres expressions intervenant que ces deux-là.

 

[Christian0258]

Re, le forum, jmfmarques,
ok j'ai fait ça ;
If .Cells(LigneDestination, 5 + i) <> "" Then
If .ComboRèglement.List(ComboRèglement.ListIndex) Like "Facturée*" Then
.Cells(LigneDestination, 26 + i) = CDbl(Me.Controls("Textbox" & i))
Somme = Somme + (CDbl(Me.Controls("Textbox" & i)) * .Cells(LigneDestination, 5 + i))
End If
End If
Next
End If

Mais ça plante sur la deuxième ligne If .ComboRèglement.List(ComboRèglement.ListIndex) Like "Facturée*" Then
à te lire,
merci
Christian

 

[JM27]

bonjour
et si tu postais un fichier avec données anonymes, ton pb serait déjà résolu

 

[Christian0258]

Re, le forum, jmfmarques, JM27

Salut Jean-Marcel, ci-joint le fichier que tu connais bien puisque toutes les macros sont de toi.Lol

Merci pour ton aide,
Bien à toi.
Christian

 

[jmfmarques]

Mais ça plante sur la deuxième ligne If .ComboRèglement.List(ComboRèglement.ListIndex) Like "Facturée*" Then

j'attends (patiemment) que tu nous expliques ce "." qui, devant tout le reste, ne correspond à aucun bloc with.
tu es quand-même là depuis 14 ans et plus de 1600 messages VBA ...

 

[JM27]

bonjour
a tester

 

[Christian0258]

Re, le forum, jmfmarques, Jean-Marcel

Merci, Jean-Marcel, c'est parfait comme d'hab.
jmfmarques, oui 14 ans de forum mais pas bon en vba.
Bien à vous,
Christian