Ilino
XLDnaute Barbatruc
Bonsoir forum
J’ai un souci sur ce code, je n’arrive pas a l’adapter a mon programme
Si je fais rentrer une valeur non numérique dans la cellule le code effacera toutes les valeurs numériques de la colonne ????
Merci
Option Explicit
Dim I As Byte, Oui As Boolean
Dim j As Byte
Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target) Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
Oui = False
For I = 1 To Len(Target)
If Mid(Target, I, 1) = "." Then
Oui = True
Target = CDbl(Left(Target, I - 1) & "," & Right(Target, Len(Target) - I))
Exit For
End If
Next
For j = 1 To 10
If Oui = False Then
Range("A" & j).Select
Range("A" & j) = ""
End If Next j
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
J’ai un souci sur ce code, je n’arrive pas a l’adapter a mon programme
Si je fais rentrer une valeur non numérique dans la cellule le code effacera toutes les valeurs numériques de la colonne ????
Merci
Option Explicit
Dim I As Byte, Oui As Boolean
Dim j As Byte
Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target) Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
Oui = False
For I = 1 To Len(Target)
If Mid(Target, I, 1) = "." Then
Oui = True
Target = CDbl(Left(Target, I - 1) & "," & Right(Target, Len(Target) - I))
Exit For
End If
Next
For j = 1 To 10
If Oui = False Then
Range("A" & j).Select
Range("A" & j) = ""
End If Next j
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub