Discussion :

[NOIBERB]

Bonjour, nouveau membre et quasi débutant je souhaite automatiser l'édition d'une facture (feuille excel) à partir d'une première feuille dans laquelle il y a les données à ''fusionner". Si le code fonctionne sans problème pour la première ligne avec une impression puis une sauvegarde en pdf, je suis coincé sur le fait d'avoir plusieurs ligne à traiter et je n'arrive pas à trouver une boucle qui me permettre d'éditer toutes les factures.
Voici mon code et merci d'avance:
Sub testfacture()
'
' testfacture Macro
'
Dim Nomfic As String
'
If vbNo = MsgBox("Voulez-vous editez les factures des comités ?", vbYesNo, "FACTURATION COMITES") Then
Exit Sub
Else
'Stop
A = (Year(Date))
Sheets("MENU").Select
Sheets("COMITE").Visible = True
Sheets("COMITE").Select
Sheets("FACTURATION").Visible = True
Sheets("FACTURATION").Select
Range("D4").Select
ActiveCell.FormulaR1C1 = ("=COMITE!R2C1")
Range("E4").Select
ActiveCell.FormulaR1C1 = ("=COMITE!R2C2")
Range("D5").Select
ActiveCell.FormulaR1C1 = ("=COMITE!R2C4")
Range("D6").Select
ActiveCell.FormulaR1C1 = ("=COMITE!R2C5")
Range("D7").Select
ActiveCell.FormulaR1C1 = ("=COMITE!R2C3")
Range("E7").Select
ActiveCell.FormulaR1C1 = ("=COMITE!R2C2")
Range("F16").Select
ActiveCell.FormulaR1C1 = ("=COMITE!R2C9")
Range("F19").Select
ActiveCell.FormulaR1C1 = ("=COMITE!R2C10")
Range("F22").Select
ActiveCell.FormulaR1C1 = ("=COMITE!R2C11")
Range("E4").Select
'Sheets("FACTURATION").PrintOut
Nomfic = ActiveCell.Value & " " & A

With Sheets("FACTURATION")
.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Marc\Documents\ACTIV\SPF" & Nomfic _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
MsgBox "Comité " & Nomfic & " facture éditée.", vbInformation, "FACTURATION COMITE"
End With

[78chris]

Bonjour
De façon générale on crée une facture type avec une cellule contenant l'ID de la facture et on utilise RECHERCHEV ou INDEX/EQUIV pour la remplir

Une simple boucle pour changer l'ID puis imprimer/exporter suffit

Les select sont à proscrire

[Tête de chat]

Bonjour

là si je comprends bien tu traites la facture de la première ligne de données qui est sur le ligne2 de ton tableau (R2Cx).

Déjà commence par créer un "Sub TraiteFacture(MaLigne as long)" qui contiendra en gros ce que tu as écrit sauf que là où il y a des R2Cx tu remplaceras le 2 par MaLigne.
Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sheets("FACTURATION").Select
Range("D4").Select
ActiveCell.FormulaR1C1 = ("=COMITE!R" & MaLigne & "C1")

Au passage, oublie les Select / ActiveCell : tu peux écrire directement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Sheets("FACTURATION")
   .Range("D4").FormulaR1C1 = ("=COMITE!R" & MaLigne & "C1")
   .Range("E4").FormulaR1C1 = ("=COMITE!R" & MaLigne & "C2")
    ' etc.
End With

Puis tu fais un Sub Appelant qui contiendrait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = LigneDebut to LigneFin
    TraiteFacture i
Next i

Reste à déterminer LigneDebut (probablement 2) et LigneFin.

Mais perso je mettrais quelque part le n° de ligne(disons en A1 sur la feuille 'Facturation') et je l'utiliserais dans des formules fixes (donc qui ne seraient pas modifiées par le VBA) dans les autres cellules :
Par exemple en D4 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=INDEX(COMITE!A:A;$A$1)

Intérêt de la méthode : mise au point immédiate, possibilité de sortir une facture "à la main", maintenance facilitée (modif de la facture ou de la structure du tableau de données sans toucher au code) : il suffit de modifier le n° de ligne en A1 pour que la page se mette à jour.

Et du coup il resterait dans TraiteFacture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub TraiteFacture(MaLigne As Long)
   Dim NomFic as string
   With Sheets("FACTURATION")
      .Range("A1").Value = Maligne
      .PrintOut
       Nomfic =  .Range("E4").Value & " " & A
      .ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Marc\Documents\ACTIV\SPF" & Nomfic _
      , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
      :=False, OpenAfterPublish:=False
      MsgBox "Comité " & Nomfic & " facture éditée.", vbInformation, "FACTURATION COMITE"
   End With
End Sub

Non testé...

Pendant qu'on y est transforme ton tableau de données en tableau structuré ; tu travailleras alors en n° de ligne dans le tableau (à partir de 1 au lieu de 2), mets un nom sur la cellule A1 et tu auras des formules sympa (lisibles) qui ressembleront à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=INDEX(Data[NumeroFac];Ligne)

[NOIBERB]

Merci pour tous ces renseignements. Je vais me mettre au travail pour intégrer tout cela.
Cordialement.
Je ne clôture pas encore la discussion

[NOIBERB]

Merci TETE DE CHAT, avec les aménagements tout sort nickel. J'ai testé avec les premières indications et c'est super.
Pour le fun je vais testé avec la proposition en seconde partie