Discussion :

[bigboy]

Bonjour,
J'ai deux petites questions :
J'ai un tableau dans lequel j'ai des dates mais pas seulement... J'aimerai, à l'aide d'une macro, remplacer toutes les cellules qui ne sont pas des dates par des "X".



La deuxième question est :
Lors d'un filtre automatique, j'aimerai creer un tableau de variable contenant toutes les solutions de la liste déroulante pour pouvoir les utiliser ensuite en vba (dans une boucle).




Voici, j'espère que j'aurai été clair.
Je vous remercie pour votre aide.
Loïc

[casavba]

Bonsoir,

Pour ta première Question :

---> Je te renvoie à la fonction IsDate()

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If IsDate(cel.Value) = False Then cel.Value = "X"

Pour la deuxième question :

C'est possible de stocker les valeurs dans une variable Tableau.
Fais une petite recherche dans la Faq et les sources du Forum, tu troueras certainement ton bonheur.

Bonne soirée

[bigboy]

Bonjour et merci pour ton aide.

Le premier problème est résolu, je te remercie.
Par contre, pour le deuxième, je sais pas trop, j'ai pas trouvé sur le forum, si tu as une piste à me donner, je suis preneur.


Merci bp.

[mercatog]

Une proposition, qui récupère les valeurs sans doublons d'une plage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim i As Long
Dim Kode As Collection
Dim Plage As Range, Cel As Range
 
Set Plage = Sheets("feuil1").Range("C5:C1000") 'à adapter
Set Kode = New Collection
 
On Error Resume Next
    For Each Cel In Plage
        If Cel <> "" Then Kode.Add Cel, CStr(Cel)
    Next Cel
On Error GoTo 0
 
For i = 1 To Kode.Count
    MsgBox Kode.Item(i)
Next i
 
Set Kode = Nothing
Set Plage = Nothing

[bigboy]

merci bp, je pensais qu'il y avait un moyen de récupérer direct la valeur de la liste mais là, c'est aussi bien.

merci

j'ai du mal a comprendre la macro, tu mets que si la valeur est non vide, tu ajoute une ligne dans la variable kode. Mais comment sais tu qu'elle n'a pas déjà été mise dans la variable?

[ucfoutu]

Bonjour
tout simplement : impossible d'ajouter deux items identiques dans une collection (ce n'est pas une variable).
Ceci étant dit : j'espère que le nombre d'items n'est pas trop élevé (et la mémoire, dans tout çà ?).Ou alors, il va falloir gérer in fine ...

[bigboy]

d'accord, ok, j'avais pas assimilé ca.

Merci