Discussion :

[didier.schmit]

bonsoir à tous

je realise le test suivant

Code :

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

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 :

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

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

[Qwazerty]

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

[fring]

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 :

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

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

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

Il faudrait simplement écrire

Code :

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

****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) ?

[Qwazerty]

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

[didier.schmit]

bonjour à tous
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 :

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

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 :

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

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 :

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

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

" toujours vrai.


peut etre un peu plus clair.

[fring]

Bonjour,

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

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

Code :

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

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 ?