Résultats pour "impression feuille listbox date"

10'051 résultats pour cette recherche

Bonjour à tous.

J'ai créé un formulaire dans un classeur A dans lequel j'ai inséré une listbox afin d'imprimer les feuilles d'un classeur B. Cette listbox est remplie en allant chercher le nom de tous les onglets du fichier B. Puis, j'ai mis en place une sélection automatique à partir d'un tableau excel (dans le fichier A) reprenant les valeurs à sélectionner. Jusque là, tout fonctionne.

Maintenant, j'aimerais imprimer les feuilles du fichier fichier B qui correspondent aux éléments sélectionner dans la listbox. C'est à ce moment qu'apparaît le message d'erreur : "erreur d'exécution '9' : L'indice n'appartient pas à la sélection".

J'ai cherché dans l'aide microsoft, mais rien à faire. Je commence à désespérer.

Voici mon code :

Private Sub CommandButton1_Click()
Dim i As Long                                                      
Dim FEUILLES As Worksheet                                              
Dim NOM_FICHIER2 As String                               ' stockage du nom du fichier B renseigné dans une cellule du fichier A

' stockage du nom du fichier à imprimer en le récupérant dans le fichier A
ThisWorkbook.Activate
Sheets("IMPRESSION").Activate
Range("E2").Select
NOM_FICHIER2 = ActiveCell.Value

