Est-ce possible ?

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:

---

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

---

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

Code:

---

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

---

est t il possible ?

merci d'avance...

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 ?

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

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

Voili voilou

petite fonction qui te fait ca tout bien

Code:

---

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:

---

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

---

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:

---

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 :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

C'est Nickel .. !!

Merci à vous tous :=)

Arrivé tard

Code:

---

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:

---

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

---