> 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
101,99 €Imprimante 3D ANET ET4X à 101,99 € (stock Europe)
Valable jusqu'au 08 Mai

TomTop fait une belle promotion sur l'imprimante 3D ANET ET4X à 101,99 € livrée en France. On la trouve ailleurs autour de 145 €. L'imprimante est expédiée depuis un stock Europe (en Allemagne). Elle sera donc rapide et vous êtes sûr de ne pas avoir de douane. 

La ANET ET4X est idéale pour découvrir l'impression 3D. Elle dispose d'un volume d’impression de 220 x 220 x 250 mm, est en métal, est équipée d'un plateau chauffant, d'un écran LCD et offre des fonctionnalités pratiques comme la reprise de l'impression après une coupure de courant. L'imprimante 3D est livrée en KIT et est facile à assembler grâce à la notice et aux nombreux tutos vidéo sur Internet.


> Voir l'offre
20,98 €Clé USB Sandisk Ultra Go 128 Go à double connectique USB 3.1 Type A et C à 20,98 €
Valable jusqu'au 07 Mai

Amazon fait une promotion sur la clé USB Sandisk Ultra Go 128 Go à double connectique USB 3.1 Type A et C qui passe à 20,98 €. Cette clé USB  dispose d'un connecteur USB Type C et d'un connecteur classique de type A. Grâce à elle, transférez en toute simplicité et rapidement (jusqu'à 150 Mo/s) vos fichiers entre vos smartphones, tablettes et ordinateurs. On la trouve ailleurs à plus de 35 €.


> Voir l'offre
74,99 €Souris sans fil avec trackball Logitech MX Ergo à 74,99 €
Valable jusqu'au 08 Mai

Amazon fait une belle promotion sur la souris sans fil avec trackball Logitech MX Ergo qui passe à 74,99 € livrée gratuitement. On la trouve ailleurs autour de 100 €. Réduisant de 20% la contrainte musculaire par rapport à une souris standard,  le Logitech MX Ergo vous facilitera le travail en maintenant dans une position très stable votre main.


> 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