XL pour MAC FICHE CLIENT

[fimo41]

Bonsoir a tous

Comment faire une fiche client avec le nom du client en HAUT de la fiche

Et ensuite les produits commandés !! avec le nombre et le prix

Sur la même feuille car avec word en publipostage cela ne fonctionne pas

@ + merci pour l'aide

 

[goube]

bonsoir fimo41,

Une proposition avec un TCD.
Cordialement.

 

[Dugenou]

Bonjour,
Une autre proposition avec des formules matricielles.
Cordialement

 

[job75]

Bonjour fimo41, goube, Dugenou,

Voyez le fichier joint et cette macro évènementielle dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
[A4].CurrentRegion.AutoFilter 1, [A2] & "*"
End Sub

A+

 

[job75]

Dans ce fichier (2) j'ai ajouté la feuille "FICHE CLIENT" et la macro :

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
[B1] = ""
Rows("4:" & Rows.Count).Delete 'RAZ
Sheets("BDD").[A4].CurrentRegion.Copy [A3]
[A3] = Chr(1) 'sécurité
With [A3].CurrentRegion
    If Application.CountIf(.Columns(1), "<>" & .Cells(2, 1)) > 1 Then .Offset(1).Resize(.Rows.Count - 1).Delete xlUp: Exit Sub
    [B1] = "FICHE DU CLIENT " & UCase(.Cells(2, 1))
End With
End Sub

Elle se déclenche quand on active la feuille.

J'ai aussi légèrement modifié la macro de la 1ère feuille car il est mieux d'ajouter un astérisque quand on entre les 1ères lettres du nom :

[A4].CurrentRegion.AutoFilter 1, IIf([A2] = "", "*", [A2])