VBA extraction et impression a partir d'un tableau

[grodep]

Bonjour à tous, je me tourne de nouveau vers vous car je cherche à faire quelque chose de complètement nouveau pour moi : remplir des champs dans un texte à partir de données filtrées dans un tableau afin d'imprimer le résultat.
Je m'explique: j'ai un tableau relativement simple avec une liste de noms en ordonnée et la date en abscisse. Pour chaque nom il y a, à une certaine date, une case marquée S1.
Je voudrais extraire pour chaque nom, la date correspondant à ce S1 et réussir à partir de là à imprimer une feuille certifiant que monsieur untel a effectué S1 tel jour.

J'espère que le fichier fourni en exemple vous permettra de mieux comprendre ma problématique.
Merci d'avance

 

[Hippolite]

Re : VBA extraction et impression a partir d'un tableau

Bonjour,
As-tu fait une recherche sur le publipostage ?
A+

 

[grodep]

Re : VBA extraction et impression a partir d'un tableau

non pas sur publipostage, mais sur extraction, impression, je vais tester avec publipostage voir si je trouve.

 

[grodep]

Re : VBA extraction et impression a partir d'un tableau

désolé mais je ne trouve rien qui puisse répondre à mon problème.
Si d'aucuns avaient des idées intéressantes à suivre...

 

[Hippolite]

Re : VBA extraction et impression a partir d'un tableau

Bonjour,
Fichier en retour avec les formules, il reste à faire la mise en page.
A+

 

[grodep]

Re : VBA extraction et impression a partir d'un tableau

Bonjour et un grand merci d'abord pour vous être penché sur mon problème.
Seul souci, j'ai précisé dans le titre mais omis de le redire dans l'exposé de mon problème que je souhaitais une solution VBA. L'idée serait d'avoir une macro qui lorsque je la lance va aller chercher les dates pour tous les noms et les imprimer les uns à la suite des autres.
Encore merci pour votre formule.

 

[grodep]

Re : VBA extraction et impression a partir d'un tableau

désolé de up mais j'aurai vraiment besoin d'un coup de pouce supplémentaire

 

[pierrejean]

Re : VBA extraction et impression a partir d'un tableau

Bonjour à tous

Macro a lancer apartir de la feuille doc à imprimer

Sub imprime()
Range("G2") = "Garoua, le " & Format(Now, "dd/mm/yyyyy")
Set c = Sheets("prevision").Cells.Find("S1", LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
  firstAddress = c.Address
   Do
     Range("B5") = "Je, soussigné, Machepro, certifie que Monsieur " & Sheets("prevision").Cells(c.Row - 1, 1) & " a débuté son stage le " & Sheets("prevision").Cells(1, c.Column)
     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
     Set c = Sheets("prevision").Cells.FindNext(c)
   Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End Sub

 

[grodep]

Re : VBA extraction et impression a partir d'un tableau

Un premier test rapide, pour confirmer, O bizarre, que ta macro a l'air de parfaitement fonctionner et de répondre exactement à mes besoins.
Une fois de plus, un grand merci pour la rapidité et l'efficacité!

bonne journée