Bonjour Lupin,

J'ai un soucis sur le code que tu m'as proposé concernant ce problème:
lorsque la personne saisie quelque chose dans la colonne, un userform s'affiche pour lui demander de saisir des informations. Il saisit notamment une cellule numérique. Lorsqu'il clique sur le bouton de validation du userform, les données saisies dans le userform se copient sur le fichier excel, mais la cellule numérqiue se copie en format caractère dès qu'il y a des virgules.
En gros: je saisie un nombre numérique dans la colonne qui réceptionne l'info, le format est bien numérique.
Je saisie par le userform un nombre à virgule, il est copié en format texte dans la colonne qui réceptionne l'info.

Voici mon code lors de la saisie dans une cellule:
Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
Application.ScreenUpdating = False

Dim Region As Range, Position As Long

Dim rngCible As Range

Set rngCible = Range("F9:F200,J9:J200,N9:N200,R9:R200,V9:V200,Z9:Z200,AD9:AD200")

' Capture de l'adresse du changement
strAdresse = Target.Address

Set Region = Application.Intersect(rngCible, Target)

If Not (Region Is Nothing) Then
If Range(strAdresse).Value <> "" Then
' Effacement des variables
USF_HEURES.HEURES= 0

' Appel du formulaire
USF_HEURES.Show
Else
Range(strAdresse).Offset(0, 1).Value = ""
MsgBox ("La justification a été effacée!")
End If
End If

Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

A noter que quand on saisit un numérique avec des décimales, il faut le saisir avec une virgule, le point ne passe pas (dû à mon contrôle sur le type de données).

Derrière mon bouton de validation du userform, il y a cela:
If IsNumeric(HEURES.Value) Then
With ActiveSheet
.Range(strAdresse).Offset(0, 1).Value =HEURES.Value
End With

USF_HEURES_A_JUSTIFIER.Hide

Else
If Not IsNumeric(HEURES.Value) Then
MsgBox ("Les heures doivent être un nombre, non un caractère!")
End If
End If

End Sub


En espérant que tu pourras m'aider,
Ludivine