Afficher ligne d'une ListView dans MsgBox

[Blueangel]

Bonsoir à tous,

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

Cijoint.fr - Service gratuit de dépôt de fichiers

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

 

[Hervé]

Re : Afficher ligne d'une ListView dans MsgBox

salut

une tentative de réponse :

Private Sub Aff_Com_Click()
Dim WsCo As Worksheet
Dim iR&, i%
Dim T As Commande
Dim Temp As String
Set WsCo = Worksheets("Cdes")
iR = WsCo.Range("A65536").End(xlUp).Row + 1
i = 2
With G_Clients.ListView2
    l = .SelectedItem.Index
    Temp = .ListItems(l).Text
        For i = 2 To iR
            If WsCo.Cells(i, 1) = Temp Then
                With T
                    .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)
                    MsgBox T.NumCom & vbCrLf & T.IdC & vbCrLf & T.Désignation & vbCrLf & T.Montant & vbCrLf & T.DateCom & vbCrLf & T.DateLiv, vbOKOnly + vbInformation, Commande
                End With
            End If
        Next
End With
End Sub

je ne suis pas sur d'avoir bien pigé ta demande, mais au moins ce fera avancer le bouzin 🙂

a plus

 

[Blueangel]

Re : Afficher ligne d'une ListView dans MsgBox

Salut Hervé,

C'est super ! C'est exactement ce que je voulais.
Comment je peux faire pour mettre l'intitulé au dessus de chaque donnée (comme un mini tableau à 2 lignes) ?
Ceci me permet d'avoir un affichage rapide de la commande concernée (évite toutes les manip' dans Gestion Commandes).

Merci
Blueangel

 

[Hervé]

Re : Afficher ligne d'une ListView dans MsgBox

yo 🙂

comme ceci, mais attention, il s'agit d'un msgbox, tu n'arrivera pas à grand chose en présentation avec ceci :

Private Sub Aff_Com_Click()
Dim WsCo As Worksheet
Dim iR&, i%
Dim T As Commande
Dim Temp As String
Dim texte As String
Set WsCo = Worksheets("Cdes")
iR = WsCo.Range("A65536").End(xlUp).Row + 1
i = 2
With G_Clients.ListView2
    l = .SelectedItem.Index
    Temp = .ListItems(l).Text
        For i = 2 To iR
            If WsCo.Cells(i, 1) = Temp Then
                With T
                    .NumCom = WsCo.Cells(i, 1): texte = WsCo.Cells(1, 1) & vbTab
                    .IdC = WsCo.Cells(i, 2): texte = texte & WsCo.Cells(1, 2) & vbTab
                    .Désignation = WsCo.Cells(i, 3): texte = texte & WsCo.Cells(1, 3) & vbTab
                    .Montant = WsCo.Cells(i, 4): texte = texte & WsCo.Cells(1, 4) & vbTab
                    .DateCom = WsCo.Cells(i, 5): texte = texte & WsCo.Cells(1, 5) & vbTab
                    .DateLiv = WsCo.Cells(i, 6): texte = texte & WsCo.Cells(1, 6) & vbNewLine
                    texte = texte & T.NumCom & vbTab & vbTab & T.IdC & vbTab & T.Désignation & vbTab & T.Montant & vbTab & T.DateCom & vbTab & T.DateLiv ', vbOKOnly + vbInformation, Commande
                    MsgBox texte, vbOKOnly + vbInformation, Commande
                    'MsgBox T.NumCom & vbCrLf & T.IdC & vbCrLf & T.Désignation & vbCrLf & T.Montant & vbCrLf & T.DateCom & vbCrLf & T.DateLiv, vbOKOnly + vbInformation, Commande
                End With
            End If
        Next
End With
End Sub

salut

 

[Bebere]

Re : Afficher ligne d'une ListView dans MsgBox

bonjour Blueangel,Hervé

Cijoint.fr - Service gratuit de dépôt de fichiers

dans la feuille les dates ne sont pas des dates,les chiffres non plus
employer cdate(textbox1) et cdbl(textbox1),tu adaptes l'index de la textbox

à bientôt

 

[Blueangel]

Re : Afficher ligne d'une ListView dans MsgBox

Merci Hervé. C'est vrai qu'on peut pas faire grand chose avec les MsgBox.

Bonjour Bebere,
Désolé, mais je n'ai pas compris ce que tu voulais dire. Peux-tu être plus explicite (qu'as-tu modifié dans le fichier joint ??) ?

@+
Blueangel

 

[Bebere]

Re : Afficher ligne d'une ListView dans MsgBox

Blueangel
fait la même chose que Hervé
pour écrire une date dans une feuille via vba
cells(l,c)=cdate(textbox1)
du numéric cells(l,c)=cdbl(textbox1)
à bientôt