Bonjour à tous.
Je ne me suis plus servi de mon fichier pendant un bon moment, et ce bout de code ne fonctionne plus ! Certainement dû à un problème de compatibilité......... Encoooore ;-)
Je l'utilisais dans un fichier Excel pour insérer une adresse mail pour corriger les virgules mises automatiquement par défaut par ce dernier !
Une idée s'il vous plait ?
Merciiiii beaucoup par avance
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B10:B13"), Target) Is Nothing Then
Application.EnableEvents = False
If Target <> "" Then
Target.Replace ",", "."
Valeur = Target.Value
If MsgBox("Etes vous sur de vouloir valider " & Valeur & " " & vbNewLine & Chr(13) & "comme adresse mail ?", vbQuestion + vbYesNo, " ATTENTION") = vbYes Then Application.EnableEvents = True: Exit Sub
If vbNo Then
Target.Value = Empty
End If
End If
Application.EnableEvents = True
End If
End Sub