Discussion :

[Lune1]

Bonjour,
J’essaie d’écrire la formule =STXT(G108,2,NBCAR(G108)) en VBA où la ligne est variable, pour enlever le 1er caractère de gauche du contenu d’autre cellule de la colonne G (par exemple, la cellule G108). La formule fonctionne lorsque je l’écris dans la cellule, mais je n’arrive pas à la faire fonctionner en VBA. Il n’y a pas de message d’erreur, mais la cellule reste vide ou affiche le numéro de la ligne. J’ai essayé toutes sortes de combinaisons et je ne sais plus quoi inventer pour que ça fonctionne. Voici ce que j’ai essayé jusqu’à présent :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Ligne = ActiveCell.Row
ActiveCell.Offset(0, 5) = "=MID(G" & CStr(Ligne) & "," & CStr(2) & ",LEN(G" & CStr(Ligne) & ")"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Ligne = ActiveCell.Row
ActiveCell.Offset(0, 5) = "=MID(G" & CStr(Ligne) & ",2,LEN(G" & CStr(Ligne) & ")"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Ligne = ActiveCell.Row
ActiveCell.Offset(0, 5) = "=MID(G" & Ligne & ",2,LEN(G" & Ligne & ")"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Ligne = ActiveCell.Row
ActiveCell.Offset(0, 5) = "=" & VBA.Mid("G" & CStr(Ligne), 2, Len("G" & CStr(Ligne)))

Aucun de ces codes n'a fonctionné. Quelqu'un a une autre idée?

[Arkham46]

Bonjour,
Par défaut si on ne précise pas la propriété, c'est la valeur de la cellule.
Pour mettre à jour la formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Offset(0, 5).Formula = ...

[parmi]

Bonjour,

En utilisant Formula comme stipulé par arkham46, j'opterais pour la 3e formule.

[OBO29]

Voici une réponse 100% VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Ligne As Double
Dim Cellule As Range
 
Ligne = ActiveCell.Row
Set Cellule = Cells(Ligne, 7)
 
ActiveCell.Offset(0, 5) = Right(CStr(Cellule.Value), Len(CStr(Cellule.Value)) - 1)

J'espère que ça répond à ta demande.

[Igloobel]

Bonsoir,

tu peux également utiliser mid directement car c'est un fonction VBA comme Len

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
' Syntaxe :Mid ( text, start_position, number_of_characters )
 
Dim Ligne, Lign2 As long
Ligne =7
Lign2 =8   'par exemple
Cells(Lign2, 7).value  =Mid(cells(Ligne,7).value, 2,4) ' prend les 4 caractère en commençant par la deuxième

[Lune1]

Merci à tous pour vos réponses. Bon point Arkham46. Je ne m'étais pas aperçu que je ne l'écrivais pas comme il faut, concentrant toutes mes efforts à l'autre côté de l'équation. Finalement, j'ai opté pour la solution de OBO29.