":" à la place de "." et ","

[PETER]

Bonsoir tout le forum

Je voudrais que pour les cellules 'B10:C30' a chaque fois qu'on tape un point '.' ou une virgule ',' cela soit remplacé par une double points ':'

Merci a tous

Peter.

 

[CBernardT]

Bonsoir Peter,

Vite fais, cela peut être une macro de ce style :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Range('B10:C30')
.Replace What:='.', Replacement:=':'
.Replace What:=',', Replacement:=':'
End With
End Sub

Cordialement

Bernard

 

[Hellboy]

Re:\":\" à la place de \".\" et \",\"

Bonsoir Peter

Je crois que ceci pourras répondre a ta demande:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
     Select Case .Column
            Case 2 To 3
                 Select Case .Row
                        Case 10 To 30
                             If InStr(1, .Value, '.') > 0 Then
                                .Value = Replace(.Value, '.', ':')
                             ElseIf InStr(1, .Value, ',') > 0 Then
                                .Value = Replace(.Value, ',', ':')
                             End If
                 End Select
    End Select
End With
End Sub

If anything else, just ask.

désolé ctBernard, pas vu ton post !

Message édité par: Hellboy, à: 28/06/2005 23:53