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

  • Initiateur de la discussion PETER
  • Date de début
P

PETER

Guest
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

XLDnaute Barbatruc
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

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

Bonsoir Peter

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

Code:
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 ! :eek:

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

Discussions similaires

Réponses
3
Affichages
744
Réponses
12
Affichages
297

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson