Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Je suppute que toutes tes valeurs sont alignées par défaut à droite dans les cellules.
Alors tu selectionnes la colonne concernée et tu exécutes ce code.
Code:
Sub Alignement()
For Each cel In Selection
If cel.Value Mod 2 <> 0 Then
cel.Select
With Selection
.HorizontalAlignment = xlLeft
End With
End If
Next cel
End Sub
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.