Discussion :

[ABOUKONBOL]

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

[Franc]

Salut, teste comme ceci:

Code :

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

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

[tototiti2008]

Bonjour,

un essai avec une fonction

Code :

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

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 :

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

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

à recopier vers le bas

[ABOUKONBOL]

Bonjour,

un essai avec une fonction

Code :

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

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 :

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

=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.

[ABOUKONBOL]

Salut, teste comme ceci:

Code :

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

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

[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

[ABOUKONBOL]

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.

[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

[joe.levrai]

Bonjour,


comme ça ?

Code :

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

=contient(A1;" p #*")

[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 ?