Remplacer USF par MsgBox

[apdf1]

Bonjour

Voila est il possible de remplacer USF par un MsgBox dans l'exemple ci-dessous.

Je joint mon fichier.

Merci d'avance et bonne journée

Max

 

[Fred0o]

Re : Remplacer USF par MsgBox

Bonjour apdf1,

Remplaces ton 1° code par celui-ci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    mbox
End Sub

Puis dans un module, inscris ce code :

Sub mbox()
    Dim msge, i
    msge = ActiveCell & " : " & Chr(10)
    For i = 4 To 9
        If ActiveCell.Offset(0, i) <> 0 Then msge = msge & ActiveCell.Offset(0, i) & Chr(10)
    Next
    MsgBox (msge)
End Sub

Cela corrspond-t-il à ton besoin ?

A+

 

[apdf1]

Re : Remplacer USF par MsgBox

Bonjour Fred0o,

Je te remercie et excuse moi de ne pas avoir répondu avant. Le code que me fait parvenir est bien la recherche mais je n'arrive pas a le modifier, parce que au final il est bien plus long.

Je joint mon fichier qui seras exemple final

Si tu peut jeter un oeil je te remercie d'avance

@+

Max

 

[Pierrot93]

Re : Remplacer USF par MsgBox

Bonjour,

tu as une réponse ici :
[XL-2007] Remplacer USF par un MsgBox - Forum des professionnels en informatique

préférable de prévenir quand on poste sur plusieurs forums...

bonne journée
@+

 

[apdf1]

Re : Remplacer USF par MsgBox

Bonjour Pierrot,

Non je n'est pas de réponse a l'adresse que tu donne c'est pour sa que je post ici

Bonne journée
@+

Max

 

[Fred0o]

Re : Remplacer USF par MsgBox

Bonjour apdf1 et Pierrot93,

Voici le code à mettre dans la workSheet :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim msge
    Cancel = True
    If Not Application.Intersect(Target, Columns(7), UsedRange) Is Nothing Then
        msge = Target.Offset(0, 0).Text & Chr(10) & Chr(10) 'Nom
            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, 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

Remarque : on peut faire plus simple mais j'ai pas envie de m'embêter...

A+

 

[apdf1]

Re : Remplacer USF par MsgBox

Bonjour Fred0o,

Je te remercie beaucoup, juste pour faire la même chose sur trois colonne c'est compliquer et réalisable ou pas?

@+

Max

 

[Fred0o]

Re : Remplacer USF par MsgBox

Bonsoir,

Voici la méthode pour avoir les données sur 3 colonnes. A toi de modifier ton code maintenant.

msge = msge & Target.Offset(0, 4).Text & Chr(9) & Target.Offset(0, 32).Text & Chr(9) & Target.Offset(0, 61).Text & Chr(10)

A+

 

[apdf1]

Re : Remplacer USF par MsgBox

Bonsoir

Je te remercie sa devrais collé

Bonne soirée

@+