pb optionbutton dans listeview

[stéphanie123]

salut,

voilà mon petit souci,

j'ai une boite de dialogue qui me permet de communiquer avec ma base de donnée suivant des filtres combox et optionbuton je voudrai affichée ces données dans une listeview,,
j'arrive à affiché les données avec les combox mais quand je rajoute l'optionbutton ça n'affiche ni d'erreur ni de bug ça bloque le fichier sur éxécuter,,

ChaineDate = UCase(Cmbosecteur.Value)
NmrHistoriq = UCase(Cmbounité)
Chainegrossemachine = UCase(cmbogrossemachine.Value)
Chainepériodicité = UCase(cmbopériodicité.Value)
[B]chainearrêt = UCase(Optionarrêt.Value) = "oui"[/B]

For Boucle = 1 To fEUIL4.Range("A65535").End(xlUp).Row
 If UCase(fEUIL4.Range("A" & Boucle).Value) = ChaineDate Then
    If UCase(fEUIL4.Range("B" & Boucle).Value) = NmrHistoriq Then
    If UCase(fEUIL4.Range("C" & Boucle).Value) = Chainegrossemachine Then
    If UCase(fEUIL4.Range("D" & Boucle).Value) = Chainepériodicité Then
      If UCase(fEUIL4.Range("L" & Boucle).Value) = chainearrêt Then
   
        With ListePdt
            .ListItems.Add(NmrItem) = fEUIL4.Range("E" & Boucle).Value
            .ListItems(NmrItem).SubItems(1) = fEUIL4.Range("F" & Boucle).Value
            .ListItems(NmrItem).SubItems(2) = fEUIL4.Range("G" & Boucle).Value
            .ListItems(NmrItem).SubItems(3) = fEUIL4.Range("H" & Boucle).Value
            .ListItems(NmrItem).SubItems(4) = fEUIL4.Range("I" & Boucle).Value
            .ListItems(NmrItem).SubItems(5) = fEUIL4.Range("J" & Boucle).Value
            .ListItems(NmrItem).SubItems(6) = fEUIL4.Range("K" & Boucle).Value
          
        End With
    End If
 End If
   End If
 End If
 End If
Next
End Sub

 

[Cousinhub]

Re : pb optionbutton dans listeview

Bonsoir,

peut-être avec cette modification :

chainearrêt = UCase(Optionarrêt.Value) = True

 

[stéphanie123]

Re : pb optionbutton dans listeview

Bonsoir,

peut-être avec cette modification :

chainearrêt = UCase(Optionarrêt.Value) = True

si je met true à la place "oui
comment je lui dit que si le l'optionbutton est active et que la colonne
L="oui" alors
......

 

[Roland_M]

Re : pb optionbutton dans listeview

bonsoir
pour commencer:
chainearrêt = UCase(Optionarrêt.Value) = "oui" .... est faux !
c'est:
chainearrêt = LCase(Optionarrêt.Value) = "oui" ... Ok car Ucase()="OUI"

sinon logiquement si c'est une OptionButton c'est:
chainearrêt = Optionarrêt.Value
et chainearrêt = True ou False

Roland

 

[stéphanie123]

Re : pb optionbutton dans listeview

si je met true à la place "oui
comment je lui dit que si le l'optionbutton est active et que la colonne
L="oui" alors
......

je met un exemple de mon fichier pour l'optionbutton arrêt,,

 

[Roland_M]

Re : pb optionbutton dans listeview

re

if Optionarrêt.Value = True and <Lcase(TaCellule.Value)> = "oui" then ...

Roland

 

[Roland_M]

Re : pb optionbutton dans listeview

re

chainearrêt = Optionarrêt.Value '<<<<<<<<<<<<< auparavant

dans boucle le test:
If LCase(fEUIL4.Range("L" & Boucle).Value) = "oui" and chainearrêt = True Then

roland

 

[stéphanie123]

Re : pb optionbutton dans listeview

re

chainearrêt = Optionarrêt.Value '<<<<<<<<<<<<< auparavant
dans boucle le test:
If LCase(fEUIL4.Range("L" & Boucle).Value) = "oui" and chainearrêt = True Then
roland

super ça marche,,

dans ma boucle si je veux rajouter optionmarche, optioneips il faut que je l'écrive comme ça:

If LCase(Feuil4.Range("L" & Boucle).Value) = "oui" And chainearrêt = True or If LCase(Feuil4.Range("J" & Boucle).Value) = "oui" And chainemarche or  If LCase(Feuil4.Range("M" & Boucle).Value) = "oui" And chaineeips thn

 

[Roland_M]

Re : pb optionbutton dans listeview

re

' je sais pas trop ce que tu souhaites mais logiquement:
' si tu as des options comme ceci il faut les initialiser:
Dim chainearrêt As Boolean, chainemarche As Boolean, chaineeips As Boolean
chainearrêt = Optionarrêt.Value
chainemarche = Optionmarche.Value
chaineeips = OptionEIPSe.Value
' les tests selon ton souhait:
If (LCase(Feuil4.Range("L" & Boucle).Value) = "oui" And chainearrêt = True) Or _
(LCase(Feuil4.Range("J" & Boucle).Value) = "oui" And chainemarche = True) Or _
(LCase(Feuil4.Range("M" & Boucle).Value) = "oui" And chaineeips = True) Then
'....
'....
End If

Roland

Edit: surtout pas Or If !!!

 

[stéphanie123]

Re : pb optionbutton dans listeview

re

Edit: surtout pas Or If !!!

oui j'ai fait un trop gros copié coller mais j'utilise pas if

c'est very good

merci à toi 🙂😉