Compléter vide dans cellules

[Rivonia]

Bonjour,

J'ai des cellules de largeur différentes dans un tableau. Je souhaiterai compléter avec un point (.) ou autre signe, l'espace vide situé aprés le texte saisi dans la cellule, autrement qu'en tapant les signes manuellement dans chaque cellule.
Merci d'avance pour vos conseils.

 

[Staple1600]

Re : Compléter vide dans cellules

Bonjour à tous

Rivonia
Utilises un format personnalisé: @*.
(Format/Cellule/Nombre/Personnalisée/Type)

 

[Rivonia]

Re : Compléter vide dans cellules

Merci beaucoup. C'est effectivement ce que je cherchais. Bonne continuation.

 

[DoubleZero]

Re : Compléter vide dans cellules

Bonjour, Rivonia, re-bonjour, Staple1600 🙂, le Forum,

Pensant qu'il ne fallait ponctuer que les cellules contenant du texte, une suggestion avec ce code, agissant sur les cellules préalablement sélectionnées :

Option Explicit
Sub Ponctuer()
    Dim c As Range
    For Each c In Selection
        If Not IsNumeric(c) And Not IsDate(c) Then c = c & "."
    Next
End Sub

A bientôt 🙂

 

[Rivonia]

Re : Compléter vide dans cellules

Merci pour le complément.

Cdt,