chercher une occurence dans une cellule excel

Version imprimable

16/12/2024, 05h51
ABOUKONBOL

chercher une occurence dans une cellule excel

bonjour,
j ai un tableau excel composé de deux colonnes A et B
Dans la colonne A il y'a plusieurs lignes ,chaque ligne contient un texte quelconque, comment par macro vba chercher à l'interieur des cellules de A si une occurence composée de la lettre "p" suivie d'un espace et un seul chiffre, deux ou trois chiffres par exemple p 1 ou p 11 ou p 111 et si le resultat de la recherche est vraie la macro retourne vrai dans la colonne B
Le même procédé pour "pp" suivie d'un espace et un seul chiffre, deux ou trois chiffres par exemple pp 1 ou pp 11 ou pp 111
et merci d'avance

Salut, teste comme ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub ChercherOccurrences()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim regex As Object
    Dim cellValue As String
 
 
    Set ws = ThisWorkbook.Sheets(1) ' Modifier le numéro de feuille si nécessaire
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set regex = CreateObject("VBScript.RegExp")
 
    For i = 1 To lastRow
        cellValue = ws.Cells(i, "A").Value
 
        ' Définir le modèle pour "p X", "p XX", "p XXX"
        regex.Pattern = "\bp\s\d{1,3}\b"
        If regex.Test(cellValue) Then
            ws.Cells(i, "B").Value = "Vrai"
        Else
            ' Définir le modèle pour "pp X", "pp XX", "pp XXX"
            regex.Pattern = "\bpp\s\d{1,3}\b"
            If regex.Test(cellValue) Then
                ws.Cells(i, "B").Value = "Vrai"
            Else
                ws.Cells(i, "B").Value = "Faux"
            End If
        End If
    Next i
 
    Set regex = Nothing
 
    MsgBox "Traitement terminé !", vbInformation
End Sub

Bonjour,

un essai avec une fonction

Code:

1
2
3
4
5
6
7
Function Contient(Plage As Range, Modele As String) As Boolean
Dim Cellule As Range
    Contient = False
    For Each Cellule In Plage
        Contient = Contient Or (Cellule.Value Like Modele)
    Next
End Function

dans la feuille de calcul

Code:

=contient(A1;"*p #*")

à recopier vers le bas

Citation:
Envoyé par tototiti2008
Bonjour,

un essai avec une fonction
Code:

1 2 3 4 5 6 7 Function Contient(Plage As Range, Modele As String) As Boolean Dim Cellule As Range Contient = False For Each Cellule In Plage Contient = Contient Or (Cellule.Value Like Modele) Next End Function
dans la feuille de calcul

Code:

=contient(A1;"*p #*")

à recopier vers le bas
Merci pour l'intérêt accordé à ma question ,j'ai essayé la fonction et elle a afficher dans toutes les ligne l'expression "#NOM?" alors qu'il ya beaucoup de cellules qui contiennent l'expression.merci encore une fois tototiti2008.

Citation:

Envoyé par Franc

Salut, teste comme ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub ChercherOccurrences()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim regex As Object
    Dim cellValue As String
 
 
    Set ws = ThisWorkbook.Sheets(1) ' Modifier le numéro de feuille si nécessaire
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set regex = CreateObject("VBScript.RegExp")
 
    For i = 1 To lastRow
        cellValue = ws.Cells(i, "A").Value
 
        ' Définir le modèle pour "p X", "p XX", "p XXX"
        regex.Pattern = "\bp\s\d{1,3}\b"
        If regex.Test(cellValue) Then
            ws.Cells(i, "B").Value = "Vrai"
        Else
            ' Définir le modèle pour "pp X", "pp XX", "pp XXX"
            regex.Pattern = "\bpp\s\d{1,3}\b"
            If regex.Test(cellValue) Then
                ws.Cells(i, "B").Value = "Vrai"
            Else
                ws.Cells(i, "B").Value = "Faux"
            End If
        End If
    Next i
 
    Set regex = Nothing
 
    MsgBox "Traitement terminé !", vbInformation
End Sub

merci Franc la macro est parfaite ,elle a résolu le problème

16/12/2024, 11h02
tototiti2008

1 pièce(s) jointe(s)

Re,

#NOM! signifie qu'il n'a pas trouvé la fonction, donc que son code n'a pas du être mis dans un module du classeur concerné, ou en tout cas qu'il ne reconnait pas son nom
Elle fonctionne chez moi en tout cas

un essai en PJ
16/12/2024, 14h20
ABOUKONBOL

1 pièce(s) jointe(s)

Citation:

Envoyé par tototiti2008

Re,

#NOM! signifie qu'il n'a pas trouvé la fonction, donc que son code n'a pas du être mis dans un module du classeur concerné, ou en tout cas qu'il ne reconnait pas son nom
Elle fonctionne chez moi en tout cas

un essai en PJ

merci mille fois ça marche parfaitement aussi avec votre fonction, l'erreur que j'ai commise c'est je n'ai pas mis la fonction dans un module,merci tototiti2008.
19/12/2024, 18h02
ABOUKONBOL

Citation:

Envoyé par ABOUKONBOL

merci mille fois ça marche parfaitement aussi avec votre fonction, l'erreur que j'ai commise c'est je n'ai pas mis la fonction dans un module,merci tototiti2008.

j'ai expérimenté la fonction mais il n'a pas donné les mêmes résultat que la procédure car le modèle "*p #*" ne répond pas à mon besoin, comment donc construire un modèle qui au lieu de mettre une"*" au début mettre un caractère générique qui signifie un espace vide car "*" peut remplacer plusieurs caractères alors moi je veux un signe qui désigne un espace vide au début du modèle pour que la fonction marche.+merci
19/12/2024, 18h19
joe.levrai

Bonjour,

comme ça ?

Code:

=contient(A1;" p #*")
19/12/2024, 18h19
tototiti2008

Bonjour,

dans une comparaison basée sur Like, comme dans cette fonction
? représente un caractère inconnu
* représente un nombre de caractères indéfinis inconnus
# représente un chiffre inconnu
puis il y a d'autres possibilités avec des crochets
https://learn.microsoft.com/fr-fr/do.../like-operator

S'il s'agit toujours d'un espace avant le p, alors mettez l'espace, sinon je suppose un ?