Copier la valeur de 2 Combobox dans l'en-tête de pages

[aubelix]

Bonjour à tous les amis du Forum. 🙂

Je reviens vers vous pour sollicite une fois de plus votre aide.
Avec l'aide de Bebere, via 2 Combobox et une listView, j'extrais
des données répondant à ces critères. Mon problème est le suivant:

Comment modifier automatiquement à chaque copie des données
dans la feuille extractions l'en-tête de pages exemple :

"EXTRACTIONS VALIDITE du ComboBoxDébut au ComboBoxFin"

en remplaçant ComboBoxDébut par la valeur de la date choisie
en remplaçant ComboBoxFin par la valeur de la date choisie
Voir en aperçu l'exemple du fichier joint.

Par avance Merci pour votre aide.
Cordialement.

 

[Dull]

Re : Copier la valeur de 2 Combobox dans l'en-tête de pages

Salut aubélix, le Forum

Peut être comme cela

Private Sub CommandButton6_Click()
    Unload Me
     Sheets("Extractions").Select
    Range("A1").Select
    ActiveSheet.PageSetup.CenterHeader = "&""Arial,Gras""&16" & "EXTRACTIONS VALIDITE du " & ComboBoxDebut & " au " & ComboBoxFin

   ActiveWindow.SelectedSheets.PrintPreview
End Sub

Bonne Journée

 

[aubelix]

Re : Copier la valeur de 2 Combobox dans l'en-tête de pages

Bonjour Dull 🙂

Merci ta réponse.

Cela fonctionne très bien.
Cordialement.

 

[aubelix]

Re Bonjour à tous les amis du Forum. 🙂

Une question de code:
Comment écrire le code si on double click sur la listview VIDE
sans aucune donnée et de ne rien faire.

pour ne pas avoir à afficher ce message si la listview est vide aucune action.


Select Case MsgBox(" Voulez-vous remplacer les anciennes recherches" _
& vbCrLf & " par les nouvelles données ?" _
, vbYesNo Or vbCritical Or vbDefaultButton2, "Attention !")


Par avance merci pour votre aide.
Cordialement.