test if then else qql soit la valeur

bonsoir à tous

je realise le test suivant

Code:

---

1 2 3 4 5 6 7

If ComboBox1.Value <> "" Then condition1 = ComboBox1.Value Else condition1 = "Cells(ligne, 2)" If ComboBox2.Value <> "" Then condition2 = ComboBox2.Value Else condition2 = "Cells(ligne, 2)"       If Cells(ligne, 2) = condition1 And Cells(ligne, 1) = condition2 Then coutinstallation = coutinstallation + Cells(lignefiltrestat, 22) + Cells(lignefiltrestat, 26)

---

dans la partie de code suivante je cherche à dire que quelque soit la valeur trouve dans "cells(ligne,2) la condition1 sera toujours egale à la valeurs de "cells(ligne,2). donc qql soit la valeur , c'est toujours bon ?

Code:

---

1 2 3

*****Else condition1= "Cells(ligne, 2)" *****Else condition2 = "Cells(ligne, 20)"

---

mes variables condition1 et condition2 sont de type string.

merci de votre aide

SAlut
Je comprend pas pourquoi tu veux mettre une condition
Mets ton code complet avec les indentation, par ce que je me demande si tu utilise comme il faut If... Then .... Else ...
A++
Qwaz

Bonsoir tlm,

Bin...je capte pas tout non plus, d'autant plus que dans le code il s'agit 1x de la ligne 2, 1x de la ligne 1 et 1x de la ligne 20.

Ce qui est certain...

Code:

---

****Else condition1 = "Cells(ligne, 2)"

---

ne fonctionnera pas, hormis attribuer le texte Cells(ligne, 2) à la variable condition1

Il faudrait simplement écrire

Code:

---

****Else condition1 = Cells(ligne, 2)

---

sans les guillemets

Reste à savoir si la déclaration des variables condition1 et 2 comme String est judicieux, que contient la Cells(ligne, 2) ?

SAlut
J'suis fatigué moi ... j'avais même pas vu ces vilains guillemets...
Bonne nuit
Qwaz

bonjour à tous
:aie: toujours pas facile de se faire comprendre

je reprends
mon test final est celle-ci (a savoir qui il a 8 test test1 and test2 and ...and test8)

mais pour l'exemple j'en prends que 2 .

Code:

---

1 2	If Cells(ligne, 2) = condition1 And Cells(ligne, 1) = condition2 Then coutinstallation = coutinstallation + Cells(lignefiltrestat, 22) + Cells(lignefiltrestat, 26)

---

cells(ligne,X) sont les cellules de ma feuille dont le contenu sera comparé aux combobox.

