Discussion :

[Scorpiopop]

Bonjour à tous,

J'ai rencontré un problème lors de la création d'une macro et je ne vois absolument pas comment régler le problème.

Je cherche à créer une Fonction sur VBA de Type Countif avec un critère avec espace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WorksheetFunction.Countif(WorkSheets("Exemple").Range("Z:Z"),[critère="Partie1 Partie2"])

J'ai essayé de fusionner countif et like (sans succès)
J'ai essayé de faire une recherche du style : "*" & "Partie1" & Chr(160) & "Partie2" & "*" Ou encore "*Partie1 Partie2*" (et tous les dérivés...)

Mais je ne trouve rien qui fonctionne!

(je précise que la macro marche pour une chaîne de texte sans espaces)

Merci Par Avance pour vos idées !

[Invité]

Bonjour,

Le caractère espace peut être aussi un Chr(32). Essayez ce code sur une cellule de votre colonne Z pour connaître le code Chr employé dans vos chaînes.
Nb : Le résultat 1 correspond au caractère employé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub RechercheDuCaractereEspace()
 
Dim MaChaineAvecChr32 As Variant, MaChaineAvecChr160 As Variant
 
    MaChaineAvecChr32 = Split(ActiveCell, Chr(32))
    MaChaineAvecChr160 = Split(ActiveCell, Chr(160))
 
    MsgBox "Avec Chr(32) : " & UBound(MaChaineAvecChr32) & Chr(10) & "Avec Chr(160) : " & UBound(MaChaineAvecChr160)
 
End Sub

Cordialement.