Discussion :

[apdf1]

Bonjour,

Est il possible d'avoir 3 colonnes bans un MsgBox est si oui si possible quel est le code ?

Merci d'avance

@+
Max

[jfontaine]

Bonjour

Que comptes tu afficher dans les 3 colonnes ?

[apdf1]

Bonsoir Jêrome,

Voila mon code mais j'aimerais l'afficher sur trois colonnes si possible!

C'est le résultat de 80 colonnes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim msge
    Cancel = True
    If Not Application.Intersect(Target, Columns(6), UsedRange) Is Nothing Then
 
            msge = "Nom :    " & Target.Offset(0, 0).Text & Chr(10) & Chr(10) 'Nom
            msge = msge & "Total des points:  " & Target.Offset(0, 1).Text & Chr(10) & vbCrLf
 
            msge = msge & "Points:"
 
            msge = msge & Target.Offset(0, 4).Text & Chr(10)
            msge = msge & Target.Offset(0, 5).Text & Chr(10)
            msge = msge & Target.Offset(0, 6).Text & Chr(10)
            msge = msge & Target.Offset(0, 7).Text & Chr(10)
            msge = msge & Target.Offset(0, 8).Text & Chr(10)
            msge = msge & Target.Offset(0, 9).Text & Chr(10)
            msge = msge & Target.Offset(0, 10).Text & Chr(10)
 
            msge = msge & Target.Offset(0, 32).Text & Chr(10)
            msge = msge & Target.Offset(0, 33).Text & Chr(10)
 
 
            msge = msge & Target.Offset(0, 34).Text & Chr(10)
            msge = msge & Target.Offset(0, 35).Text & Chr(10)
            msge = msge & Target.Offset(0, 36).Text & Chr(10)
            msge = msge & Target.Offset(0, 37).Text & Chr(10)
            msge = msge & Target.Offset(0, 38).Text & Chr(10)
            msge = msge & Target.Offset(0, 39).Text & Chr(10)
 
            msge = msge & Target.Offset(0, 61).Text & Chr(10)
            msge = msge & Target.Offset(0, 62).Text & Chr(10)
            msge = msge & Target.Offset(0, 63).Text & Chr(10)
            msge = msge & Target.Offset(0, 64).Text & Chr(10)
            msge = msge & Target.Offset(0, 65).Text & Chr(10)
            msge = msge & Target.Offset(0, 66).Text & Chr(10)
        MsgBox (msge)
     End If
End Sub

Je te remercie d'avance

@+

Max

[jfontaine]

Pour faire cela, je te conseil d'utiliser une userform dans laquelle tu chargeras les données dans une listbox et que tu appelleras dans l'évènement BeforeDoubleClick.