Résupérer les fonctions GAUCHE et DROITE en vba

  • Initiateur de la discussion Initiateur de la discussion fred-bene
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fred-bene

XLDnaute Occasionnel
Salut à tous et toutes.

Je cherche à récupérer des données de type 121315 et à les transformer en format horaire 12:13:15 et ce en vba. Je veux donc récupérer la chaîne de caractère et la découper.
Les fonctions droite et gauche me seraient. Comment les récupérer en vba ?
Peut-être une autre solution est-elle envisageable...

@+
Fred
 
Re : Résupérer les fonctions GAUCHE et DROITE en vba

Salut.
Pour ce qui est de ces fonctions il n'y a aucun problème.
je recherche à récupérer ces fonctions en vba sans mettre de formule dans les case avec un truc du genre cells(i,j)="right(cellule, nombre ).

Peut-être un traitement de la chaîne de caractère est-il souhaitable ...

Fred
 
Re : Résupérer les fonctions GAUCHE et DROITE en vba

Exemple avec Left, Mid et Right

Si A1 = 121315
Code:
[A1] = Left([A1], 2) & ":" & Mid([A1], 3, 2) & ":" & Right([A1], 2)

Ce qui donnera en A1 --> 12:13:15
 
Re : Résupérer les fonctions GAUCHE et DROITE en vba

Salut.

J'ai résolu mon problème avec la fonction MID :


-----------------------------------------------------------------

Sub traitement()

Dim i As Integer
Dim lgr As Integer
Dim txt() As String

Range("C😀").Select
Selection.ClearContents
Cells(1, 3) = "Dossard"
Cells(1, 4) = "Temps"

i = 2

Do Until IsEmpty(Cells(i, 1))

Cells(i, 3) = Cells(i, 1)
ReDim txt(Len(Cells(i, 2)))
For j = 1 To Len(Cells(i, 2))
txt(j) = Mid(Cells(i, 2), j, 1)
Next j
Cells(i, 4) = txt(1) & ":" & txt(2) & txt(3) & ":" & txt(4) & txt(5)

i = i + 1

Loop

End Sub

-----------------------------------------------------------------


Merci.

Fred
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
16
Affichages
1 K
Réponses
1
Affichages
336
Retour