Re,
Pour commencer, l'extraction des onglets par N° d'appareil.
https://www.excel-pratique.com/~files/doc/o40dPRWoTgETAT_DES_INTERVENTIONS_2008_retour.xls
Crée un onglet pour chaque N° appareil sur ton fichier d'origine
Dans un module:
Sub Extrait()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets("DEPANNAGES").Select
'--- Liste des services
[A1:P10000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[R1], Unique:=True
Sheets("DEPANNAGES").Select
For Each c In Range("R2", [R65000].End(xlUp)) ' pour chaque appareil
[R2] = c.Value
On Error Resume Next
Sheets(c.Value).Delete
On Error GoTo 0
Sheets.Add After:=Sheets(Sheets.Count) ' création
ActiveSheet.Name = c.Value
'-- extraction
Sheets("DEPANNAGES").[A1:P10000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("DEPANNAGES").[R1:R2], CopyToRange:=[A1]
Sheets("DEPANNAGES").Select
Next c
End Sub
Dans la feuil DEPANNAGES
Nommer :
Insertion => NOM => Définir => fait réf à => =DEPANNAGES!$R$1
affecter la macro Extrait à un Bt
Est-il vraiment utile d'automatiser l'impression ? sachant qu'il faudra de toute façon cliquer. à voir
Cdlt,