J'aimerais que mon code VBA s'applique à ma sélection

[beegees]

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

 

[pierrejean]

Re : J'aimerais que mon code VBA s'applique à ma sélection

bonjour beegees

teste

Sub ZeroDevantUneCoteAUnChiffre()
For Each cel In Selection
 If cel.Value <> "" Then
  If IsNumeric(cel.Value) And cel.Value < 10 Then
    cel.NumberFormat = "@"
    cel.Value = "0" & cel.Value
  else
     cel.NumberFormat = "@"
   End If
  End If
 Next cel
End Sub

edit : ajouté condition <10

 

[beegees]

Re : J'aimerais que mon code VBA s'applique à ma sélection

Bonjour PierreJean,

Merci pour ta réponse.

La sélection, il en tient bien compte maintenant, merci.

Par contre, même si le nombre est supérieur à 10, il met quand même un zéro devant.

Qu'en penses-tu ?

Merci encore.

beegees

 

[pierrejean]

Re : J'aimerais que mon code VBA s'applique à ma sélection

re

voir modifs faites entre temps

avec mes excuses

 

[beegees]

Re : J'aimerais que mon code VBA s'applique à ma sélection

re

voir modifs faites entre temps

avec mes excuses

re,

woaw, je suis impressionné, ça fonctionne nikel, un super grand merci à toi.

C'est moi qui m'excuse de t'avoir déranger avec ce problème.

Merci encore et @ bientôt

beegees