stéphanie123
XLDnaute Nouveau
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,,
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,,
Code:
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