> 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
109,99 €Smartphone Poco M3 (6,53 pouces, 4Go Ram, 64Go) à 109,99 € (via ODR)
Valable jusqu'au 16 Avril

Electro Dépôt fait une belle promotion sur le smartphone Poco M3 qui passe à 139,99 € au lieu de 180 €. Or Xiaomi rembourse actuellement 30 € pour l'achat de cet smartphone qui vous reviendra à 109,99 € après remboursement. Il est équipé d'un processeur Qualcomm Snapdragon 662 (8 coeurs), de 4 Go de RAM, de 64 Go de stockage extensibles par MicroSD et d'un écran de 6,53 pouces FHD+ (2340x1080). Il comprend aussi une Quad-Caméra de 48 MP + 2 MP + 2 MP + Flash LED et une caméra selfie de 8 MP. Il comprend une grande batterie de 6000 mAh, pour une utilisation sur plusieurs jours (supporte la charge rapide). Le POCO M3 dispose également d'un capteur d'empreinte digitale sur le côté, du WiFi5 MIMO, du Bluetooth 5.1 et du GPS. Le tout tourne sous Android 10.


> Voir l'offre
179,99 €Ecran PC 23.6 pouces MSI Optix G24C4 (FullHD, VA, 144 Hz, 1 ms) à 179,99 €
Valable jusqu'au 13 Avril

Fnac fait une promotion sur l'écran PC 23.6 pouces MSI Optix G24C4 (FullHD, VA, 144 Hz, 1 ms) qui passe à 179,99 € au lieu de 229 €. Il possède des entrées HDMI et DP.


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

Amazon fait une promotion sur la clé USB Sandisk Ultra 128 Go à double connectique USB 3.1 Type A et C qui passe à 20,85 €. Cette clé USB  dispose d'un connecteur réversible 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 40 €.

 


> 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