Facture , nom client qui remplit les cellules automatique

Bonjours et merci de toute forme d'aide que vous saurez m’indiquer.

J'éprouve un problème

j'ai 1 cellule qui ce nomme D10, qui contiens ma liste de nom client.

J'aimerai que en choisissant un nom dans la liste de D10 , les cellules suivante ce remplisse

D11,D12,D13,D14,G10,G11,G12,G13,G14,G15.

Je dispose déjà dune macro mais le problème ses quelle fonctionne bien mais juste de gauche a droite , elle ne remplie pas du haut en bas et de façon sélective.

je vous joint une image ainsi que le code VB.

Je suis un peut débutant.

voici le code la ou je block c'est sur

Range("D" & Target.Row) = adres(1, 2)

Jai essayer Range("D11" & .

mais sans succès.

Option Explicit
Dim BlockChange As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
Dim adres As Range, Dl As Long
  If BlockChange Then Exit Sub
  BlockChange = True
  Application.ScreenUpdating = False
    If Target.Row >= 20 And Target.Row <= 23 And Target.Column = 3 Then
      With Sheets("CODEREF")
        Dl = .Range("A" & .Rows.Count).End(xlUp).Row
        Set adres = .Range("A2:A" & Dl).Find(Target.Value)
      End With
      If Not adres Is Nothing Then
        Range("D" & Target.Row) = adres(1, 2)
        Range("H" & Target.Row) = adres(1, 3)
      End If
    End If
  BlockChange = False
  Set adres = Nothing
End Sub

les donné son sur la feuille qui ce nomme client.

Merci

Bonsoir

Le plus simple

voila le fichier est joint

encor merci

Bonjour djmisterjon,

Va voire ce post https://forum.excel-pratique.com/excel/realisation-devis-a-partir-d-une-base-de-donnee-t43254.html.

Tu devrais trouver ton bonheur, ce n'est pas une facture mais un devis et le principe doit être le même.

Bon courage

Bonjour djmisterjon,

Pas de suite ?

Voici ton fichier modifié avec liste déroulante en D10 et remplissage automatique des cellules D11,D12,D13,D14,G10,G11,G12,G13,G14,G15.

Gestionnaire de Noms :

LISTE_CLIENTS (=client!$A:$A)

DONNEES_CLIENTS (=client!$A:$L)

Liste déroulante = Validation des données + Liste + "=LISTE_CLIENTS"

Cellules D11,D12,D13,D14,G10,G11,G12,G13,G14,G15. avec RECHERCHEV (Ex. Code =RECHERCHEV($D$10;DONNEES_CLIENTS;2;FAUX)