> 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
103,54 €Tablette 8 pouces Galaxy Tab A 2019 (4 coeurs, 32 Go, Wifi, HD, RAM 2 Go) à 103,54 € livrée
Valable jusqu'au 18 Avril

Amazon Espagne fait une promotion sur la tablette 8 pouces Samsung Galaxy Tab A 2019 qui passe à 98,18 € (avec la TVA ajustée). Comptez 5,36 € pour la livraison en France soit un total de 103,54 € livrée. On la trouve ailleurs à plus de 150 €. Cette tablette possède un écran 8 pouces HD (1280x800 pixels), un processeur quad-core 2 GHz, 2 Go de RAM, un espace de stockage de 32 Go extensible par MicroSD, le WiFi, le bluetooth et tourne sous Android 10.

La tablette pourra être mise en français dès le premier démarrage et vous bénéficiez d'une garantie européenne de 2 ans. Vous pouvez utiliser votre compte Amazon France sur Amazon Espagne et il n'y a pas de douane.


> Voir l'offre
2 jeux de société achetés = le 3ème offert
Valable jusqu'au 21 Avril

Pour 2 jeux de société achetés sur Amazon, le 3ème vous est offert. Une très bonne affaire puisque vous trouverez des références comme 7 Wonders, Concept, Les Aventuriers du Rail, Pandemic, Blanc Manger coco, Top Ten, Dixit, 6 qui prend, Carcassone, ...


> 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 18 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