Bonjour tout le monde,
J'essaie un truc simple mais ça ne fonctionne pas.
Je veux simplement mettre un zéro devant un chiffre si il est inférieur à 10.
J'ai fait ce code mais ça ne fonctionne pas :
Sub ZeroDevantUneCoteAUnChiffre()
Dim coteActive As String
If Not IsNumeric(ActiveCell.Value) Then
GoTo lettre
Else
If ActiveCell.Value < 10 Then
coteActive = "0" & ActiveCell.Value
ActiveCell.Value = coteActive
End If
End If
lettre:
End Sub
La variable coteActive prend bien la valeur 07 mais quand je demande de l'afficher, il ne le fait pas.
J'aimerais aussi que cette macro soit active uniquement pour les cellules que je sélectionne, ça je trouve que c'est plus dur à faire.
Merci d'avance pour votre aide.
beegees
J'essaie un truc simple mais ça ne fonctionne pas.
Je veux simplement mettre un zéro devant un chiffre si il est inférieur à 10.
J'ai fait ce code mais ça ne fonctionne pas :
Sub ZeroDevantUneCoteAUnChiffre()
Dim coteActive As String
If Not IsNumeric(ActiveCell.Value) Then
GoTo lettre
Else
If ActiveCell.Value < 10 Then
coteActive = "0" & ActiveCell.Value
ActiveCell.Value = coteActive
End If
End If
lettre:
End Sub
La variable coteActive prend bien la valeur 07 mais quand je demande de l'afficher, il ne le fait pas.
J'aimerais aussi que cette macro soit active uniquement pour les cellules que je sélectionne, ça je trouve que c'est plus dur à faire.
Merci d'avance pour votre aide.
beegees