|
|
|
|
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 :)
Configuration: Windows XP Firefox 2.0.0.8
Répondre à Lupin.A
|
Re :
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 |
Re:
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
|
Boutons 2007 excel récupérer valeur vba Comparaison cellule vba excel Excel affecter valeur a une cellule Excel copier sans écraser cellule pleine Excel recherche cellule avec couleur de fond Excel recupérer valeur d'une cellule Formule excel rechercher coller contenu autre cellule si condition Vba excel 2007 format cellule Vba excel 2007 valeur cellule Vba excel cellule couleur Vba excel declaration variable plage de cellule Vba excel executer macro dans selection cellule Vba excel liste deroulante cellule Vba excel recherche dans une chaine de char Vba excel recuperer valeur liste deroulante dans une feuille Vba excel verification d'une cellule Vba excel, valeur aléatoire Vba prendre une valeur de cellule et ajouter
