Bonjour,
Grand (gros?) débutant en programmation, je me suis attaqué à quelque chose qui me dépasse complètement
(c'est comme ça qu'on apprend parait-il )
Alors voila
Dans un cadre professionnel je dois permettre à mes utilisateurs de filtrer
un fichier excel en fonction de cases à cocher cochées ou non.
Le but : mettre un X au bout des lignes qui contiennent la ou les valeurs
recherchées
La méthode : 1. rassembler les valeurs à rechercher 2.les rechercher dans
chaque ligne 3. mettre un X au bout de chacune de ces ligne 4.filtrer sur
tous les X dans la colonne M
Je commence donc par rassembler les Caption de ces cases dans une variable
String :
Ensuite le but est de rechercher cette valeur dans la colonne K de chaque
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 If TypeName(Ctrl) = "CheckBox" Then If Ctrl.Value = True Then strTemp = strTemp & Ctrl.Caption & ";" End If End If
ligne, et pour chaque ligne dans laquelle se trouve cette valeur, mettre un
X dans la colonne M. Ce X me permettra ensuite de filtrer tranquillement mon
fichier. Sauf que :
ne marche pas !! j'ai beau faire ce que je peux, il me met un X dans toutes les lignes, meme la ligne d'en-tete de colonne >_<
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 nbLignes = Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To nbLignes If (InStr(1, CStr(Range("K" & i).Value), strTemp, vbTextCompare) = 1) Then Range("M" & i) = "X" End If
une idée mes bons messieurs-dames ?
Partager