Compléter vide dans cellules

Rivonia · 11 Juillet 2013

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 · 11 Juillet 2013

Re : Compléter vide dans cellules

Bonjour à tous

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

Rivonia · 11 Juillet 2013

Re : Compléter vide dans cellules

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

DoubleZero · 11 Juillet 2013

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 :

Code:

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 · 11 Juillet 2013

Re : Compléter vide dans cellules

Merci pour le complément.

Cdt,

Compléter vide dans cellules

Rivonia

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Rivonia

XLDnaute Nouveau

DoubleZero

XLDnaute Barbatruc

Rivonia

XLDnaute Nouveau

Discussions similaires