Problème évaluation en code VBA d'une fonction matricielle

[elgringo123456]

Bonjour,

Je vous sollicite car je suis bloqué sur le problème suivant.
L'objet du programme est de récupérer le dernier mot d'une phrase en vba. Pour ce faire j'utilise le code ci-dessous mais je me rend compte qu'il est nécessaire d'évaluer cette fonction matricielle en passant par CTRL + SHIFT + ENTRE. J'ai constaté qu'il est nécessaire d'utiliser la fonction Evaluate mais cela ne marche pas.

Pourriez-vous me donner un coup de main ?

Encore désolé de cette question mais là je séche complètement.
Cordialement.
Elgringo123465

 

[jeanpierre]

Re : Problème évaluation en code VBA d'une fonction matricielle

Bonsoir elgringo123456,

Si ton fichier n'intégre pas des fonctions nouvelles de 2007, tant en Excel qu'en Vba, prend l'habitude de déposer au Format 97-2003 par Enregistrer sous.

Tu auras plus de chance de réponse.

Bonne soirée.

Jean-Pierre

 

[elgringo123456]

Re : Problème évaluation en code VBA d'une fonction matricielle

Bonjour,

Je vous joins le fichier au format Excel 97-2003.

Merci d'avance de votre aide,
Cordialement.
ElGringo123456

 

[job75]

Re : Problème évaluation en code VBA d'une fonction matricielle

Bonsoir elgringo123456, salut jeanpierre,

En VBA, pas besoin de la fonction matricielle, il y a InStrRev :

Sub EntreDerMot()
Dim cel As Range
For Each cel In Range("A1", Range("A65536").End(xlUp))
If LCase(cel) <> "prenom" Then Cells(cel.Row, 4) = DerMot(cel.Text)
Next
End Sub

Function DerMot$(txt$)
DerMot = Mid(txt, InStrRev(txt, " ") + 1, 9 ^ 9)
End Function

A+

 

[elgringo123456]

Re : Problème évaluation en code VBA d'une fonction matricielle

Bonjour Job75,

Merci beaucoup de l'aide, de la réactivité. Je ne connaissais pas la fonction InStrRev.

Vous êtes trop trop fort sur Excel Downloads