Discussion :

[Egaria]

Bonjour,

Actuellement je bloque dans ma macro, j'aimerais que ma macro me dise quand elle trouve une correspondance uniquement si les deux premiers caractères du contenu de la cellule est par exemple "PO" car actuellement ma macro marche mais elle me trouve des correspondances avec des cellules qui ont comme contenu par exemple "ABC PO ABC", hors moi je veux uniquement les deux premiers caractères ...

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
 
For Each c In Range(Debut_Selection, Fin_Selection)
  If c.Find(Parametre_De_Recherche) Is Nothing Then
    ' Rien à faire
  Else
    MsgBox ("Correspondance :" & Chr(10) & "Cellule : " & c.Address & Chr(10) & "Contenu : " & c.Value)
  End If
Next

Debut_Selection est le début de la sélection qu'on rentre dans une cellule
Fin_Selection est la fin de la sélection qu'on rentre dans une cellule

Merci, bonne journée

[GeekAlf]

Bonjour Egaria,

as-tu tenté un left(debut_selection,2) ?

[BENNASR]

bonjour
si j'ai compris la demande :

Code :

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

1
2
3
4
5
6
7
8
Sub Cacahuete()
Application.ScreenUpdating = False
Dligne = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
For I = 2 To Dligne
If LCase(Left(Cells(I, 1), 2)) = "po" Then MsgBox Cells(I, 1).Row
Next I
Application.ScreenUpdating = True
End Sub

[Egaria]

bonjour
si j'ai compris la demande :

Code :

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

1
2
3
4
5
6
7
8
Sub Cacahuete()
Application.ScreenUpdating = False
Dligne = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
For I = 2 To Dligne
If LCase(Left(Cells(I, 1), 2)) = "po" Then MsgBox Cells(I, 1).Row
Next I
Application.ScreenUpdating = True
End Sub

ça pourrait marcher je pense mais le seul truc ce que j'ai d'autres paramètres que je rentre dans le if etc ...
Moi je voudrais juste quand dans mon code

Code :

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

1
2
3
4
5
6
7
8
 
For Each c In Range(Debut_Selection, Fin_Selection)
  If c.Find(Parametre_De_Recherche) Is Nothing Then
    ' Rien à faire
  Else
    MsgBox ("Correspondance :" & Chr(10) & "Cellule : " & c.Address & Chr(10) & "Contenu : " & c.Value)
  End If
Next

Il puisse uniquement prendre les deux premiers caractères

[MarcelG]

Bonjour à vous, Bonjour au Forum,

Pour ma part, j'aurais créé une colonne accessoire.
Chacune de ses cellules retournerait les 2 premiers caractères de la cellule se trouvant sur la même ligne.
Enfin, tous les résultats souhaités seraient retournés par la méthode Find, plus efficace qu'un balayage.

[ARTURO83]

Bonjour,

Essayez ceci en 2 lignes

Code :

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

1
2
    Set c = Range(Debut_Selection, Fin_Selection).Find(Parametre_De_Recherche & "*", LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then MsgBox ("Correspondance :" & Chr(10) & "Cellule : " & c.Address & Chr(10) & "Contenu : " & c.Value)

Inclus dans un exemple concret:

Code :

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

1
2
3
4
5
6
7
8
9
Option Compare Text
Sub recherche()
    Debut_Selection = "$A$2"
    Fin_Selection = "$A$20"
    Parametre_De_Recherche = "PO"
 
    Set c = Range(Debut_Selection, Fin_Selection).Find(Parametre_De_Recherche & "*", LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then MsgBox ("Correspondance :" & Chr(10) & "Cellule : " & c.Address & Chr(10) & "Contenu : " & c.Value)
End Sub

Cdlt

[Egaria]

Bonjour Egaria,

as-tu tenté un left(debut_selection,2) ?

Oui il me sort une erreur