Imprimer des cellules d'une seule colonne

[pat12]

Bonjour :
1 - je souhaite imprimer une seule ligne (et pas les cellule vide)d'une feuille en code VBA.
et en ouvrant une boite de message pour choisir un cri taire de la colonne (A) de cette feuille.
Si je n’ai pas été clair, demandez-moi.
Merci ce forum est vraiment bien..

 

[Jacou]

Bonsoir pat12

effectivement ce que tu cherches n'est pas très clair - peux-tu nous préciser un peu et si tu peux mettre un petit fichier d'exemple de ce que tu cherches à faire ce sera encore mieux

à bientôt

 

[pat12]

Jai une seule feuille avec des données de la colonne A à H.
Sur cette feuille j'ai un bouton (imprimer) qui ouvre une Userforme1.
Dans cette Userforme j'ai placé une liste déroulante qui reprend les données de la colonne (A) de ma feuille.
Donc je peux choisir les différentes données de mes colonnes.
Et la j'ai placé un autre bouton qui lui dois imprimer la colonne don Jai choisi la première coordonnées dans la liste déroulante.
**********
Donc : Imprimer la sélection de ma liste déroulante.
Désolé mais je ne voie pas comment l'expliquer mieux.
Merci tout de même.

 

[Jacou]

Re

je ne comprends pas bien : ce sont les données de la ligne dont tu as choisi la cellule A que tu veux imprimer ou la colonne?

Pour le moment voilà ce que je comprends:
en colonne A tu as
A1= zz
A2 = yy
A3 = xx
etc...

dans ton userform tu choisis 'xx' qui correspond à la cellule A3 et veux imprimer B3,C3,...,H3 si leur contenu n'est pas vide.

Est-ce bien cela?

 

[pat12]

Non Jai la colonne A
Qui a plusieurs lignes 123456789ex...

A b c d e f g h
1 = xx xx xx xx xx xx xx xx
2 = yy yy yy yy yy yy yy yy
3 = jj jj jj jj jj jj jj jj

Dans mon Userform j'ai une liste déroulante qui reprend la colonne A donc xx,yy,jj ex....
Je choisi par exemple yy qui correspond a la ligne 2.
Je clique sur un bouton pour imprimer la ligne 2 de la colonne A à H.

Voila

 

[Jacou]

Rebonsoir ou plutôt bonne nuit,

j'ai dû mal m'expliquer car c'est exactement ce que je voulais dire.

donc quand tu as choisi ta donnée,
tu sélectionnes la cellule de la colonne A qui la contient puis :
Range(ActiveCell, ActiveCell.Offset(0, 7)).Select
Selection.PrintOut Copies:=1, Collate:=True

et ça devrait marcher

bonne nuit

Message édité par: jacou, à: 12/04/2006 02:03

Message édité par: jacou, à: 12/04/2006 02:04

 

[pat12]

ON va y arrivé:
J'ai collé le code dans l’action d'un bouton de mon UserForme.
Quand j’ai sélectionné la ligne dans la liste et que je fais une action sur le bouton.
Une impression est lancer mais sans la ligne sélectionner.
A tu une autre idée et encore mille merci.

 

[Jacou]

Bonjour,
écoutes , je ne sais pas quoi te dire, chez moi ça marche.
essaie avec le fichier que je te joins

Bonne journée [file name=impressionligne.zip size=9978]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/impressionligne.zip[/file]

 

[pat12]

Bonsoir jacou.
Je te renvoie le fichier avec ce que je veux faire on va aller plus vite.
Je pense que tu va comprendre plus vite.
Et encore merci pour ton aide.
Pat12

 

[pat12]

voici le fichier

 

[pat12]

Je n'arrive pas à joindre le fichier?

 

[pat12]

C:\\Documents and Settings\\Patrick\\Mes documents\\Projet Pour E.P\\impressionligne.xls

 

[pat12]

Je ne comprends pas mon fichier fais 14 Ko en zip et il ne suit pas ? [file name=impressionligne_20060412190409.zip size=14726]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/impressionligne_20060412190409.zip[/file]

 

[pat12]

AH.AH j’ai enfin trouvez excusé moi pour le désordre sur les messages.

 

[Hervé]

Bonsoir le post, le forum

tu peux essayer comme ceci :

Private Sub CommandButton1_Click()
If Matricule.ListIndex = -1 Then Exit Sub

With Matricule
        Range(Cells(.List(.ListIndex, 1), 1), Cells(.List(.ListIndex, 1), 8)).PrintOut
End With
End Sub
'_______________________________________________
Private Sub UserForm_Activate()
Dim i As Integer

Matricule.ColumnCount = 2
Matricule.ColumnWidths = '80;0'

For i = 2 To Range('a65536').End(xlUp).Row
        Matricule.AddItem Cells(i, 1)
        Matricule.List(Matricule.ListCount - 1, 1) = i
Next i
End Sub

salut