Changer de nom d'une liste de choix (validation de données) en VBA

Le 27/01/2022 à 05:29

Bonjour à tous,

je me retourne vers vous car impossible de trouver un code VBA qui s'y rapproche.

je souhaiterais que VBA affiche chaque nom de ma liste de choix(validation des données) pour imprimer une autre feuille jumeler sur ces informations.

Sur la feuil1 de D5 à D45 j'ai ma liste de noms, sur la feuil2 en A1 j'ai ma liste de choix(validation des donnés) et sur la feuil3 j'ai les informations jumeler avec la feui2. Je voudrais pouvoir imprimer les 45 feuilles d'un coup.

j'espère avoir été clair, je vous remercie par avance.

Daniel

Le 27/01/2022 à 06:40

Bonjour Daniel
Serait-il possible d'avoir le fichier. On ne sait pas à quoi correspondent les 45 feuilles.

Le 27/01/2022 à 06:59

Merci de ta rapidité et de ton aide,

En me creusant la tête j'ai fais ça qui fonctionne très bien.

Sub T()

'Macro Dan - 09/09/13
Dim cel As Range
Sheets("Feuil2").Select
With Sheets("Feuil1")
For Each cel In .Range("D5:D45")
Sheets("Feuil2").Range("A1") = cel.Value
Next
'IMPRIMER
End With
End Sub

Encore merci à toi et à ce forum.

Le 27/01/2022 à 08:56

oups! rectification

Dim cel As Range

Sheets("Feuil2").Select

With Sheets("Feuil1")

For Each cel In .Range("D5:D45")

Sheets("Feuil2").Range("A1") = cel.Value

.Calculate

With Worksheets("Feuil3")

ActiveWindow.SelectedSheets.PrintOut

End With