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

J

jmfmarques

XLDnaute Accro

• 16 Juin 2020

• #2

Bonjour

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 16 Juin 2020

• #3

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

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 16 Juin 2020

• #4

1)

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

Cliquez pour agrandir...

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"

Cliquez pour agrandir...

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 :

VB:

toto = combo1.list(combo1.listindex)

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

Code:

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

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

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 16 Juin 2020

• #5

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

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 16 Juin 2020

• #6

VB:

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

est une de tes deux expressions

Code:

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à.

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 16 Juin 2020

• #7

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

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 16 Juin 2020

• #8

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

 

Dernière édition: 16 Juin 2020

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 16 Juin 2020

• #9

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

 

Pièces jointes

• Somme sauf sil.xlsm

  445.8 KB · Affichages: 9

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 16 Juin 2020

• #10

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

Cliquez pour agrandir...

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 ...

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 16 Juin 2020

• #11

bonjour
a tester

 

Pièces jointes

• Somme sauf sil.xlsm

  450.1 KB · Affichages: 4

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 16 Juin 2020

• #12

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

 

Vote positif 0 Vote négatif