Fonction left ou mid

Bonjour,

Aucune des 2 ne fonctionne avec ce code, ni celle du cours des fonctions vba

Sub test()
Dim ws2 As Worksheet, a$
Set ws2 = Sheets("Feuil1")
MsgBox ws2.Cells(1, 1).Value
 MsgBox Left("www.excel-pratique.com", 1) 'Renvoie : w
 'a = Mid(ws2.Cells(2, 2).Value, 1, 1)
  'a = Left(ws2.Cells(2, 3).Value, 1) '&
MsgBox a
End Sub

Je comprends pas.

Merci de votre aide.

Bonsoir Fronck,

Voici en retour le code modifié

Sub test()
Dim ws2 As Worksheet, a$, b$
Set ws2 = Sheets("Feuil1")
MsgBox ws2.Cells(1, 1)
 MsgBox Left("www.excel-pratique.com", 1) 'Renvoie : w
 'A partir du 3ième caractère j'en ressort 2 cellule 1ère ligne colonne A
 a = Mid(ws2.Cells(1, 1).Value, 3, 2)
 'Ressort le 1ier caractère à gauche de la cellule de la 1iére ligne colonne B
 b = Left(ws2.Cells(1, 2).Value, 1)
MsgBox a & " / " & b
End Sub

Bonjour Xcellus,

Merci pour ta réponse,

mais j'ai le même bug dsl.

A nouveau,

Sur Excel 2019, c'est étonnant...

Essaie avec Left$ puis Mid$

bonjour,

Est-ce possible de voir le fichier complèt ? N'y-a-t-til pas une faute avec les noms de macros ou les noms des modules ? (utilisation des mots réservé à VBA ou doublons ou ....)

Bonsoir,

Non, juste un gros "MANQUANT" dans les références dans l'éditeur...(du moins, c'est ce que je pense....)

Bonne soirée

Cà fonctionne pour ce fichier maintenant, mais c'est dans le fichier d'origine que çà bug.

Il va falloir que j'analyse en recopiant morceau par morceau.

Merci