Inscription date de retrait suite a recherche

Version imprimable

11/07/2019, 22h42
fx1013

Inscription date de retrait suite a recherche

Bonjour à tous,

Mon titre ne doit pas être très clair alors voici quelques explications:

Je coince sur un projet excel, il s'agit d'un fichier client avec en 1ere page un classeur de recherche relier sur la cellule C4 a recherche par nom et C5 par tel. tous fonctionne parfaitement, hors j'ai rajouter un bouton qui doit permettre de noter automatiquement que le client et venu retirer son produits en colonne Q de la feuille "base_clients" devant sont nom. je vous joint le fichier si vous avez besoin de plus explication hésiter pas .

Voci le fichier en question

http://www.grosfichiers.com/VER5VuEjQEK
Merci à vous.

Bonjour,

D'abord, pourquoi fusionner plusieurs lignes dans la feuille recherche? 1 seule ligne par nom suffit, adaptez la hauteur de ligne à votre convenance et vous aurez le même rendu visuel.
Voici un exemple de ce que vous attendez, attention j'ai tenu compte de la remarque précédente, donc 1 nom par ligne.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Valider_Le_Retrait()
    Dim F1 As Worksheet, F2 As Worksheet
    Dim DerLig As Long, i As Long
    Application.ScreenUpdating = False
    Set F1 = Sheets("Recherche")
    Set F2 = Sheets("base clients")
    DerLig = F1.[A9].End(xlDown).Row
    ReDim Nom(DerLig)
    For i = 9 To DerLig
        Nom(i) = F1.Cells(i, "A")
    Next i
    For i = 9 To DerLig
        Set x = F2.Columns(1).Find(Nom(i), LookIn:=xlValues, lookat:=xlWhole)
        If Not x Is Nothing Then
            F2.Cells(x.Row, "Q") = Format(Date, "m/d/yyyy")
        Else
            MsgBox "Client pas trouvé"
            Exit Sub
        End If
    Next i
    Set F1 = Nothing
    Set F2 = Nothing
End Sub

Cdlt

12/07/2019, 09h37
fx1013

Bonjour,

Tout d'abord merci pour votre réponse.

J'ai essayer votre méthode cela fonctionne pour la première ligne de recherche par nom en revanche cela ne fonctionne pas si je fait une recherche sur la deuxième ligne donc par numéros car ce sont deux mode de recherche bien distinct.

merci à vous.
12/07/2019, 09h50
ARTURO83

Vous n'avez pas suivi ce que j'ai dit à propos des cellules fusionnées. Avez-vous fait ceci?

Pièce jointe 490636
12/07/2019, 11h17
fx1013

Voici ce que j'ai fait.

http://www.grosfichiers.com/7cprcTH2g38
13/07/2019, 04h19
ARTURO83

Bonjour,

Voilà le tableau, Je me suis basé sur ce que vous aviez fait, à savoir la recherche par tél, vous pouvez modifier pour faire une recherche par nom en employant le même principe.
En colonne N (masquée): formule pour récupérer toutes les lignes correspondant au numéro de téléphone recherché. en N9 et à tirer vers le bas:

Code:

=SIERREUR(EQUIV($C$5;INDIRECT("'base clients'!$C"&N8+1&":$C$10000");0)+N8;"")

Ensuite dans le tableau, remplacement de Equiv(..;..;..) par la valeur trouvée en colonne N.

Le fichier
Pièce jointe 490811

Cdlt
13/07/2019, 07h34
fx1013

Re.

Encore merci pour votre aide mais je suis désoler votre tableau (sans que je fasse de modif.) ne fonctionne pas lorsque que je clique sur "validez retrait" il me marque client pas trouver et ci je rajoute des tels dans la liste dans la recherche, que ceux soit par nom ou par tel il ne les trouve plus.

Sinon ne vous prenez pas trop la tête je laisserai comme avant tant pis.

Merci à vous.

Bonjour,

C'est ma faute, je n'ai pas vu toutes les colonnes masquées,
rectificatif:

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
Sub Valider_Le_Retrait()
    Dim F1 As Worksheet, F2 As Worksheet
    Dim DerLig As Long, i As Long
    Application.ScreenUpdating = False
    Set F1 = Sheets("Recherche")
    Set F2 = Sheets("base clients")
    DerLig = F1.[A9].End(xlDown).Row
    F1.Range("A9:Q1000").ClearContents
 
    'Formules
    F1.Range("A9:A" & DerLig).FormulaR1C1 = "=IFERROR(INDEX(Base_Clients,RC14,COLUMN()),"""")"
    F1.Range("C9:C" & DerLig).FormulaR1C1 = "=IF(RC1="""","""",R5C3)"
    F1.Range("D9:M" & DerLig).FormulaR1C1 = "=IF(RC1="""",0,INDEX(Base_Clients,RC14,COLUMN()))"
    F1.Range("N9").FormulaR1C1 = "=IFERROR(MATCH(R5C3,INDIRECT(""'base clients'!$C""&R[-1]C+1&"":$C$10000""),0)+R[-1]C,"""")"
 
    Tel = F1.Cells(5, "C")
    With F2.Columns(3)
        Set x = .Find(Tel, LookIn:=xlValues, lookat:=xlWhole)
        If Not x Is Nothing Then
            deb = x.Address
            Do
                F2.Cells(x.Row, "Q") = Format(Date, "m/d/yyyy")
                Set x = .FindNext(x)
            Loop While Not x Is Nothing And x.Address <> deb
        End If
    End With
 
    Set F1 = Nothing
    Set F2 = Nothing
End Sub

Le fichier
Pièce jointe 490832

ATTENTION, comme dit précédemment, je fais la recherche d'àprès le N° de téléphone de la cellule C4 feuille "Recherche", à adapter si vous voulez rechercher par le nom.

Cdlt