Lsting coordonnees des cellules correspondant a un critere

Staple1600

XLDnaute Barbatruc

• 19 Septembre 2014

• #2

Re : Lsting coordonnees des cellules correspondant a un critere

Bonjour à tous

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

Code:

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

 

Vote positif 0 Vote négatif

H

HUGUESEXCEL

XLDnaute Nouveau

• 19 Septembre 2014

• #3

Re : Lsting coordonnees des cellules correspondant a un critere

Bonjour JM,

Merci
Je cherche toujours par formule mais ta macro fonctionne parfaitement

Hugues

 

Vote positif 0 Vote négatif

H

HUGUESEXCEL

XLDnaute Nouveau

• 19 Septembre 2014

• #4

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

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 19 Septembre 2014

• #5

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

 

Pièces jointes

• CellNonNum1.xlsx

  16.4 KB · Affichages: 36

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Septembre 2014

• #6

Re : Lsting coordonnees des cellules correspondant a un critere

Bonjour mecano41

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

Code:

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

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 19 Septembre 2014

• #7

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

 

Pièces jointes

• CellNonNum2.xlsx

  17 KB · Affichages: 30

Vote positif 0 Vote négatif