Merci pour cette solution, elle correspond parfaitement à ce que j'esperais.
Puis-je vous demander comment remplacer "C6" par une variable. Quand j'essaye de mettre MsgBox SDM ([A1: var]) , j'ai l'erreur 2015.
Merci
"JB" a écrit dans le message de news:
Sub Essai() MsgBox SDM([A1:C6]) End Sub
Function SDM(champ) Set MonDico = CreateObject("Scripting.Dictionary") a = champ For i = LBound(a, 1) To UBound(a, 1) temp = "" For k = LBound(a, 2) To UBound(a, 2) temp = temp & " " & a(i, k) Next k If Not MonDico.Exists(temp) Then MonDico.Add temp, temp Next i SDM = MonDico.Count End Function
http://cjoint.com/?cftxyKBr8n
JB
On 5 fév, 14:46, "Fan" wrote:
Merci pour votre réponse mais malheureusement je ne la comprends pas.
Pour être sur de ma demande je la reformule.
J'ai x lignes sur 4 colonnes (A, B, C, D) de la facon suivantes
A - B - C - D 10 - 5 - 1 - 8 14 - 5 - 1 - 9 19 - 6 - 1 - 10 10 - 5 - 1 - 11
Je recherche le nombres de lignes dictinctes sur les 1er colonnes ne renant
ainsi pas compte de la dernière le nombre attendu pour cette exemple devrait être : 3
C'est la méthode sous vba que je n'arrive pas à metre en oeuvre.
Merci
"JB" a écrit dans le message denews:
Bonjour,
Donne la première et dernière ligne des colonnes B,C,D
J'ai 3 colonnes et je souhaiterais par vba connaitre le nombre de lignes distinctes.
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci pour cette solution, elle correspond parfaitement à ce que j'esperais.
Puis-je vous demander comment remplacer "C6" par une variable.
Quand j'essaye de mettre MsgBox SDM ([A1: var]) , j'ai l'erreur 2015.
Merci
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:06101b09-01b6-4a5e-a2f4-0f61816e9c76@e6g2000prf.googlegroups.com...
Sub Essai()
MsgBox SDM([A1:C6])
End Sub
Function SDM(champ)
Set MonDico = CreateObject("Scripting.Dictionary")
a = champ
For i = LBound(a, 1) To UBound(a, 1)
temp = ""
For k = LBound(a, 2) To UBound(a, 2)
temp = temp & " " & a(i, k)
Next k
If Not MonDico.Exists(temp) Then MonDico.Add temp, temp
Next i
SDM = MonDico.Count
End Function
http://cjoint.com/?cftxyKBr8n
JB
On 5 fév, 14:46, "Fan" <Fan@NOSPAM> wrote:
Merci pour votre réponse mais malheureusement je ne la comprends pas.
Pour être sur de ma demande je la reformule.
J'ai x lignes sur 4 colonnes (A, B, C, D) de la facon suivantes
A - B - C - D
10 - 5 - 1 - 8
14 - 5 - 1 - 9
19 - 6 - 1 - 10
10 - 5 - 1 - 11
Je recherche le nombres de lignes dictinctes sur les 1er colonnes ne
renant
ainsi pas compte de la dernière
le nombre attendu pour cette exemple devrait être : 3
C'est la méthode sous vba que je n'arrive pas à metre en oeuvre.
Merci
"JB" <boisgont...@hotmail.com> a écrit dans le message
denews:d08286e4-211d-45e7-90b7-f62cf5d9864a@h11g2000prf.googlegroups.com...
Bonjour,
Donne la première et dernière ligne des colonnes B,C,D
Merci pour cette solution, elle correspond parfaitement à ce que j'esperais.
Puis-je vous demander comment remplacer "C6" par une variable. Quand j'essaye de mettre MsgBox SDM ([A1: var]) , j'ai l'erreur 2015.
Merci
"JB" a écrit dans le message de news:
Sub Essai() MsgBox SDM([A1:C6]) End Sub
Function SDM(champ) Set MonDico = CreateObject("Scripting.Dictionary") a = champ For i = LBound(a, 1) To UBound(a, 1) temp = "" For k = LBound(a, 2) To UBound(a, 2) temp = temp & " " & a(i, k) Next k If Not MonDico.Exists(temp) Then MonDico.Add temp, temp Next i SDM = MonDico.Count End Function
http://cjoint.com/?cftxyKBr8n
JB
On 5 fév, 14:46, "Fan" wrote:
Merci pour votre réponse mais malheureusement je ne la comprends pas.
Pour être sur de ma demande je la reformule.
J'ai x lignes sur 4 colonnes (A, B, C, D) de la facon suivantes
A - B - C - D 10 - 5 - 1 - 8 14 - 5 - 1 - 9 19 - 6 - 1 - 10 10 - 5 - 1 - 11
Je recherche le nombres de lignes dictinctes sur les 1er colonnes ne renant
ainsi pas compte de la dernière le nombre attendu pour cette exemple devrait être : 3
C'est la méthode sous vba que je n'arrive pas à metre en oeuvre.
Merci
"JB" a écrit dans le message denews:
Bonjour,
Donne la première et dernière ligne des colonnes B,C,D
J'ai 3 colonnes et je souhaiterais par vba connaitre le nombre de lignes distinctes.
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
JB
Bonjour,
Sub Essai() ' MsgBox SDM([A1:D6]) v = "D6" MsgBox SDM(Range("A1:" & v)) End Sub
JB
On 6 fév, 10:26, "Fan" wrote:
Merci pour cette solution, elle correspond parfaitement à ce que j'esper ais.
Puis-je vous demander comment remplacer "C6" par une variable. Quand j'essaye de mettre MsgBox SDM ([A1: var]) , j'ai l'erreur 2015.
Merci
"JB" a écrit dans le message denews:06101b09-0
Sub Essai() MsgBox SDM([A1:C6]) End Sub
Function SDM(champ) Set MonDico = CreateObject("Scripting.Dictionary") a = champ For i = LBound(a, 1) To UBound(a, 1) temp = "" For k = LBound(a, 2) To UBound(a, 2) temp = temp & " " & a(i, k) Next k If Not MonDico.Exists(temp) Then MonDico.Add temp, temp Next i SDM = MonDico.Count End Function
http://cjoint.com/?cftxyKBr8n
JB
On 5 fév, 14:46, "Fan" wrote:
Merci pour votre réponse mais malheureusement je ne la comprends pas.
Pour être sur de ma demande je la reformule.
J'ai x lignes sur 4 colonnes (A, B, C, D) de la facon suivantes
A - B - C - D 10 - 5 - 1 - 8 14 - 5 - 1 - 9 19 - 6 - 1 - 10 10 - 5 - 1 - 11
Je recherche le nombres de lignes dictinctes sur les 1er colonnes ne renant
ainsi pas compte de la dernière le nombre attendu pour cette exemple devrait être : 3
C'est la méthode sous vba que je n'arrive pas à metre en oeuvre.
Merci
"JB" a écrit dans le message
denews: .
Bonjour,
Donne la première et dernière ligne des colonnes B,C,D
J'ai 3 colonnes et je souhaiterais par vba connaitre le nombre de lign es distinctes.
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des me ssages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Sub Essai()
' MsgBox SDM([A1:D6])
v = "D6"
MsgBox SDM(Range("A1:" & v))
End Sub
JB
On 6 fév, 10:26, "Fan" <Fan@NOSPAM> wrote:
Merci pour cette solution, elle correspond parfaitement à ce que j'esper ais.
Puis-je vous demander comment remplacer "C6" par une variable.
Quand j'essaye de mettre MsgBox SDM ([A1: var]) , j'ai l'erreur 2015.
Merci
"JB" <boisgont...@hotmail.com> a écrit dans le message denews:06101b09-0 1b6-4a5e-a2f4-0f61816e9c76@e6g2000prf.googlegroups.com...
Sub Essai()
MsgBox SDM([A1:C6])
End Sub
Function SDM(champ)
Set MonDico = CreateObject("Scripting.Dictionary")
a = champ
For i = LBound(a, 1) To UBound(a, 1)
temp = ""
For k = LBound(a, 2) To UBound(a, 2)
temp = temp & " " & a(i, k)
Next k
If Not MonDico.Exists(temp) Then MonDico.Add temp, temp
Next i
SDM = MonDico.Count
End Function
http://cjoint.com/?cftxyKBr8n
JB
On 5 fév, 14:46, "Fan" <Fan@NOSPAM> wrote:
Merci pour votre réponse mais malheureusement je ne la comprends pas.
Pour être sur de ma demande je la reformule.
J'ai x lignes sur 4 colonnes (A, B, C, D) de la facon suivantes
A - B - C - D
10 - 5 - 1 - 8
14 - 5 - 1 - 9
19 - 6 - 1 - 10
10 - 5 - 1 - 11
Je recherche le nombres de lignes dictinctes sur les 1er colonnes ne
renant
ainsi pas compte de la dernière
le nombre attendu pour cette exemple devrait être : 3
C'est la méthode sous vba que je n'arrive pas à metre en oeuvre.
Merci
"JB" <boisgont...@hotmail.com> a écrit dans le message
Sub Essai() ' MsgBox SDM([A1:D6]) v = "D6" MsgBox SDM(Range("A1:" & v)) End Sub
JB
On 6 fév, 10:26, "Fan" wrote:
Merci pour cette solution, elle correspond parfaitement à ce que j'esper ais.
Puis-je vous demander comment remplacer "C6" par une variable. Quand j'essaye de mettre MsgBox SDM ([A1: var]) , j'ai l'erreur 2015.
Merci
"JB" a écrit dans le message denews:06101b09-0
Sub Essai() MsgBox SDM([A1:C6]) End Sub
Function SDM(champ) Set MonDico = CreateObject("Scripting.Dictionary") a = champ For i = LBound(a, 1) To UBound(a, 1) temp = "" For k = LBound(a, 2) To UBound(a, 2) temp = temp & " " & a(i, k) Next k If Not MonDico.Exists(temp) Then MonDico.Add temp, temp Next i SDM = MonDico.Count End Function
http://cjoint.com/?cftxyKBr8n
JB
On 5 fév, 14:46, "Fan" wrote:
Merci pour votre réponse mais malheureusement je ne la comprends pas.
Pour être sur de ma demande je la reformule.
J'ai x lignes sur 4 colonnes (A, B, C, D) de la facon suivantes
A - B - C - D 10 - 5 - 1 - 8 14 - 5 - 1 - 9 19 - 6 - 1 - 10 10 - 5 - 1 - 11
Je recherche le nombres de lignes dictinctes sur les 1er colonnes ne renant
ainsi pas compte de la dernière le nombre attendu pour cette exemple devrait être : 3
C'est la méthode sous vba que je n'arrive pas à metre en oeuvre.
Merci
"JB" a écrit dans le message
denews: .
Bonjour,
Donne la première et dernière ligne des colonnes B,C,D
J'ai 3 colonnes et je souhaiterais par vba connaitre le nombre de lign es distinctes.
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des me ssages précédents -
- Afficher le texte des messages précédents -
Fan
Merci beaucoup pour toutes ces réponses.
"JB" a écrit dans le message de news: Bonjour,
Sub Essai() ' MsgBox SDM([A1:D6]) v = "D6" MsgBox SDM(Range("A1:" & v)) End Sub
JB
On 6 fév, 10:26, "Fan" wrote:
Merci pour cette solution, elle correspond parfaitement à ce que j'esperais.
Puis-je vous demander comment remplacer "C6" par une variable. Quand j'essaye de mettre MsgBox SDM ([A1: var]) , j'ai l'erreur 2015.
Merci
"JB" a écrit dans le message denews:
Sub Essai() MsgBox SDM([A1:C6]) End Sub
Function SDM(champ) Set MonDico = CreateObject("Scripting.Dictionary") a = champ For i = LBound(a, 1) To UBound(a, 1) temp = "" For k = LBound(a, 2) To UBound(a, 2) temp = temp & " " & a(i, k) Next k If Not MonDico.Exists(temp) Then MonDico.Add temp, temp Next i SDM = MonDico.Count End Function
http://cjoint.com/?cftxyKBr8n
JB
On 5 fév, 14:46, "Fan" wrote:
Merci pour votre réponse mais malheureusement je ne la comprends pas.
Pour être sur de ma demande je la reformule.
J'ai x lignes sur 4 colonnes (A, B, C, D) de la facon suivantes
A - B - C - D 10 - 5 - 1 - 8 14 - 5 - 1 - 9 19 - 6 - 1 - 10 10 - 5 - 1 - 11
Je recherche le nombres de lignes dictinctes sur les 1er colonnes ne renant
ainsi pas compte de la dernière le nombre attendu pour cette exemple devrait être : 3
C'est la méthode sous vba que je n'arrive pas à metre en oeuvre.
Merci
"JB" a écrit dans le message
denews:
Bonjour,
Donne la première et dernière ligne des colonnes B,C,D
J'ai 3 colonnes et je souhaiterais par vba connaitre le nombre de lignes
distinctes.
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci beaucoup pour toutes ces réponses.
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:2b3d6daa-9e1d-4091-bce7-b5b65ca0abb9@e6g2000prf.googlegroups.com...
Bonjour,
Sub Essai()
' MsgBox SDM([A1:D6])
v = "D6"
MsgBox SDM(Range("A1:" & v))
End Sub
JB
On 6 fév, 10:26, "Fan" <Fan@NOSPAM> wrote:
Merci pour cette solution, elle correspond parfaitement à ce que
j'esperais.
Puis-je vous demander comment remplacer "C6" par une variable.
Quand j'essaye de mettre MsgBox SDM ([A1: var]) , j'ai l'erreur 2015.
Merci
"JB" <boisgont...@hotmail.com> a écrit dans le message
denews:06101b09-01b6-4a5e-a2f4-0f61816e9c76@e6g2000prf.googlegroups.com...
Sub Essai()
MsgBox SDM([A1:C6])
End Sub
Function SDM(champ)
Set MonDico = CreateObject("Scripting.Dictionary")
a = champ
For i = LBound(a, 1) To UBound(a, 1)
temp = ""
For k = LBound(a, 2) To UBound(a, 2)
temp = temp & " " & a(i, k)
Next k
If Not MonDico.Exists(temp) Then MonDico.Add temp, temp
Next i
SDM = MonDico.Count
End Function
http://cjoint.com/?cftxyKBr8n
JB
On 5 fév, 14:46, "Fan" <Fan@NOSPAM> wrote:
Merci pour votre réponse mais malheureusement je ne la comprends pas.
Pour être sur de ma demande je la reformule.
J'ai x lignes sur 4 colonnes (A, B, C, D) de la facon suivantes
A - B - C - D
10 - 5 - 1 - 8
14 - 5 - 1 - 9
19 - 6 - 1 - 10
10 - 5 - 1 - 11
Je recherche le nombres de lignes dictinctes sur les 1er colonnes ne
renant
ainsi pas compte de la dernière
le nombre attendu pour cette exemple devrait être : 3
C'est la méthode sous vba que je n'arrive pas à metre en oeuvre.
Merci
"JB" <boisgont...@hotmail.com> a écrit dans le message
Sub Essai() ' MsgBox SDM([A1:D6]) v = "D6" MsgBox SDM(Range("A1:" & v)) End Sub
JB
On 6 fév, 10:26, "Fan" wrote:
Merci pour cette solution, elle correspond parfaitement à ce que j'esperais.
Puis-je vous demander comment remplacer "C6" par une variable. Quand j'essaye de mettre MsgBox SDM ([A1: var]) , j'ai l'erreur 2015.
Merci
"JB" a écrit dans le message denews:
Sub Essai() MsgBox SDM([A1:C6]) End Sub
Function SDM(champ) Set MonDico = CreateObject("Scripting.Dictionary") a = champ For i = LBound(a, 1) To UBound(a, 1) temp = "" For k = LBound(a, 2) To UBound(a, 2) temp = temp & " " & a(i, k) Next k If Not MonDico.Exists(temp) Then MonDico.Add temp, temp Next i SDM = MonDico.Count End Function
http://cjoint.com/?cftxyKBr8n
JB
On 5 fév, 14:46, "Fan" wrote:
Merci pour votre réponse mais malheureusement je ne la comprends pas.
Pour être sur de ma demande je la reformule.
J'ai x lignes sur 4 colonnes (A, B, C, D) de la facon suivantes
A - B - C - D 10 - 5 - 1 - 8 14 - 5 - 1 - 9 19 - 6 - 1 - 10 10 - 5 - 1 - 11
Je recherche le nombres de lignes dictinctes sur les 1er colonnes ne renant
ainsi pas compte de la dernière le nombre attendu pour cette exemple devrait être : 3
C'est la méthode sous vba que je n'arrive pas à metre en oeuvre.
Merci
"JB" a écrit dans le message
denews:
Bonjour,
Donne la première et dernière ligne des colonnes B,C,D