' Boucle d'impression
For Each FEUILLES In Workbooks(NOM_FICHIER2).Worksheets
    With ListBox1
      For i = 0 To .ListCount - 1
        If .Selected(i) = True Then [b][color=#BF0000]Sheets(.List(i)).PrintOut       [/color][/b]' Impression des onglets que l'opérateur a sélectionnés
      Next
    End With
Next

End Sub
------------------------------------------------------------
Private Sub ListBox1_Click()

End Sub
------------------------------------------------------------
Private Sub UserForm_Click()

End Sub
------------------------------------------------------------
Private Sub UserForm_Initialize()

' Script qui va permettre de récupérer dans la listbox le nom des onglets du fichier désigné et préselectionner les onglets de la listbox

Dim COUNT As Object
Dim NOM_ONGLET_TABLEAU As String                                    ' variable de stockage du nom de l'onget disponible dans le tableau
Dim NOM_ELEMENT_LISTE As String                                     ' déclaration de la variable de stockage du nom de l'onglet que l'on souhaite imprimer
Dim INDEX As Long                                                   ' déclaraion de la variable qui stocke le nom de l'élément de la listbox qui sera sélectionné
Dim NOM_FICHIER As String                                           ' déclaration de la variable de stockage du fichier à imprimer

INDEX = 0                                                           ' initialisation de la variable qui servira dans la boucle à définir le nom de l'élément de la liste

' stockage du nom du fichier à imprimer
ThisWorkbook.Activate
Sheets("IMPRESSION").Activate
Range("E2").Select
NOM_FICHIER = ActiveCell.Value

ListBox1.Clear                                                      ' Initialisation à Zéro de la listbox2
ListBox1.MultiSelect = fmMultiSelectExtended                        ' Permet de mettre en place la multisélection

' Boucle de récupération des onglets dans un fichier extérieur afin d'alimenter la listbox1 puis sélectionner
For Each COUNT In Workbooks(NOM_FICHIER).Worksheets
    ListBox1.AddItem COUNT.Name
    NOM_ELEMENT_LISTE = COUNT.Name
    ThisWorkbook.Activate                                           ' positionnement sur le fichier ici présent
    Sheets("IMPRESSION").Select                                     ' positionnement sur la première feuille
    Range("A2").Select                                              ' Positionnement en A2
    Do While ActiveCell.Value <> ""
    NOM_ONGLET_TABLEAU = ActiveCell.Value
            If NOM_ELEMENT_LISTE = NOM_ONGLET_TABLEAU Then          ' boucle qui va comparer l'élement du tableau avec le nom de l'élément de la liste
                ListBox1.Selected(INDEX) = True
            End If
    ActiveCell.Offset(1, 0).Select
    Loop
    INDEX = INDEX + 1
Next

MsgBox ("sélection terminée, veuillez lancer l'impression")
End Sub 

Je suis certain que la solution est toute bête, mais j'ai besoin d'un regard neuf. C'est pourquoi je fais appel à la bienveillance des membres de ce forum.

Merci d'avance.

Cordialement,

Yoann

Bonjour,

J'aurais besoin de lancer une macro sur la feuille en cours :

  • Soit après l'impression qui passe par l’aperçu avant impression.
  • Soit en quittant l’aperçu avant impression sans imprimer.

Merci de votre aide.

135macro-impr-ecran.xlsx (28.65 Ko)

Bonjour,

je souhaiterai automatiser " l'impression écran " de la la zone de l'impression définie (format JPEG si possible), pour pouvoir ensuite la récupérer cette image sur mon bureau.

Une macro permettrait-elle d'effectuer cela ?

PS: je suis sous excel 2013, depuis un Macbook pro.

Ci-joint un petit fichier exemple avec les détails.

Merci par avance pour vos aides et conseils.

Damien

Bonjour,

Je construit petit à,petit un tableau Excel dans lequel j'ai défini une zone d'impression

J'ai inséré un bouton de commande mais je ne trouve pas le code à mettre pour qu'une action sur ce bouton imprime seulement la zone d'impression définie et non pas toute la feuille.

Quelqu'un peut m'aider ?

Merci d'avance,

JP

Bonjour!

J'ai 4 graphique dynamique sur une feuille de calcul. Je vois l'essentiel de mes graphique sur ma feuille.

Je veux imprimer ces 4 graphiques. Lors de l'apercu avant l'impression, dans cette vue, les 4 graphique se retrouve plus tassé donc je perds une légère partie de mon abcisses et de son information lors de l'impression. J'ai essayé de configurer les proportion, la taille, la mise en page etc.. rien à faire les graphique embarque les un par dessus les autres lors de l'impression et pourtant ils sont corrects lorsque je les regarde directement sur la feuille!!

Merci à l'avance de m'aider!!

Bonjour,

j'ai un petit soucis pour imprimer une ListBox j'ai trouvé ce code qui effectivement m'imprime bien ma listbox mais il m'affiche les numéros de lignes est il possible de pas les avoir ? et j'ai une textbox aussi sur userfom que je voudrais associer a l'impression est ce possible de le faire ? merci pour vos réponse

Private Sub CommandButton1_Click() 
Dim Tableau() As Variant 
Dim i As Integer 
Dim j As Byte 

Application.ScreenUpdating = False 
Workbooks.Add 'création d'un nouveau classeur temporaire 

Tableau() = ListBox1.List 
j = ListBox1.ColumnCount 
i = ListBox1.ListCount 
Range("A1:" & Cells(i, j).Address) = Tableau() 

'option pour adapter la largeur des colonnes à la taille des données 
'ActiveSheet.Range("A1:" & Cells(i, j).Address).EntireColumn.AutoFit 

ActiveWorkbook.PrintOut 'impression 
ActiveWorkbook.Close False 'suppression du classeur temporaire 
Application.ScreenUpdating = True 

End Sub 

Bonjour à tous, je suis un débutant en vba et voici mon problème (voir fichier joint):

Dans la feuille "planning" quand je clique sur le bouton "Imprimer" le Userform s'ouvre et m'affiche les feuilles à imprimer via une listbox.

Ensuite je sélectionne UNE feuille à imprimer, la mise en page se fait automatiquement et quand je clique sur "Aperçu" la feuille s'affiche avant l'impression.

Jusque là tout va bien.

Le problème est quand je sélectionne PLUSIEURS feuilles, au lieu de me mettre toutes les feuilles en aperçu il me met en aperçu les feuilles une par une.

J'aimerai comme je l'ai dit précédemment que toutes les feuilles s'affichent en aperçu.

Merci de votre aide

112projet-vierge.xlsm (184.68 Ko)

Bonsoir à toutes et à tous,

Aujourd'hui stagiaire pour 3 mois en fin de DUT Mesures Physiques, je rencontre un petit problème sur Excel.

Mon tuteur me demande d'avoir un bouton sur la feuille 1 du classeur qui permettrait d'imprimer directement la feuille 6 du classeur qui est une feuille annexe. Je connais le béaba d'excel mais j'avoue ne pas trouver de solution à ce problème, la solution est peut-être toute simple, j'implore votre aide. ^^

Merci d'avance.

Bonjour à tous ,

Je suis tout nouveau sur le forum, grace à différent post et conseil j’ai réussi à compiler plusieurs codes pour obtenir mon programme composé de 2 userform.

Cependant j’ai un problème avec mon deuxième Userform nommé “UserformR” dans le fichier ci-joint. J’ai inséré une Listbox qui devrait interroger la base de donnée de la feuillle "DATA " colonne AB et afficher dans une listbox uniquement les lignes dont les cellules de la colonne AB interrogées sont vide. Je n’ai pas réussi à mettre en place cette condition. De plus, maintenant mon compteur de ligne de la listbox m’affiche une valeur qui ne correspond pas aux lignes réelles de la listbox.

Si quelqu’un aurait une solution ou des conseils pour ce petit projet ,

merci d’avance.

ci-joint le fichier avec les userforms .

Ps: je suis débutant dans le VBA, mon programme est très mal organisé je penses …les codes ne sont pas du tout propre .

Bien cordialement.

Bonjour

Je cherche à supprimer les items de ma Listbox2 si ceux-ci ne se trouvent pas dans la 2° Colonne de ma Listbox1 .

Pour cela j'ai écrit (ou des codes y ressemblant) :

For J = 0 To Me.ListBox2.ListCount - 1
        For K = 0 To Me.ListBox1.ListCount - 1
            If ListBox2.Column(0, J) <> ListBox1.Column(1, K) Then
                ListBox2.RemoveItem (J)
            End If
        Next K
Next J

Mais bien -sûr je ne trouve pas la solution

Merci d'avance

Bonjour,

J'ai un Userform permettant de valider des compétences divers et variées. ^^

Pour valider les compétences, je sélectionne un nom dans une Listbox et les infos prénom, code du guss arrivent toutes seul avec du VLOOKUP.

Le soucis c'est que quelques fois, il va falloir passer par le code du guss et non par son nom. Du coup j'ai 2 petits OptionButton qui proposent la sélection par Nom ou par Code.

Le soucis c'est que je galère comme un fifou pour trouver comment faire ça...Je m'explique :

Au départ, c'est comme expliqué ci-dessus la sélection par nom est cochée dès l'activation du UserForm.

J'ai donc la listbox par nom et la textbox qui rappatrie les codes.

Quand je clique sur la sélection par code je voudrais que le fonctionnement de ces deux cases s'inverse. La listbox devient une Textbox qui rappatrie les infos automatiquement et la Textbox devient une listbox que je ne sais pas non plus comment paramétrer dans ce cas de figure...

Merci d'avance pour votre aide !!!! =)

Je joins un petit exemple !!

82testselection.zip (12.95 Ko)

Bonjour,

Depuis hier, je tourne en rond sur un problème de listbox !

Je suis en train de créer une application sous Excel avec du VBA. A l'ouverture du fichier, une fenêtre s'ouvre et propose à l'utilisateur de choisir un type de zonage géographique (communes, départements, régions,...). A la suite de cette sélection, une seconde listbox devrait s'afficher avec la liste correspondante. Par exemple, si je choisi "départements", j'aurai la liste des départements...

En fait, je veux faire en VBA ce qu'il est possible de faire avec des listes "normales" et une fonction indirect...

Toutes mes listes sont prêtes dans un onglet "geo"

LBNIV correspond à la première listbox qui permet de sélectionner le zonage

LBZONE correspond à la liste à générer selon LBNIV

Avec le code ci-dessous, la liste LBNIV se génère bien. Cependant, la liste LBZONE reste vide... D'où vient le problème ?

Merci par avance !

Private Sub UserForm_Initialize()
    'Remarque:
    'ColumnHeads = True spécifie que la première cellule précédent
    'la plage source est utilisée comme titre dans la ListBox.
    'ColumnHeads ne fonctionne pas pour la propriété List() et la
    'méthode AddItem.
    LBNiv.ColumnHeads = False

    LBNiv.RowSource = "geo!A3:A5"

Dim DerCell As String
If LBNiv.Text = "Région / département" Then
DerCell = Sheets("geo").Range("B2").End(xlDown).Address
LBZONE.RowSource = Sheets("geo").Range("B2:B14")
End If

End Sub

Bonjour ,

Je souhaiterais pouvoir filtrer les résultats d'une ListBox (alimentée par un tableau de données) par une autre ListBox.

Ce qui ressemblerait à quelque chose comme ca:

Listbox1:

A

B

C

D

ListBox2:

A1

A2

B1

B2

B3

C1

D1

D2

Et donc le filtrage selon le choix dans la première Listbox.

Une idée?

Merci d'avance

Bonjour,

Je suis en train de créer un userform à choix multiple avec une listbox aussi à choix multiple.

A l'appel du userform, la listbox1 s'initialise avec plusieurs valeurs parmi lesquelles l'utilisateur fait un choix qui peut être multiple.

J'aimerai que si une valeur particulière est sélectionnée, cela initialise une lisbox2 sur le même userform avec des valeurs défini pour offrir un complément de choix et si la valeur est désélectionnée que cette listbox2 se vide.

Je n'arrive pas à formuler l'idée: if Listbox1.SelectedItem = "valeur A" then Listbox2 AddItem "valeurB"

Pouvez vous m'aider?

Une autre solution serait de remplir la listbox2 en même temps que la Listbox1 en "grisant" les valeurs et rendre ces valeurs actives si on sélectionne la bonne donnée dans la listbox1 mais j'ai pas la moindre idée de comment faire....

Merci.

Bonjour,

Très rapidement, auriez vous un code pour copier une ListBox1 d'une Userform1 à une Listbox2 d'une Userform2

Je n'arrive pas à trouver la bonne syntaxe.

Merci, Bruno

Bonjour à tous,

J'ai trouvé un fil sur le forum qui explique comment faire dépendre une listbox en fonction d'une autre listbox. Malheureusement, ça fait pas loin d'une heure que j'essaie d'arranger la macro à mon fichier et rien... ça ne fonctionne pas... voici un fichier exemple tout simple et qui me permettrait de bien comprendre comment fait-on... car là je galère sur mon fichier je vosu raconte pas....

J'ai cherché sur plusieurs forums et tout ce que j'ai essayé n'a pas fonctionné...

Please help me !!

https://www.excel-pratique.com/~files/doc/combobox.xls

D'avance merci,

Souri84

Bonjour,

Je viens vers vous pour avoir une aide concernant ma problématique.

j 'ai un fichier contenant une base de données qui est renseigné tout les jours .

Suite à ses données , j'imprime une étiquette de suivi une à une et cela deviens très compliqué.

il est possible d'automatisé cette procédure en VBA mais mes connaissances dans ce domaine sont Nul.

Ma demande , imprimer toutes les étiquettes suivant la date renseigné dans un champ,

suivant le modèle de l'étiquette.

En pièce jointe vous trouverez un exemple de ma base + étiquette

En espérant avoir été clair dans ma demande

Merci d'avance pour votre aide

Bonjour,

Je dois imprimer un cahier de la journée pour l'année avec la date. Cependant j'aimerai pouvoir imprimer toutes les feuilles qu'il me faut d'un coup sans avoir à changer la date à la main à chaque fois. J'ai cherché, apparemment cela se fait par macro mais je n'y comprend rien, si quelqu'un peut m'aider svp.

49cahier-journee.zip (12.54 Ko)

Bonjour,

je suis nouveau sur le forum et j'espère que je pose ma question au bon endroit

Est-ce que quelqu'un pourrait m'expliquer et trouver une solution à mon problème.

Je travaille sous Mac Excel 2016; paramètre "Suisse-Romande", mais ce n'est pas ça le problème.

Pourquoi lorsque j'imprime une feuille Excel avec la procédure ordinaire Fichier-Imprimer, les dates sont imprimées au format jj.mm.aaaa (avec des points de séparation = date suisse) et lorsque j'utilise une macro pour imprimer la même feuille les dates sont imprimées au format jj/mm/aaaa (avec des barres obliques) ?

J'utiliser une macro pour effectuer des calculs et le transfert de données sur une autre feuille du classeur. Voici l'extrait de la macro:

Sub Imprimer()

Sheets ("Feuil1").Printout

End Sub

Merci pour votre aide.

Bonjour,

je joint un fichier, le but est d'imprimer une fiche qui ira, grâce à du rechercheV chercher les info sur mon tableau

il y a 8 fiches en exemple dans mon tableau, mais il peut y avoir énormément plus, je voudrais donc trouver une macro qui permette de les sortir en impression automatiquement des que je clique sur le bouton impression.

Il y a aussi un subtilité à incorporer dans la macro car je n'arrive pas à le faire par rechercheV : je voudrais que ça indique pour chaque fiche la période de date d'exécution (colonne K de mon tableau). Concrètement pour ma fiche 1 il faudrait qu'il soit indiqué dans la rubrique "période détaillé" du 03/07/2015 au 03/07/2015.

Pour ma fiche 2 du "13/09/2014 au 13/09/2014"

Pour ma fiche 3 du "24/02/2016 au 24/02/2016"

Pour ma fiche 4 du "09/04/2015 au 19/05/2015"

Pour ma fiche 5 du "15/12/2015 au 15/12/2015"

Pour ma fiche 6 du "26/01/2015 au 25/02/2016"

etc...

Est ce que quelqu'un peut m'apporter son aide?

Par avance merci

Bonne soirée à tous


oups voilà le fichier

Recherches récentes

imprimer listbox datesecurite incendieaudit securitegestion stock fifofifo stockdanielactivesheet shapes selectallsupprimer images pas boutonscompter visibles plagedecimalescaissehypertextedashboardvba caissesavdonnees independantesite webqcmplanificateurcolorier selection