Discussion :

[manana43]

Bonjour,
J'ai besoin de chercher des "numéro de facture" figurants dans une colonne du Classeur A,dans une colonne du Classeur B .
la colonne du Classeur B contient un texte avec des numéro de facture, je veux être capable de voir si le numéro de facture du Classeur A figure dans le classeur B.

Merci

[marot_r]

Bonjour.

Je pense que RECHERCHEV est ce que tu cherches (voir l'aide de Excel pour les détails).

A+

[manana43]

J ai besoin du code vba c'est avec une macro que je dois faire la recherche
Merci

[ARTURO83]

Bonjour,

Il faudrait un peu plus de précisions:
-Classeur A: Dans quelle colonne se trouvent les N° de facture?
-Classeur B: Dans quelle colonne doit se faire la recherche?
-Classeur B: De quoi est constitué le contenu des cellules où doit s'effectuer la recherche? le N° de facture est-il la seule valeur numérique dans la chaîne de caractères? N'y a-t-il pas des dates dans la chaîne de caractères?
-Autres éléments qui pourraient aider.

Cdlt

[manana43]

Merci et désolé c est la 1er fois que je poste ...
Voila,
-les "numero de facture" sont dans la colonne "O" du Classeur B.
-je dois chercher "numero de facture" qui commence par # (exp #123567) dans la colonne "F" du classeur A..
-la colonne "F" du Classeur B contient du text, c est un champ remarque, mais dans ce text les numerosde factures commence par #.
-il.peut avoir plusieurs numeoros des factures dans la colonne "F" du classeur B,
- des qu un numero de facture edt detecter dan le classeur B, la celule ou si possible ce numero doit etre colorié

Merci bcp

[ARTURO83]

Bonjour,

Désolé mais pour moi c'est pas clair.
-les N° de factures sont dans la colonne O du classeur B
-les N° de factures avec du texte sont dans la colonne F du classeur B

Questions:
- Pourquoi chercher dans F ce qu'il y a en O?
-je dois chercher "numéro de facture" qui commence par # (exp #123567) dans la colonne "F" du classeur A ---> Le N° de facture vient-il après la parenthèse fermante? ou bien le N° de facture est-il 123567?
-Dans le texte, y a t-il d'autres valeurs numériques autre que le n° de facture?

Pensez que je n'ai pas la vision de vos données, donc soyez précise dans votre énoncé, donnez quelques exemples.

CDlt

[manana43]

Bonjour,

-les N° de factures sont dans la colonne O du classeur "Facture"
-les N° de factures avec du texte sont dans la colonne F du classeur "Plainte"

je dois chercher "numéro de facture" de la colonne "O" du classeur "Facture" et qui commence par #, exp (#123567), dans la colonne "F" du classeur "Plainte" (pour voir si une facture fait objet d'une plainte).
il peut avoir plusieurs numéros de factures dans la même cellule de la Colonne "F" (toujours le numéro de facture commence par un # et entre-parenthèse()), c'est un champ Remarque contenant du texte.
il peut avoir d'autre valeur numérique dans ce champ.

Merci

[ARTURO83]

Bonjour,

Proposition:
-Copiez ceci dans un module standard du classeur "Facture"
-lancez la macro, une fenêtre s'ouvre vous demandant de sélectionner le classeur "Plainte"
-les données de la colonne F (feuille "Plaintes" du classeur "Plainte")sont recopiées en colonne "ZZ" de la feuille "Factures" du classeur "Facture", Attention, remplacez le nom des feuilles par leur vrai nom.
-le classeur "Plainte se ferme"
-la recherche s'effectue et à chaque N° de facture trouvée, la cellule passe en vert.
-la colonne ZZ est effacée après chaque traitement.

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
Option Explicit
 
Sub Recherche_Facture()
    Dim Fact As String, Plainte As String, c As Variant
    Dim C1 As Workbook, C2 As Workbook
    Dim Ouvrir_Plainte As String
    Dim DerLig_C1 As Long, DerLig_C2 As Long, i As Long
    Dim f1 As Worksheet
    Application.ScreenUpdating = False
    Set C1 = ThisWorkbook
    Set f1 = C1.Sheets("Factures")
    Columns("O").Interior.ColorIndex = xlNone
    Ouvrir_Plainte = Application.Dialogs(xlDialogOpen).Show()
    Set C2 = ActiveWorkbook
    DerLig_C2 = [F100000].End(xlUp).Row
    Range("F1:F" & DerLig_C2).Copy
    f1.Range("ZZ" & DerLig_C2).PasteSpecial Paste:=xlPasteValues
    C2.Close
    DerLig_C1 = [O100000].End(xlUp).Row
    For i = 2 To DerLig_C1
        Fact = Cells(i, "O")
        Set c = Columns("ZZ").Find(Fact, LookIn:=xlValues, lookat:=xlPart)
        If Not c Is Nothing Then Cells(i, "O").Interior.Color = RGB(0, 255, 0)
    Next i
    Columns("ZZ").ClearContents
End Sub

Cdlt

[manana43]

Merci Beaucoup,
J'ai adapté le code, ça marche très bien.