Bonjour à tous
Dans un tableau de A à C Je cherche à extraire de la colonne A et B les valeurs sans doublon
j'utilise ça:
Tout va bien
je voudrais pouvoir faire la même chose en ayant filtré ou masque une partie de mon tableau sans défiltrer ou afficher ce dernier, je voudrai en fait pouvoir sélectionner la dernière cellule non vide même si elle est masquée
Pour arriver à mes fins j’utilise le code ci dessus légèrement modifier comme suit:
le résultât est là mais la procédure est plus longue
ci joint extrait de mon fichier
y aurait il une solution
Merci
Dans un tableau de A à C Je cherche à extraire de la colonne A et B les valeurs sans doublon
j'utilise ça:
Code:
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("A5", [A65536].End(xlUp))
temp = c & "-" & c.Offset(, 1)
mondico(temp) = mondico(temp) + 1
Next c
Sheets("Client").[A3].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
je voudrais pouvoir faire la même chose en ayant filtré ou masque une partie de mon tableau sans défiltrer ou afficher ce dernier, je voudrai en fait pouvoir sélectionner la dernière cellule non vide même si elle est masquée
Pour arriver à mes fins j’utilise le code ci dessus légèrement modifier comme suit:
Code:
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("A5", [A65536])
temp = c & "-" & c.Offset(, 1)
mondico(temp) = mondico(temp) + 1
Next c
Sheets("Client").[A3].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
Sheets("Client").Range("A65536").End(xlUp).ClearContents
le résultât est là mais la procédure est plus longue
ci joint extrait de mon fichier
y aurait il une solution
Merci