[VBA Excel] recherche valeur-écrire cellule Résolu/Fermé

Question

Bonjour,

Dans un cadre professionnel, je dois permettre à des utilisateurs de filtrer un fichier excel en fonction de checkbox cochée ou non.
J'ai donc le Caption des 3 checkbox enregistré dans une variable :

Sub GetClasses()
If TypeName(Ctrl) = "CheckBox" Then
    If Ctrl.Value = True Then
        strTemp = strTemp & Ctrl.Caption & ";"
    End If
End If
End Sub

Ensuite je recherche cette valeur dans mes lignes

nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To nbLignes
    If InStr(1, CStr(Range("K" & i)), strTemp) = 1 Then
    Range("M" & i) = "X"

Sauf que la, il me met un X dans la colonne M de toutes les lignes, peu importe si cette ligne contient la valeur de strTemp ou pas .....
Moi je veux qu'il cherche la valeur de strTemp dans la colonne K de toutes les lignes, et si il la trouve, il me met un X au bout de la ligne correspondante, dans la Colonne M. Ce X me servira plus tard a faire mon tri.

Ca a pas l'air compliqué dit comme ça, mais je galère !

aidez moi svp :)

Utilisateur anonyme · Answer

Bonjour,

suggestion :


Sub Essai()

    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To nbLignes
    If (InStr(1, CStr(Range("K" & i).Value), strTemp, vbTextCompare) > 0) Then
        Range("M" & i) = "X"
    End If

End Sub
'

Lupin

amigo · Answer

Bonsoir,

Peut-on avoir un exemple des valeurs que prennent les variables à comparer, c-à-d la variable strTemp et le contenu des cellules de la colonne K, ça aiderait à comprendre pourquoi ça ne marche pas.

A+.

Utilisateur anonyme · Answer

re :

essai ces autres façons de faire :


Option Explicit


Sub Essai1()

    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To nbLignes
    If (InStr(1, Range("K" & i).Value, strTemp, vbTextCompare) > 0) Then
        Range("M" & i) = "X"
    End If

End Sub
'

Sub Essai2()

    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To nbLignes
    If (InStr(1, Range("K" & i).Value, strTemp, vbBinaryCompare) > 0) Then
        Range("M" & i) = "X"
    End If

End Sub
'

Lupin

Utilisateur anonyme · Answer

re:

voici le code modifié et fonctionnel chez moi !


Sub Essai1()

    Dim nbLignes As Long, strTemp As String, i As Long

    strTemp = "b"

    nbLignes = Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To nbLignes
        If (InStr(1, Range("K" & i).Value, strTemp, vbTextCompare) > 0) Then
            Range("M" & i) = "X"
        End If
    Next i
    
End Sub
'

Lupin

[VBA Excel] recherche valeur->écrire cellule

4 réponses

Discussions similaires