recherche cellules types : '1234 ou 'abcd etc ...

[tora]

Bonjour à tous,

je souhaite prendre connaissance des emplacements des dites
cellules ( contenant donc un texte qui DEBUTE par une apostrophe )

Comment dois-je modifier ce bout de code pour que Emplacements
ne me retourne pas un message vide ???

Merci

Sub test()
Dim Cel As Range, Emplacements As String

For Each Cel In ActiveSheet.UsedRange
    If InStr(1, Cel.Value, "'") <> 0 Then
        Emplacements = Emplacements & Cel.Address & "/"
    End If
Next Cel

MsgBox Emplacements

End Sub

 

[Cousinhub]

Re : recherche cellules types : '1234 ou 'abcd etc ...

Bonsoir,

il me semble que tu avais déjà un fil avec cette question..

tu aurais du remonter le fil...

essaie ainsi :

Sub ee()
Dim Cel As Range, Emplacements As String

For Each Cel In ActiveSheet.UsedRange
    If Cel.PrefixCharacter = "'" Then
        Emplacements = Emplacements & Cel.Address & "/"
    End If
Next Cel

MsgBox Emplacements
End Sub

Bonne soirée

 

[Guest]

Re : recherche cellules types : '1234 ou 'abcd etc ...

bonjour Tora,

Trop content de croisé l'ami bh², l'exilé au soleil.......
Pouvais pas m'empêcher de le saluer ici.

A+++

 

[Cousinhub]

Re : recherche cellules types : '1234 ou 'abcd etc ...

Salut, Ges

au soleil.......

Tu peux le dire....

Commence à faire un peu "tiède"

Au plaisir de te croiser sur un fil

@+

 

[tora]

Re : recherche cellules types : '1234 ou 'abcd etc ...

Bonjour Bhbh & HASCO

Je vous sers une petite coupe ?

Pour le coup du Prefixcharacter, c'est super !

Merci Bhbh !!