Utilisation de la fonction InStr en VBA

[Greg-O]

Bonjour le forum,

Il y a quelques mois, Pierre-Jean (un membre éminent de forum 🙂 ( un tout grand merci à lui ) ) m'a aidé à créer une recherche multi-critère directement dans le fichier.
La recherche s'active automatiquement quand on introduit une valeur dans une des cellules de critères et seul les lignes concernées restent apparentes .
(Pour voir la suite, regarder le lien ci-dessous)


J'aimerais maintenant perfectionner cette macro en donnant la possibilité de ne pas devoir faire matcher le critère de recherche avec les valeur reprises dans la liste.

Pour ce faire j'ai utiliser la fonction Instr mais ça bug avec le Iserror.

Voici le code:

Private Sub Worksheet_Change(ByVal Target As Range)


Application.ScreenUpdating = False
If Target.Row = 7 Then
Rows.Hidden = False
End If
For m = 2 To 37
If Cells(7, m) <> "" Then
For n = 10 To Range("B65536").End(xlUp).Row
If IsError(InStr(Cells(7, m), Cells(n, m), 0)) Then
Rows(n).Hidden = True
End If
Next n
End If
Next m
Application.ScreenUpdating = True

End Sub


Donc si quelqu'un pouvait m'aider ce serait vraiment genial pcq là je sèche.
D'avance merci

 

[mécano41]

Re : Utilisation de la fonction InStr en VBA

Bonjour,

IsError n'existe pas

Il faut mettre avant ta ligne : On Error Resume next

et après ta ligne : If Err.number<>0 then.....traitement...

Cordialement

 

[pierrejean]

Re : Utilisation de la fonction InStr en VBA

Re

Merci pour le "eminent" !!!

Mais je ne sais pas bien comment traduire ton Instr(..)
Il te faut savoir que Instr renvoie un chiffre qui est:
Soit 0 si le second parametre n'est pas contenu dans le 1er
Soit le chiffre correspondant a la place de la 1ere lettre du second parametre contenu dans le 1er

Edit: Salut méano41

 

[Greg-O]

Re : Utilisation de la fonction InStr en VBA

Bonjour PierreJean, Bonjour mécano41,

avec plaisir, PierreJean 🙂

Concernant InStr, c'est bien ce que j'avais compris.
J'ai essayé : If InStr(Cells(7, m), Cells(n, m))=0 Then

Rows(n).Hidden = True
Mais ça ne fonctionne pas.

Je vais tester la solution de Mecano41 et je vous reviens.

Greg-O​

 

[mécano41]

Re : Utilisation de la fonction InStr en VBA

Bonjour à tous,

NOTA : j'ai regardé pour le "IsError" mais pas du tout pour le Instr(...). Bien entendu, il faut d'abord qu'il fonctionne avant de voir si le test d'erreur est correct!

Cordialement

 

[Pierrot93]

Re : Utilisation de la fonction InStr en VBA

Bonjour à tous

@Mecano

la fonction "IsError" existe bien en vba, ci-dessous extrait aide vba :

IsError, fonction

Renvoie une valeur de type Boolean qui indique si une expression est une valeur d'erreur.

bon après midi
@+

 

[mécano41]

Re : Utilisation de la fonction InStr en VBA

la fonction "IsError" existe bien en vba, ci-dessous ...
@+

Bonjour Pierrot,

J'avais pourtant vérifié avant d'écrire mais ce n'est pas la première fois que l'onglet "Aide intuitive" ne trouve rien... En allant chercher dans le VBE par "Explorateur d'objets" je l'ai trouvé.

Merci, ça peut servir...!

Cordialement

 

[Pierrot93]

Re : Utilisation de la fonction InStr en VBA

Re

pour vérifier, tu peux également dans l'éditeur vba, entrer le mot à tester dans une procédure, une fois ton curseur placé sur le mot, tu presses la touche de fonction F1, l'aide vba s'affichera alors...

@+

 

[mécano41]

Re : Utilisation de la fonction InStr en VBA

Re

pour vérifier, tu peux également dans l'éditeur vba, entrer le mot à tester dans une procédure, une fois ton curseur placé sur le mot, tu presses la touche de fonction F1, l'aide vba s'affichera alors...

@+

Effectivement c'est plus rapide!

Encore merci.

 

[Greg-O]

Re : Utilisation de la fonction InStr en VBA

Bonjour PierreJean, bonjour Mecano41, Bonjour le forum,

Désolé de revenir après autant de temps, mais j'ai été un peu pris le vendredi après-midi...

Après avoir pris un peu de recul (ce n'est jamais mauvais😉) et approfondi la fonction InStr, j'ai fini par trouver la solution que je cherchais.

Pour ceux que ça intéresse, voici le code et un exemple en attachement.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim StrValue As Long
Dim SearchChar, SearchString As String

Application.ScreenUpdating = False
If Target.Row = 6 Then
Rows.Hidden = False
End If
For m = 1 To 24
If Cells(6, m) <> "" Then
For n = 8 To Range("B65536").End(xlUp).Row
SearchChar = Cells(6, m).Value 'Définis la valeur à rechercher'
SearchString = Cells(n, m).Value 'Définis le contenu de la zone de recherche'
StrValue = InStr(1, SearchString, SearchChar, 1) 'InStr renvoie la position du 1er character de la valeur à rechercher. Le 1er "1" définit la position de début de recherche, le 2ème "1" définit le type de recherche (dans ce cas, recherche type txt , donc pas case sensitive)'
If StrValue = 0 Then
Rows(n).Hidden = True
End If
Next n
End If
Next m
Application.ScreenUpdating = True

End Sub

Voilà bonne journée à tous et un tout grand merci à ceux qui m'ont aidé à trouver la voie.

Greg-O