XL 2010 comparer caractère 'Coche' d'un tableau pour test

[herve62]

Bonjour
Dans mon tableau j'effectue un test de stage terminé automatique
Ce qui devrait me permettre de raccourcir la liste dans le menu Consultation
Or il y a un petit Hic , ce caractère devrait être chr(252) mais non , car pour Océane DICQUE je récupère les infos de son stage de 2015 il devrait y avoir seulement celui qui n'est pas encore démarré
Merci

 

[Papou-net]

Re : comparer caractère 'Coche' d'un tableau pour test

Bonjour herve62,

Essaie comme ceci:

Private Sub Nom_Change()
For j = 2 To 10
 Controls("box" & j).Value = ""
 Next j
 CheckBox1 = False
With Worksheets("ETAT")

For lig_no = 4 To lig

 If Nom = .Cells(lig_no, 1).Value And .Range("L" & lig_no) = "" Then '        <---Ligne modifiée
 For k = 2 To 10
 Controls("box" & k).Value = .Cells(lig_no, k).Value
 Next k
 If .Cells(lig_no, 11) = "X" Then CheckBox1 = True
 
 Exit Sub
  End If

 Next lig_no
 End With
End Sub

Bonne journée.

Cordialement.

 

[Lolote83]

Re : comparer caractère 'Coche' d'un tableau pour test

Salut Hervé62,
Peut être en modifiant ton code de la sorte

Private Sub Nom_Change()
    For j = 2 To 10
        Controls("box" & j).Value = ""
    Next j
    CheckBox1 = False
    With Worksheets("ETAT")
        For lig_no = 4 To lig
            If Nom = .Cells(lig_no, 1).Value And .Cells(lig_no, "L").Value <> "ü" Then
                For k = 2 To 10
                    Controls("box" & k).Value = .Cells(lig_no, k).Value
                Next k
            If .Cells(lig_no, 11) = "X" Then CheckBox1 = True
                Exit Sub
            End If
        Next lig_no
     End With
End Sub

ou on fait apparaitre le caractère "ü" comme critère
If Nom = .Cells(lig_no, 1).Value And .Cells(lig_no, "L").Value <> "ü" Then

En espérant avoir bien compris ta demande
Salut Papou-Net, pas assez rapide !!!!
@+ Lolote83

 

[herve62]

Re : comparer caractère 'Coche' d'un tableau pour test

Bonjour
Merci bien , c'est de ma faute je me suis focalisé ou il ne fallait pas , j'ai donc corrigé :
If Nom = .Cells(lig_no, 1).Value And .Cells(lig_no, 12) = "" Then

c'est là qu'on remarque qu'avec un oeil extérieur c'est plus rapide !
Bonne journée