Modifier macro

bonsoir

j'ai besoin de votre aide pour modifier la macro qui sert a affiche le numero de facture au lieu d'afficher aussi le nom du client et la date de la creation de la facture

Sub ZeigArchivRechnung()

Dim TBf As Worksheet, TBa As Worksheet, ZZ As Range, Erg, i As Integer

Dim Dlg As DialogSheet

Set Dlg = ThisWorkbook.DialogSheets("DlgArchive")

Set TBa = ThisWorkbook.Worksheets("Archive")

Set TBf = ThisWorkbook.Worksheets("Formulaire")

i = 2

With Dlg.[LFNr]

.RemoveAllItems

Do While Not IsEmpty(TBa.Cells(i, 1)) 'Lecture des numéros de facture

.AddItem Text:=TBa.Cells(i, 1).Value

i = i + 1

Loop

If .ListCount > 0 Then .ListIndex = 1

If Not Dlg.Show Then Exit Sub 'Affichage de la boîte de dialogue

Set ZZ = TBa.Cells(.ListIndex + 1, 1) 'Affectation de la cellule sélectionnée

End With

'Récupération des données depuis l'archive :

Application.ScreenUpdating = False

For i = 0 To 3 Step 1

TBf.[no_facture].Offset(i, 0).Value = ZZ.Offset(0, i).Value

Next i

For i = 0 To 5 Step 1

TBf.Cells(3, 3).Offset(i, 0).Value = ZZ.Offset(0, i + 4).Value 'Adresse

Next i

For i = 0 To 22 Step 1

TBf.Cells(15, 1).Offset(i, 0).Value = ZZ.Offset(0, i + 10).Value 'Références

Next i

For i = 0 To 22 Step 1

TBf.Cells(15, 2).Offset(i, 0).Value = ZZ.Offset(0, i + 33).Value 'Articles

Next i

For i = 0 To 22 Step 1

TBf.Cells(15, 3).Offset(i, 0).Value = ZZ.Offset(0, i + 56).Value 'Quantité

Next i

For i = 0 To 22 Step 1

TBf.Cells(15, 4).Offset(i, 0).Value = ZZ.Offset(0, i + 79).Value 'Prix unitaires

Next i

Application.ScreenUpdating = True

End Sub

Bonjour,

Il va falloir que tu précises la version d'Excel que tu utilises

Et joindre un fichier, si tu veux recevoir une aide du forum...

Cdlt

bonjour merci d'avoir répondu.

concernant la version excel 2010 en cliquant sur le bouton afficher facture j'ai besoin afficher aussi le nom du client et la date de création de la facture et tout est expliqué dans le fichier joint

merci

Re,

Pour la 1ère. question, voir code modifié et me redire.

Sub ZeigArchivRechnung()
      Dim TBf As Worksheet, TBa As Worksheet, ZZ As Range, Erg, i As Integer
      Dim Dlg As DialogSheet
10        Set Dlg = ThisWorkbook.DialogSheets("DlgArchive")
20        Set TBa = ThisWorkbook.Worksheets("Archive")
30        Set TBf = ThisWorkbook.Worksheets("Formulaire")
40        i = 2
50        With Dlg.[LFNr]
60            .RemoveAllItems
70            Do While Not IsEmpty(TBa.Cells(i, 1))    'Lecture des numéros de facture
80                .AddItem Text:=TBa.Cells(i, 1) & "-" & TBa.Cells(i, 2) & "-" & TBa.Cells(i, 5)
90                i = i + 1
100           Loop
110           If .ListCount > 0 Then .ListIndex = 1
120           If Not Dlg.Show Then Exit Sub    'Affichage de la boîte de dialogue
130           Set ZZ = TBa.Cells(.ListIndex + 1, 1)    'Affectation de la cellule sélectionnée
140       End With

Pour la seconde, à savoir "Transformer devis en facture", il est difficile de répondre cat il n'y pas de notion de devis dans le fichier.

Cdlt

Un grand merci a vous Jean-Eric et a tous les membres de ce fabuleux forum , c'est ce je veux , il me reste plus qu'a laissé un peu d'espace entre le numéro de facture le nom du client et la date

un fois de plus merci