Corriger une maco pour imprimer

[Bud.boundy]

Bonjour, j'aimerais corriger une macro ne marchant pas...

Je vous envoie l'exemple en fichier joint où l'explication sera donné dans une bulle rouge...
L'erreur concerne la 2ème macro en jaune

Merci

 

[2passage]

Re : Corriger une maco pour imprimer

Bonjour,

Si j'ai bien compris, tu veux utiliser un modèle de feuille pour chaque personne donnée. Dans ce cas, c'est la structure de ton code qui ne convient pas : tu fais 2 boucles "for each" imbriquées, donc tu appliques tous les paramètres à chaque personne. Conserve seulement un "for each" sur les noms et utilise un offset pour la feuille (comme tu le fais pour les paramètres) et ça devrait marcher.
A plus

 

[Bud.boundy]

Re : Corriger une maco pour imprimer

Merci 2passage,

malheureusement je ne sais pas faire... je débute réellement dans ce langage...

Merci à vous de m'aider

 

[2passage]

Re : Corriger une maco pour imprimer

Bonjour,

Je ne peux pas tester a cause d'un message d'erreur au lancement de macro (liaison cassée, je pense) mais ce code devrait fonctionner

Sub PrintLoopingSpecial()

Dim WSSource As Worksheet
Dim WSCible As Worksheet
Dim RangeListName As Range, CellName As Range
Dim PageFrom As Byte, PageTo As Byte, NbCopy As Byte

Set WSSource = Worksheets("IMPRIM")
With WSSource
    Set RangeListName = .Range("F6:F30")
End With

For Each CellPara In RangeListName
    If Not CellPara = "" Then
            Set WSCible = Worksheets(CStr(CellPara.Offset(0, 1).Text))
            NbCopy = CellPara.Offset(0, 2)
            PageFrom = CellPara.Offset(0, 3)
            PageTo = CellPara.Offset(0, 4)
            With WSCible
                .Range("F1") = CellName
                .Calculate
                .PrintOut From:=PageFrom, To:=PageTo, Copies:=NbCopy
            End With
    End If
Next
End Sub

A plus

 

[Bud.boundy]

Re : Corriger une maco pour imprimer

Merci 2passage,

Ca ne marche malheureusement pas... CellPara de la ligne (For Each CellPara In RangeListName) ne sembe pas défini...

Merci

 

[Bud.boundy]

Re : Corriger une maco pour imprimer

Je crois avoir trouvé en remplçant CellPara par CellName... N'estce pas ???

Merci beaucoup