> Tous les forums > Forum Bureautique
 Afficher ligne d'une ListView dans MsgBoxSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
blueangel_35
  Posté le 30/01/2011 @ 23:39 
Aller en bas de la page 
Petit astucien

Bonsoir à tous,

Ci-joint mon projet : (pour accéder à vba : ouvrir le USF "Gestion Clients", puis fermer le)

http://www.cijoint.fr/cjlink.php?file=cj201101/cijEJ5TJM2.xls

Ce que je souhaite faire :
Dans mon USF "G_Clients", dans la Frame "Commandes" : je voudrais afficher dans un MsgBox le contenu (détaillé) de la ligne sélectionnée dans le ListView2 via le bouton "Afficher Com".
J'ai fait quelques tentatives (dans un module, dans le corps principal...), mais rien ne se passe !!

Est-ce que quelque pourrait m'éclairer ?

D'avance merci.
@+
Blueangel

Publicité
galopin01
 Posté le 31/01/2011 à 21:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

Même problème que précédemment. J'aurais surement les idée plus claires dans un moment...

A+

galopin01
 Posté le 01/02/2011 à 15:23 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Je t'ai débogue la macro :

Private Sub Aff_Com_Click()

Dim WsCo As Worksheet
Dim iR&, i%,k%, Temp$
Dim SelCom As Commande
Set WsCo = Worksheets("Cdes")
iR = WsCo.Range("A65536").End(xlUp).Row + 1
i = 2

With G_Clients.ListView2
k = .SelectedItem.Index
Temp = .ListItems(k).ListSubItems(1).Text
For i = 2 To iR
If WsCo.Cells(i, 3) = Temp Then
With SelCom
.NumCom = WsCo.Cells(i, 1)
.IdC = WsCo.Cells(i, 2)
.Désignation = WsCo.Cells(i, 3)
.Montant = WsCo.Cells(i, 4)
.DateCom = WsCo.Cells(i, 5)
.DateLiv = WsCo.Cells(i, 6)
Message = MsgBox("N°Commande : " & .NumCom & vbCrLf & _
"Id Client : " & .IdC & vbCrLf & _
"Désignation : " & .Désignation & vbCrLf & _
"Montant : " & .Montant & vbCrLf & _
"Commande du : " & .DateCom & vbCrLf & _
"Livraison : " & .DateLiv, vbOKOnly + vbInformation, Commande)
End With
End If
Next
End With

End Sub

A+

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
259 €PC Ankermann (Intel Pentium Dual Core, 8Go RAM, SSD 480Go, Win 10 + Office 2019) à 259 € livré
Valable jusqu'au 13 Avril

Amazon fait une promotion sur l'ordinateur de bureau Ankermann Silent PC Work à 259 € livré. Le PC est équipé d'un processeur Intel Pentium dual core à 2.7 GHz, de 8 Go de RAM, d'un SSD de 480 Go, d'un lecteur DVD, d'un lecteur de carte mémoires et tourne sous Windows 10 Pro 64 bits. Microsoft Office 2019 Pro en français est également fourni.

Ajoutez un écran (comme cet écran 24 pouces ViewSonic VA2418 (FullHD, IPS, 75 Hz) à 99,99 €) et un pack clavier souris (comme ce pack filaire Logitech MK120 à 17,99 €) et vous avez un PC complet à l'aise en bureautique et Internet. Garantie 2 ans.


> Voir l'offre
29,99 €Enceinte portable bluetooth Sony SRSXB10BCE7 Extra Bass à 29,99 €
Valable jusqu'au 13 Avril

Cdiscount fait une promotion sur l'enceinte portable bluetooth Sony SRSXB10BCE7 Extra Bass qui passe à 29,99 € alors qu'on la trouve ailleurs à plus de 45 €. Cette enceinte est étanche et offre une autonomie de 16 heures. Notez que vous pouvez en coupler 2 afin d'obtenir un son stéréo ou pour faire du multi-room. Disponible aussi en bleu.


> Voir l'offre
5,49 €Clé USB 3.0 Kingston DataTraveler 100 G3 32 Go à 5,49 €
Valable jusqu'au 13 Avril

Amazon vous propose actuellement la clé USB 3.0 Kingston DataTraveler 100 G3 32 Go à 5,49 €. Sa fermeture coulissante vous permettra de protéger le connecteur USB 3.0 (compatible USB 2.0). Notez que le lot de 3 clés est aussi en promo à 14,39 €.


> Voir l'offre

Sujets relatifs
afficher l'index d'une ligne dans un tableau
nb de liens dans une plage appartennant à la même ligne Horiz. ou verti...
Ne pas afficher les titres dans Word 2007
macro afficher masquer lignes tableau dans word 2010
Figer colonne ou ligne dans excell
doublons dans une ligne
Choisir dans liste déroulante le stagiaire à afficher
Afficher résultat cellule dans textBox sans virgule
mémoriser une MsgBox dans le presse-papier
Distance texte et ligne hori dans Micro Word 03
Plus de sujets relatifs à Afficher ligne d''une ListView dans MsgBox
 > Tous les forums > Forum Bureautique