Rapport de message :*
 

Re: Cellules avec du texte

Titre du sujet : Re: Cellules avec du texte
par myDearFriend! le 16/08/2019 11:06:54

Bonjour Eric, le Forum,

 

Désolé pour cette réponse un peu tardive Eric, mais retour de congés smiley

 

Sans boucle... La seule piste que je peux imaginer pour ma part, c'est ça :

Sub AdresseCellulesTexte()
'myDearFriend! - www.xlpages.com
Dim PlageTxt As Range
    Set PlageTxt = ActiveSheet.Columns(1).SpecialCells(xlCellTypeConstants, 2)
    MsgBox PlageTxt.Address
End Sub

En espérant que ça puisse t'inspirer...

 

Bien cordialement,