Modulo "Pair" ...espace

Sub Macro1()
Dim cel As Range 'déclare la variable Cel

'boucle sur toutes les cellules éditées Cel de la colonne B
For Each cel In Range('B1:B' & Range('B65536').End(xlUp).Row)

On Error GoTo suite 'si la valeur de la cellule n'est pas numérique 'va à la balise 'suite'

'condition : si la valeur de la cellule est pair, rajoute un espace en colonne D
If cel.Value Mod 2 = 0 Then cel.Offset(0, 2).Value = ' ' & cel.Offset(0, 2).Value

suite: 'balise

Next cel 'prochaine cellule éditée Cel de la colonne B

End Sub

Cliquez pour agrandir...

Merci beaucoup c'est parfait

Je vais plutot le mettre en macro car en selection change il met un espace à chaque clic ...donc 3 clic met 3 espace

Merci beaucoup

Temjeh

Cliquez pour agrandir...

Sub Macro1()
Dim cel As Range 'déclare la variable Cel

'boucle sur toutes les cellules éditées Cel de la colonne B
For Each cel In Range('B1:B' & Range('B65536').End(xlUp).Row)

On Error GoTo suite 'si la valeur de la cellule n'est pas numérique 'va à la balise 'suite'

'condition : si la valeur de la cellule est pair, rajoute un espace en colonne D
If cel.Value Mod 2 = 0 And Mid(cel.Offset(0, 2), 1, 1) <> ' ' Then _
cel.Offset(0, 2).Value = ' ' & cel.Offset(0, 2).Value

suite: 'balise

Next cel 'prochaine cellule éditée Cel de la colonne B

End Sub

Cliquez pour agrandir...