convertion vba /excelRésolu

Question

bonjour a tous,

je recherche l'équivalent de cette fonction mais en langage usuel....

"=IF(ISTEXT(RC[-7]),1,2)"                            --------->(si le contenu de la cellule est du texte)

je m explique : je voudrais avoir la macro de cette macro qui doit etre du style :

 if cells(4,5). xxxx = xxxx then ....

Voila 2h que je bloque la dessus ....

SVP aidez moi

bigfish_le vrai · Accepted Answer

Salut,

reutilise ta fonction ISTEXT dans VBA avec :

If Application.WorksheetFunction.IsText(Range("A1").Value) = True Then Msgbox "la valeur en A1 est du text"

A+

cs_faucheuse · Answer

Pour connaitre ce que contient une cellule c'est (pour A1 par exemple) : Range("A1").Value

n'oublie pas de terminer ton If par End If ^^

Voila en esperant t'avoir aider, bonne prog

jrivet · Answer

Salut,
Ceci devrait tester si le format de la cellule est de type Texte.
If cells(4, 5).NumberFormat = "@" Then 

Mais je ne sais si c'est exactement ce que tu souhaites

@+: Ju£i?n
Pensez: Réponse acceptée

aducloux · Answer

en fait ce que je cherche n est pas vraiment ca...

Je cherche a savoir, si la cellule contient du texte, je n ai pas besoin de connaitre le format de la cellule...

mortalino · Answer

Salut, if not isnumeric(range("A1").Value) then .. Ou avec Application.IsText, j'en avais fait un snippet : Public Function TypeCell(MyCell As Range) As String If IsEmpty(MyCell) Then TypeCell = "Vide" ElseIf Application.IsText(MyCell) Then TypeCell = "Texte" ElseIf Application.IsLogical(MyCell) Then TypeCell = "Logique" ElseIf Application.IsErr(MyCell) Then TypeCell = "Erreur" ElseIf IsDate(MyCell) Then TypeCell = "Date" ElseIf IsNumeric(MyCell) Then TypeCell = "Nombre" End If End Function Private Sub EXEMPLE() MsgBox TypeCell(Range("A4")) MsgBox TypeCell(Sheets(2).Range("A4")) End Sub ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++ le mystérieux chevalier,"Provençal, le gaulois" Forum Office & VBA

bigfish_le vrai · Answer

ouuups , pas assez rapide,

Je vois que l'ami mortalino a repris du poil de la bete (dans tous les sens du terme au vu de l'avatar)

A+

mortalino · Answer

lol, ça coûte trop cher en lame de rasoir ^^ 

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Convertion vba /excel

7 réponses

Votre réponse

Discussions similaires