Redimensionner un mot

Bonjour, j'ai un mot et j'aimerais le redimensionner pour ne prendre que les 4 premières lettres

Par exemple j'ai football et j'aimerais récupérer le mot foot dans ma variable mais le problème c'est que j'ai par exemple le mot footballeur et si j'applique ce code, cela pose problème, je dois peut-être le redimensionner par la droite en ne prenant que les 4 premières lettres mais je ne sais pas comment faire.

mon_mot_redim= Right(mon_mot, Len(mon_mot) - 4)

Merci.

Bonjour,

A tester

"=left(LaCelluleContenantTonMot, 4)"

A+

Eldewen a écrit :

Bonjour,

A tester

"=left(LaCelluleContenantTonMot, 4)"

A+

Merci mais moi je voulais le faire en code VBA mais cela ne fonctionne pas

ActiveCell.FormulaR1C1 = "=LEFT(RC[mon_mot],4)"

svp

Bonsoir,

ActiveCell = left(range("cellulecontenanttonmot"),4)

h2so4 a écrit :

Bonsoir,

ActiveCell = left(range("cellulecontenanttonmot"),4)

Merci mais mon mot se trouve dans une variable se nommant mon_mot et moi j'aimerais avoir mon_mot_redim avec les 4 premières lettres.

Merci

bonsoir

ActiveCell = left(mon_mot,4)

h2so4 a écrit :

bonsoir

ActiveCell = left(mon_mot,4)

C'est bizarre cela ne fonctionne pas

Bonsoir,

mets-nous ton fichier avec ton code qui ne fonctionne pas

Voilà le fichier.

Cela est-il possible ?

Bonsoir,

voiciune correction, mets tes mots entre guillemets

Public Sub test()

Dim mon_mot

mon_mot = "football"
mon_mot2 = "footballeur"

'J'aimerais récuperer les 4 premières lettres de mon mot ou plus simplement récupérer le mot foot (les deux méthodes serait top). Merci

MsgBox Left(mon_mot, 4)
MsgBox Left(mon_mot2, 4)

End Sub

Merci cela fonctionne

Dim mot As String

mon_mot = "footballeur"

mon_mot_2 = "football"

'J'aimerais récuperer les 4 premières lettres de mon mot ou plus simplement récupérer le mot foot (les deux méthodes serait top). Merci

ActiveCell = Left(mon_mot, 4)

ActiveCell.Offset(1, 0).Select

ActiveCell = Left(mon_mot_2, 4)

End Sub

Bonjour,

Etant donné que tu fournis un fichier vide, j'ai fait en interprétant ta demande

Le fichier ci- joint

le code pour les curieux

Sub redimensionner()

Dim mon_mot As Variant
Dim ligne As Integer
Dim nombredemot As Integer
Dim chaine As String

nombredemot = [A1].End(xlDown).Row 'nombre de cellule non vide en colonne A
ligne = 0

For i = 1 To nombredemot
    ligne = ligne + 1
    chaine = Cells(ligne, 1) ' ligne 1, colonne 1(A) (Football pour i =1 puis BasketBall pour i = 2...)
    mon_mot = Left$(chaine, 4) ' 4 premier caractere du mot
    Range("B" & i).Select
    ActiveCell.Formula = mon_mot
Next
End Sub

Cordialement