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
Code:
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
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 :
Code:
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