Lsting coordonnees des cellules correspondant a un critere

[HUGUESEXCEL]

Bonjour à toutes et tous,

Je cherche à partir d'un tableau contenant plusieurs données à faire un listing des adresses de toutes les cellules correspondant à un critère donnée. En l'occurrence les valeurs non numériques. Si possible avec formules sans macro.
J'ai essayé sur la base d'une plage nommée avec formule matricielle et fonction est(num) et adresse sans succés
Ci joint fichier exemple.



Merci
Cordialement
Hugues

 

[Staple1600]

Re : Lsting coordonnees des cellules correspondant a un critere

Bonjour à tous

Au cas où une solution avec macro finisse par t'intéresser 😉

Sub a()
Dim c As Range, x&
x = 37 'ici pour suivre ton exemple dans le fichier joint
For Each c In [tableau]
If Not IsNumeric(c) Or Len(c) = 0 Then
Cells(x, "B") = c.Address(0, 0)
x = x + 1
End If
Next c
End Sub

 

[HUGUESEXCEL]

Re : Lsting coordonnees des cellules correspondant a un critere

Bonjour JM,

Merci
Je cherche toujours par formule mais ta macro fonctionne parfaitement

Hugues

 

[HUGUESEXCEL]

Re : Lsting coordonnees des cellules correspondant a un critere

Re Bonjour JM,

Je reprend ta macro qui du coup si elle pouvait en plus de donner le résultat des coordonnées de cellules (cela fonctionne encore merci), le transformer en lien hypertexte pointant vers les cellules alors là je toucherais au "graal".
Je ne suis pas expert des macro, aurait tu une solution.

Merci

Cordialement
Hugues

 

[mécano41]

Re : Lsting coordonnees des cellules correspondant a un critere

Bonjour à tous,

Je suis nul en formules de ce type mais en pompant à droite, à gauche, j'ai quand même réussi à regrouper les adresses par colonne (en deux tableaux mais on peut cacher le premier) ... mais pas à mettre tout dans une même colonne ... désolé

Je le mets quand même ; si ça inspire quelqu'un...

Nota : ne rien écrire dans les cellules grisées

Cordialement

 

[Staple1600]

Re : Lsting coordonnees des cellules correspondant a un critere

Bonjour mecano41

Hugues
Pour ce qui concerne les liens hypertexte, ceci devrait faire l'affaire 😉

Sub b()
Dim c As Range, x&
x = 37 'ici pour suivre ton exemple dans le fichier joint
For Each c In [tableau]
If Not IsNumeric(c) Or Len(c) = 0 Then
    ActiveSheet.Hyperlinks.Add _
    Anchor:=Cells(x, "B"), Address:="", _
    SubAddress:="EXEMPLE!" & c.Address(0, 0), _
    TextToDisplay:=c.Address(0, 0)
    Cells(x, "B") = c.Address(0, 0)
x = x + 1
End If
Next c
End Sub

 

[mécano41]

Re : Lsting coordonnees des cellules correspondant a un critere

Amélioration de mon fichier précédent. Il n'y a plus qu'une colonne (avec 7 zones de formules soit 1 par colonne du tableau initial) et une seule colonne de résultats.

Cordialement