Discussion :

[pilounet54]

J’ai une contradiction entre en case 2 qui fonctionne !

Code :

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

mCellule1 = mCellule1 & ":00"

et case 3

Code :

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

mCellule1 = TimeValue(Format(Left(mCellule1, 2), "00") & ":" & Right(mCellule1 & "00", 2))

en case 3 je souhaite deux chiffres les deux points et le troisième chiffres et le et un zéro pour finir
pouvez vous m'aidez?

[EngueEngue]

Toi parler le français comme les vaches espagnoles.. Exprime toi correctement et on pourra t'aider.

D'après ma compréhension de ton pb:

Code :

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

mCellule1 = left(mCellule1,2) & ":" & right(mCellule1,1) & "0"

[pilounet54]

pardon pour mon espagnoles.

mais cela fonctionne pas !

Code :

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

mCellule1 = left(mCellule1,2) & ":" & right(mCellule1,1) & "0"

[/QUOTE]

je souhaite deux premier chiffres ensuite les deux points le dernier chiffre
et un zéro pour finir

les deux code séparément fonctionne mais si je mets ces deux codes cela fonctionne pas

[parmi]

Pour faciliter l'aide, inscrit le contenu de tes 2 cellules et le résultat que tu attends.

[pilounet54]

si je tape le chiffre 1 résultat cellule 01:00
si je tape le chiffre 12 résultat cellule 12:00
si je tape le chiffre 123 résultat cellule 12:30
si je tape le chiffre 1234 resultat cellule 12:34
encore pardon pour mon français !

[EngueEngue]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub toto()
truc = mcellule1
select case len(truc)
case 1 
mcellule1 = "0" & mcellule1 & ":00"
case 2
mcellule1 =  mcellule1 & ":00"
case 3
mcellule1 =  left(mCellule1,2) & ":" & right(mCellule1,1) & "0"
case 4
mcellule1 =  left(mCellule1,2) & ":" & right(mCellule1,2)
end select
end sub