Bonjour à toutes et tous
J'ai une proc (merci à AV et Daniel) qui me compte les doublons de noms
et m'affiche leurs nombres dans un msgbox.
Je désire créer un msgbox qui me donne le nom des doublons.
Merci beaucoup
Patrick
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
T'es sur de ta formulation (voir fil précédent) ? C'est bien le nom des doublons et leur nbre que tu veux ?
AV
"Crel" a écrit dans le message news:
Bonjour à toutes et tous J'ai une proc (merci à AV et Daniel) qui me compte les doublons de noms et m'affiche leurs nombres dans un msgbox. Je désire créer un msgbox qui me donne le nom des doublons. Merci beaucoup Patrick
T'es sur de ta formulation (voir fil précédent) ?
C'est bien le nom des doublons et leur nbre que tu veux ?
AV
"Crel" <nospam-pas-de-pub@club-internet.fr> a écrit dans le message news:
O0DWJn4pDHA.1020@TK2MSFTNGP09.phx.gbl...
Bonjour à toutes et tous
J'ai une proc (merci à AV et Daniel) qui me compte les doublons de noms
et m'affiche leurs nombres dans un msgbox.
Je désire créer un msgbox qui me donne le nom des doublons.
Merci beaucoup
Patrick
T'es sur de ta formulation (voir fil précédent) ? C'est bien le nom des doublons et leur nbre que tu veux ?
AV
"Crel" a écrit dans le message news:
Bonjour à toutes et tous J'ai une proc (merci à AV et Daniel) qui me compte les doublons de noms et m'affiche leurs nombres dans un msgbox. Je désire créer un msgbox qui me donne le nom des doublons. Merci beaucoup Patrick
AV
Essaye ça :
Sub val_UniK() Dim vu As New Collection On Error Resume Next: nbr = 0 For Each C In Selection vu.Add C.Value, CStr(C.Value) If Err.Number <> 0 Then x = x & Chr(10) & C.Value nbr = nbr + 1 Err.Number = 0 End If Next C MsgBox "Nbre doublons : " & nbr & vbLf & x End Sub
AV
"Crel" a écrit dans le message news: #
Salut AV Oui, oui, supposons que dans ma liste j'ai 2 fois le nom de durand et dupond Le message box sera le suivant: "A ce jour, il y a 2 doublons de nom, voulez vous connaître les noms ?" Si oui : msgbox "Voici les noms : Durand; Dupond" j'ai grâce à toi le premier msgbox. Patrick
"AV" a écrit dans le message de news:
T'es sur de ta formulation (voir fil précédent) ? C'est bien le nom des doublons et leur nbre que tu veux ?
AV
"Crel" a écrit dans le message news:
Bonjour à toutes et tous J'ai une proc (merci à AV et Daniel) qui me compte les doublons de noms et m'affiche leurs nombres dans un msgbox. Je désire créer un msgbox qui me donne le nom des doublons. Merci beaucoup Patrick
Essaye ça :
Sub val_UniK()
Dim vu As New Collection
On Error Resume Next: nbr = 0
For Each C In Selection
vu.Add C.Value, CStr(C.Value)
If Err.Number <> 0 Then
x = x & Chr(10) & C.Value
nbr = nbr + 1
Err.Number = 0
End If
Next C
MsgBox "Nbre doublons : " & nbr & vbLf & x
End Sub
AV
"Crel" <nospam-pas-de-pub@club-internet.fr> a écrit dans le message news:
#G3Zyi5pDHA.4004@TK2MSFTNGP11.phx.gbl...
Salut AV
Oui, oui, supposons que dans ma liste j'ai 2 fois le nom de durand et dupond
Le message box sera le suivant:
"A ce jour, il y a 2 doublons de nom, voulez vous connaître les noms ?"
Si oui : msgbox "Voici les noms : Durand; Dupond"
j'ai grâce à toi le premier msgbox.
Patrick
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
e3CxiA5pDHA.3732@tk2msftngp13.phx.gbl...
T'es sur de ta formulation (voir fil précédent) ?
C'est bien le nom des doublons et leur nbre que tu veux ?
AV
"Crel" <nospam-pas-de-pub@club-internet.fr> a écrit dans le message news:
O0DWJn4pDHA.1020@TK2MSFTNGP09.phx.gbl...
Bonjour à toutes et tous
J'ai une proc (merci à AV et Daniel) qui me compte les doublons de noms
et m'affiche leurs nombres dans un msgbox.
Je désire créer un msgbox qui me donne le nom des doublons.
Merci beaucoup
Patrick
Sub val_UniK() Dim vu As New Collection On Error Resume Next: nbr = 0 For Each C In Selection vu.Add C.Value, CStr(C.Value) If Err.Number <> 0 Then x = x & Chr(10) & C.Value nbr = nbr + 1 Err.Number = 0 End If Next C MsgBox "Nbre doublons : " & nbr & vbLf & x End Sub
AV
"Crel" a écrit dans le message news: #
Salut AV Oui, oui, supposons que dans ma liste j'ai 2 fois le nom de durand et dupond Le message box sera le suivant: "A ce jour, il y a 2 doublons de nom, voulez vous connaître les noms ?" Si oui : msgbox "Voici les noms : Durand; Dupond" j'ai grâce à toi le premier msgbox. Patrick
"AV" a écrit dans le message de news:
T'es sur de ta formulation (voir fil précédent) ? C'est bien le nom des doublons et leur nbre que tu veux ?
AV
"Crel" a écrit dans le message news:
Bonjour à toutes et tous J'ai une proc (merci à AV et Daniel) qui me compte les doublons de noms et m'affiche leurs nombres dans un msgbox. Je désire créer un msgbox qui me donne le nom des doublons. Merci beaucoup Patrick
Crel
Salut AV Oui, oui, supposons que dans ma liste j'ai 2 fois le nom de durand et dupond Le message box sera le suivant: "A ce jour, il y a 2 doublons de nom, voulez vous connaître les noms ?" Si oui : msgbox "Voici les noms : Durand; Dupond" j'ai grâce à toi le premier msgbox. Patrick
"AV" a écrit dans le message de news:
T'es sur de ta formulation (voir fil précédent) ? C'est bien le nom des doublons et leur nbre que tu veux ?
AV
"Crel" a écrit dans le message news:
Bonjour à toutes et tous J'ai une proc (merci à AV et Daniel) qui me compte les doublons de noms et m'affiche leurs nombres dans un msgbox. Je désire créer un msgbox qui me donne le nom des doublons. Merci beaucoup Patrick
Salut AV
Oui, oui, supposons que dans ma liste j'ai 2 fois le nom de durand et dupond
Le message box sera le suivant:
"A ce jour, il y a 2 doublons de nom, voulez vous connaître les noms ?"
Si oui : msgbox "Voici les noms : Durand; Dupond"
j'ai grâce à toi le premier msgbox.
Patrick
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
e3CxiA5pDHA.3732@tk2msftngp13.phx.gbl...
T'es sur de ta formulation (voir fil précédent) ?
C'est bien le nom des doublons et leur nbre que tu veux ?
AV
"Crel" <nospam-pas-de-pub@club-internet.fr> a écrit dans le message news:
O0DWJn4pDHA.1020@TK2MSFTNGP09.phx.gbl...
Bonjour à toutes et tous
J'ai une proc (merci à AV et Daniel) qui me compte les doublons de noms
et m'affiche leurs nombres dans un msgbox.
Je désire créer un msgbox qui me donne le nom des doublons.
Merci beaucoup
Patrick
Salut AV Oui, oui, supposons que dans ma liste j'ai 2 fois le nom de durand et dupond Le message box sera le suivant: "A ce jour, il y a 2 doublons de nom, voulez vous connaître les noms ?" Si oui : msgbox "Voici les noms : Durand; Dupond" j'ai grâce à toi le premier msgbox. Patrick
"AV" a écrit dans le message de news:
T'es sur de ta formulation (voir fil précédent) ? C'est bien le nom des doublons et leur nbre que tu veux ?
AV
"Crel" a écrit dans le message news:
Bonjour à toutes et tous J'ai une proc (merci à AV et Daniel) qui me compte les doublons de noms et m'affiche leurs nombres dans un msgbox. Je désire créer un msgbox qui me donne le nom des doublons. Merci beaucoup Patrick
Daniel.M
Pourquoi ne restes-tu pas dans le même fil?
Je t'ai répondu dans l'autre.
Salutations,
Daniel M.
"Crel" wrote in message news:
Bonjour à toutes et tous J'ai une proc (merci à AV et Daniel) qui me compte les doublons de noms et m'affiche leurs nombres dans un msgbox. Je désire créer un msgbox qui me donne le nom des doublons. Merci beaucoup Patrick
Pourquoi ne restes-tu pas dans le même fil?
Je t'ai répondu dans l'autre.
Salutations,
Daniel M.
"Crel" <nospam-pas-de-pub@club-internet.fr> wrote in message
news:O0DWJn4pDHA.1020@TK2MSFTNGP09.phx.gbl...
Bonjour à toutes et tous
J'ai une proc (merci à AV et Daniel) qui me compte les doublons de noms
et m'affiche leurs nombres dans un msgbox.
Je désire créer un msgbox qui me donne le nom des doublons.
Merci beaucoup
Patrick
Bonjour à toutes et tous J'ai une proc (merci à AV et Daniel) qui me compte les doublons de noms et m'affiche leurs nombres dans un msgbox. Je désire créer un msgbox qui me donne le nom des doublons. Merci beaucoup Patrick
Crel
Merci beaucoup Patrick
"AV" a écrit dans le message de news:
Essaye ça :
Sub val_UniK() Dim vu As New Collection On Error Resume Next: nbr = 0 For Each C In Selection vu.Add C.Value, CStr(C.Value) If Err.Number <> 0 Then x = x & Chr(10) & C.Value nbr = nbr + 1 Err.Number = 0 End If Next C MsgBox "Nbre doublons : " & nbr & vbLf & x End Sub
AV
"Crel" a écrit dans le message news: #
Salut AV Oui, oui, supposons que dans ma liste j'ai 2 fois le nom de durand et dupond
Le message box sera le suivant: "A ce jour, il y a 2 doublons de nom, voulez vous connaître les noms ?" Si oui : msgbox "Voici les noms : Durand; Dupond" j'ai grâce à toi le premier msgbox. Patrick
"AV" a écrit dans le message de news:
T'es sur de ta formulation (voir fil précédent) ? C'est bien le nom des doublons et leur nbre que tu veux ?
AV
"Crel" a écrit dans le message news:
Bonjour à toutes et tous J'ai une proc (merci à AV et Daniel) qui me compte les doublons de noms
et m'affiche leurs nombres dans un msgbox. Je désire créer un msgbox qui me donne le nom des doublons. Merci beaucoup Patrick
Merci beaucoup
Patrick
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
uB3Lsk5pDHA.688@TK2MSFTNGP10.phx.gbl...
Essaye ça :
Sub val_UniK()
Dim vu As New Collection
On Error Resume Next: nbr = 0
For Each C In Selection
vu.Add C.Value, CStr(C.Value)
If Err.Number <> 0 Then
x = x & Chr(10) & C.Value
nbr = nbr + 1
Err.Number = 0
End If
Next C
MsgBox "Nbre doublons : " & nbr & vbLf & x
End Sub
AV
"Crel" <nospam-pas-de-pub@club-internet.fr> a écrit dans le message news:
#G3Zyi5pDHA.4004@TK2MSFTNGP11.phx.gbl...
Salut AV
Oui, oui, supposons que dans ma liste j'ai 2 fois le nom de durand et
dupond
Le message box sera le suivant:
"A ce jour, il y a 2 doublons de nom, voulez vous connaître les noms ?"
Si oui : msgbox "Voici les noms : Durand; Dupond"
j'ai grâce à toi le premier msgbox.
Patrick
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
e3CxiA5pDHA.3732@tk2msftngp13.phx.gbl...
T'es sur de ta formulation (voir fil précédent) ?
C'est bien le nom des doublons et leur nbre que tu veux ?
AV
"Crel" <nospam-pas-de-pub@club-internet.fr> a écrit dans le message
news:
O0DWJn4pDHA.1020@TK2MSFTNGP09.phx.gbl...
Bonjour à toutes et tous
J'ai une proc (merci à AV et Daniel) qui me compte les doublons de
noms
et m'affiche leurs nombres dans un msgbox.
Je désire créer un msgbox qui me donne le nom des doublons.
Merci beaucoup
Patrick
Sub val_UniK() Dim vu As New Collection On Error Resume Next: nbr = 0 For Each C In Selection vu.Add C.Value, CStr(C.Value) If Err.Number <> 0 Then x = x & Chr(10) & C.Value nbr = nbr + 1 Err.Number = 0 End If Next C MsgBox "Nbre doublons : " & nbr & vbLf & x End Sub
AV
"Crel" a écrit dans le message news: #
Salut AV Oui, oui, supposons que dans ma liste j'ai 2 fois le nom de durand et dupond
Le message box sera le suivant: "A ce jour, il y a 2 doublons de nom, voulez vous connaître les noms ?" Si oui : msgbox "Voici les noms : Durand; Dupond" j'ai grâce à toi le premier msgbox. Patrick
"AV" a écrit dans le message de news:
T'es sur de ta formulation (voir fil précédent) ? C'est bien le nom des doublons et leur nbre que tu veux ?
AV
"Crel" a écrit dans le message news:
Bonjour à toutes et tous J'ai une proc (merci à AV et Daniel) qui me compte les doublons de noms
et m'affiche leurs nombres dans un msgbox. Je désire créer un msgbox qui me donne le nom des doublons. Merci beaucoup Patrick