Bonjour tout le monde,
J'ai du code qui me permet de mettre des cellules sélectionnées dans un format texte et tant que la cellule active est différente de rien, de voir si c'est un chiffre, si c'est un chiffre inférieur à 10, y mettre un O devant exemplke 07.
ça fonctionne pas mal mais je suis obligé de sélectionner collone par collone, -j'aimerais que mon code s'applique à la sélection (exemple plusieurs collones contigues), pourriez-vous me dire comment je dois faire svp ?
Voici mon code (merci d'avance pour votre aide.)
beegees
Sub ZeroDevantUneCoteAUnChiffre()
Dim coteActive As String
Selection.NumberFormat = "@"
Do While ActiveCell.Value <> ""
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:
ActiveCell.Offset(1, 0).Select
Loop
End Sub
J'ai du code qui me permet de mettre des cellules sélectionnées dans un format texte et tant que la cellule active est différente de rien, de voir si c'est un chiffre, si c'est un chiffre inférieur à 10, y mettre un O devant exemplke 07.
ça fonctionne pas mal mais je suis obligé de sélectionner collone par collone, -j'aimerais que mon code s'applique à la sélection (exemple plusieurs collones contigues), pourriez-vous me dire comment je dois faire svp ?
Voici mon code (merci d'avance pour votre aide.)
beegees
Sub ZeroDevantUneCoteAUnChiffre()
Dim coteActive As String
Selection.NumberFormat = "@"
Do While ActiveCell.Value <> ""
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:
ActiveCell.Offset(1, 0).Select
Loop
End Sub