Discussion :

[Matrixmax]

Bonjour developpers !

çà serais agréable si je peux faire une sous procédure qui a comme entrée une varriable range(XXX)

et qui me rajoute ".0" aprés les cellule de la forme X.X

Code :

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

1
2
 
( cell.val = cell.val & ".0" )

et qui rajoute ".0.0" aprés les cellule de la forme X

Code :

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

1
2
 
( cell.val = cell.val & ".0.0)

est t il possible ?

merci d'avance...

[Ashireon]

Hello
Tout es possible :-) Enfin presque je pense.
Cepndant tu veux que dans la VAleur de la cellule soit ecris X.0 pour une donnée type X et que pour une donée type XX soit ecris XX.0.0 ?

[Matrixmax]

Ouii Eric tout est possible ... ... ( merci pour l'interrét !)

je que la procédure me rajoute ".0" aprés les cellule de la forme X.X exemple :

1.1 devient 1.1.0
2.5 devient 2.5.0
12.44 devient 12.44.0

et qui rajoute ".0.0" aprés les cellule de la forme X exemple :

1 devient 1.0.0
4 devient 4.0.0
12 devient 12.0.0
1244 devient 1244.0.0

Merci infiniment d'avance

Bonjour Patrick ,

Je suis stressé et pressé pour présenter le résultat .. ce qui me fais perdre le controle et le SENS.. :/ .. dsl

J'espére étre claire dans mon deuxiéme post !

Cordialement

[Ashireon]

Voili voilou

petite fonction qui te fait ca tout bien

Code :

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

1
2
3
4
5
6
Sub Bouton1_Cliquer()
Dim Rng As Range
Set Rng = Application.InputBox("selection de la zone a convertir", Type:=8)
Call ConversionRange(Rng)
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub ConversionRange(ByVal Rng As Range)
Dim Cellule As Variant
    For Each Cellule In Rng
    Dim Chaine As String
    Chaine = CStr(Cellule.Value)
        If Chaine Like "*.*" Then
            Cellule.Value = Cellule.Value & ".0"
                Else
                    Cellule.Value = Cellule.Value & ".0.0"
        End If
    Next
 
End Sub

[Marc-L]

Bonjour !

Au cas où le séparateur décimal est le point alors évidemment les cellules doivent être au préalable au format Texte
sinon Excel n'interprétera pas bien la procédure suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub PointZero(Rg As Range)
    Application.ScreenUpdating = False
        For Each Cel In Rg
            T$ = Cel.Text
            P& = InStr(T$, ".")
 
            If P& Then
                If InStr(P& + 1, T$, ".") = 0 Then Cel.Value = T$ & ".0"
 
            Else
                Cel.Value = T$ & ".0.0"
            End If
        Next
    Application.ScreenUpdating = True
End Sub

_______________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Matrixmax]

C'est Nickel .. !!

Merci à vous tous :=)

[mercatog]

Arrivé tard

Code :

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

1
2
3
4
5
6
Function Former(ByVal Str As String) As String
 
Str = Str & ".0.0"
If Len(Str) - Len(Replace(Str, ".", "")) > 2 Then Str = Left(Str, InStrRev(Str, ".") - 1)
Former = Str
End Function

EDIT

Une autre variante

Code :

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

1
2
3
4
5
6
Function Former(ByVal Str As String) As String
Dim n As Byte
 
n = 2 + Len(Replace(Str, ".", "")) - Len(Str)
Former = Str & Replace(String(n, "|"), "|", ".0")
End Function

[patricktoulon]

Bonjour
on a pas encore acquis le pouvoir de deviner
ta question n'a ni queu ni sens .essaie de reformuler ta question avec le contexte si possible
au plaisir