S
Spectroms
Guest
Bonjour,
Voici mon codage ci dessous. Il permet de faire la liste (stocker dans Tableau) des valeurs de la 6eme colonne (Nom de personne) sans doublons.
Ainsi il scanne toutes les lignes de la 6eme colonne.
Il teste si la valeur de la cellule est dans la variable Tableau. Si pas de doublons détecté (grace à U), on rajoute la valeur dans le tableau, et on le redimensionne.
Bon c'est peut etre pas un code très optimisé mais ma question est très simple.
Le tableau créer possède qu'une colonne est plusieurs lignes Tableau(j), jaimerais simplement que mon tableau possède 2 colonnes (qui reste vide). Mais je n'arrive pas !
Pouvez vous m'aider ?
Merci davance
Voici mon codage ci dessous. Il permet de faire la liste (stocker dans Tableau) des valeurs de la 6eme colonne (Nom de personne) sans doublons.
Ainsi il scanne toutes les lignes de la 6eme colonne.
Il teste si la valeur de la cellule est dans la variable Tableau. Si pas de doublons détecté (grace à U), on rajoute la valeur dans le tableau, et on le redimensionne.
Bon c'est peut etre pas un code très optimisé mais ma question est très simple.
Le tableau créer possède qu'une colonne est plusieurs lignes Tableau(j), jaimerais simplement que mon tableau possède 2 colonnes (qui reste vide). Mais je n'arrive pas !
Pouvez vous m'aider ?
Merci davance
Code:
Dim Tableau
j = 0
Otmpligne=1
ReDim Preserve Tableau(j)
While (Sheets(1).Cells(Otmpligne, 6) <> '')
u = False
For i = 1 To j
tmpi = Sheets(1).Cells(Otmpligne, 6)
If Sheets(1).Cells(Otmpligne, 6) = Tableau(i) Then
u = True
Exit For
End If
Next i
If u = False Then
Tableau(j) = Sheets(1).Cells(Otmpligne, 6)
j = j + 1
ReDim Preserve Tableau(j)
End If
Otmpligne = Otmpligne + 1
Wend