Comme il y a une imbriquation de condition (je me suis aidé de certains post du forum)et les combobox ne sont pas forcement renseignes(aucun choix de l'utilisateur donc combobox.value =""), j'ai cree la variable Condition de type string . cette variable condition prend la valeur via la ligne de code ci-dessous.

Code:

---

1 2	If ComboBox1.Value <> "" Then condition1 = ComboBox1.Value Else condition1 = "Cells(ligne, 2)"

---

mais ou je coince , C'est si le combobox.value = "" il faut que quelque soit la valeurs de ma cells(ligne,2) le resultat du test

Code:

---

1 2	.....Cells(ligne, 2) = condition1

---

" toujours vrai.:aie:


peut etre un peu plus clair.

Bonjour,

Oui c'était déjà clair avant et je maintiens ma réponse...

condition1 = "Cells(ligne, 2)" ne fonctionnera pas

Code:

---

1 2 3 4 5

If ComboBox1.Value <> "" Then condition1 = ComboBox1.Value Else condition1 = Cells(ligne, 2) 'si Combo1 est vide alors condition1 = Cells(ligne, 2) If ComboBox2.Value <> "" Then condition2 = ComboBox2.Value Else condition2 = Cells(ligne, 2) 'si Combo2 est vide alors condition2 = Cells(ligne, 2)

---

Désolé mais hormis les guillemets, où est le problème ?

bonjour
en enlevant les "" j'ai adapté le code, avec 2 conditions ,cela fonctionne. :lol:
je vais voir avec 8 conditions.8O


Voici le code , il peut etre pas optimise ! :?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub filtrestatistiquecout() Dim lignefiltrestat As Long Dim coutinstallation As Long Dim condition1 As String, condition2 As String coutinstallation = 0 lignefiltrestat = 0 condition2 = "" condition1 = ""   'cout de l'installation DerniereLigne = Range("m4").End(xlDown).Row 'derniere ligne occupee dans colonne A   For lignefiltrestat = 4 To DerniereLigne If ComboBox24.Value <> "" Then condition1 = ComboBox24.Value Else condition1 = Cells(lignefiltrestat, 2) If ComboBox6.Value <> "" Then condition2 = ComboBox6.Value Else condition2 = Cells(lignefiltrestat, 1)   If Cells(lignefiltrestat, 2) = condition1 And Cells(lignefiltrestat, 1) = condition2 Then coutinstallation = coutinstallation + Cells(lignefiltrestat, 22) + Cells(lignefiltrestat, 26) Next lignefiltrestat TextBox7.Value = coutinstallation   End Sub

---

merci

Tu peux en effet l'optimier en utilisant IIf

Code:

---

1 2	Condition1 = IIf(ComboBox24.Value <> "", ComboBox24.Value, Cells(lignefiltrestat, 2)) Condition2 = IIf(ComboBox6.Value <> "", ComboBox6.Value, Cells(lignefiltrestat, 1))

---

Si je peux me permettre, une autre optimisation (optimisation de temps quant à l'écriture du code) serait de réduire le nom des variables.

Le code donnerait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub filtrestatistiquecout() Dim Lfs&, Ci&, C1$, C2$, DerL%   Ci = 0 Lfs = 0 C1 = "" C2 = ""   DerL = Range("m4").End(xlDown).Row 'derniere ligne occupee dans colonne A   For Lfs = 4 To DerL If ComboBox24.Value <> "" Then C1 = ComboBox24.Value Else C1 = Cells(Lfs, 2) If ComboBox6.Value <> "" Then C2 = ComboBox6.Value Else C2 = Cells(Lfs, 1)   If Cells(Lfs, 2) = C1 And Cells(Lfs, 1) = C2 Then Ci = Ci + Cells(Lfs, 22) + Cells(Lfs, 26) Next Lfs TextBox7.Value = Ci   End Sub

---

Certaines déclarations de variables peuvent également être raccourcies
Dim X As Integer = Dim X%
Dim X As String = Dim X$
Dim X As Long = Dim X&
Dim X As Single = Dim X!
Dim X As Double = Dim X#
Dim X As Currency = Dim X@

bonsoir à tous
Merci pour vos optimisations.:):king:

par contre je comprends pas les syntaxes suivantes

Code:

---

1 2	Dim Lfs&, Ci&, C1$, C2$, DerL%

---

Que veulent dire les & , $ et % apres les variable ?:cry:

Code:

---

1 2 3

Condition1 = IIf(ComboBox24.Value <> "", ComboBox24.Value, Cells(lignefiltrestat, 2)) Condition2 = IIf(ComboBox6.Value <> "", ComboBox6.Value, Cells(lignefiltrestat, 1))

---

Que veut dire IIF ? je connais pas ?:cry:


merci encore

Citation:

---

Envoyé par didier.schmit

par contre je comprends pas les syntaxes suivantes

Code:

---

1 2	Dim Lfs&, Ci&, C1$, C2$, DerL%

---

Que veulent dire les & , $ et % apres les variable ?:cry:

---

Si tu descends 8cm plus bas dans le message, j'ai donné l'explication ;)

Citation:

---

Que veut dire IIF ? je connais pas ?

---

Cela correspond à la fonction SI d'Excel

Code:

---

Iif(Condition, Résultatsivrai, Résultatsifaux)

---

oups :bug:

il est temps de faire dodo?




:oops:

Citation:

---

Envoyé par didier.schmit

Que veut dire IIF ? je connais pas ?:cry:

---

Si tu fais F1 sur IIf tu auras une explication bien plus meilleure que celle que je pourrais te donner :mouarf:

:oops:
oups c'etait vraiment l'heure de faire dodo
:king: