[XL-2003] comparer valeur d'une variable tableau vba [Résolu]

[redstoff]

Bonjour,

j'ai une variable tableau 1d de on va dire 1000 cases
je souhaite rapidement regarder qu'une valeur est la seul ou alors savoir combien de doublon par reference il y a.

genre il y a 233 cases avec la lettre A
ou il y a 1 case avec la lettre B

Comment puis je faire?

[jfontaine]

Bonjour,

En utilisant une boucle FOR (dans ce code str est vide)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim str(1000) As String
Dim i As Integer
Dim iCompteur As Integer
 
For i = 0 To UBound(str)
 
    If str(i) = "A" Then
        iCompteur = iCompteur + 1
    End If
 
Next i
 
MsgBox iCompteur

[redstoff]

l'exemple que j'ai utilisé n'est pas bon

en gros ce que je cherche cest:

il prend la premiere valeur du tableau et compte combien de fois il la retrouve.

ensuite, il prend la seconde valeur et fait pareil

si par exemple la 3e valeur est la meme que la premiere, il zap cette valeur

jespere etre claire^^

[jfontaine]

Dans cette exemple on s'appuie sur une feuille pour la synthèse et le comptage

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim str() As String
Dim i As Integer
Dim Ligne As Long
Dim rg As Range
 
 
str() = Split("A,B,B,B,A,A,A,A,C,C,A,B,B", ",")
 
 
For i = 0 To UBound(str)
 
    Set rg = Range("A:A").Find(str(i))
 
    If rg Is Nothing Then
        'Ajout de la référence dans la feuille
        Ligne = Range("A65536").End(xlUp).Row + 1
        Range("A" & Ligne).Value = str(i)
        Range("B" & Ligne).Value = Range("B" & Ligne).Value + 1
    Else
        'Ajout 1 au compteur
        Range("B" & rg.Row).Value = Range("B" & rg.Row).Value + 1
    End If
Next i

[redstoff]

je viens de lire ta proposition mais je sens que ca ne va pas aller a mon contexte j'ai finit par me faire un petit truc rapide qui donne

Code :

1
2
3
4
5
6
7
8
9
    For l = 1 To UBound(TableauDonnees)
        If TableauDonnees(l, 7) <> Imputation Then GoTo suivant
        For l1 = 1 To l - 1
            If TableauDonnees(l, 10) = TableauDonnees(l1, 10) And TableauDonnees(l, 7) = Imputation Then GoTo suivant
        Next l1
        NombreMoteur = NombreMoteur + 1
suivant:
    Next l
    MsgBox NombreMoteur

ce n'est surement pas optimisé en terme de vitesse mais ca répond à mes attentes