RESOLU Code pour mettre un tiret

[castor30]

Bonjour à vous tous,

Ma feuille Renseignements, dans les colonnes J:L contiennent des N° de téléphone
Je souhaiterai une macro pour que, si un n° de Tél est manquant ça me mette un tiret à la place du numéro

En vous remerciant

 

[Robert]

Bonjour Castor, bonjour le forum,

Code à adapter en fonction de la colonne qui contient obligatoirement une donnée. Ici j'ai choisi la colonne A :

Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Long 'déclare la variable DL (Dernière Ligne)
Dim CEL As Range 'déclare la variable CEL (CELlule)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton code)
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
For Each CEL In Range("J1:L" & DL) 'boucle sur toutes les cellules CEL de la plage J1:L...
    If CEL.Value = "" Then CEL.Value = "-" 'si la cellule est vide, écrit un tiret dans la cellule
Next CEL 'prochaine cellule de la boucle

 

[castor30]

Bonjour Robert,
Je viens d'essayer le code comme suit, mais apparemment ça ne marche pas. Certainement quelque chose que je n'ai pas compris.

Private Sub RempVide_Change()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Long 'déclare la variable DL (Dernière Ligne)
Dim CEL As Range 'déclare la variable CEL (CELlule)

Set O = Worksheets("Renseignements") 'définit l'onglet O (à adapter à ton code)
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
For Each CEL In Range("J1:L" & DL)
Next
End Sub

 

[Robert]

Re,

Sans fichier je ne peux rien faire de mieux...

 

[pierrejean]

Bonjour castor
Salut Robert
@ castor
Cette ligne est peut-être utile non ?
If CEL.Value = "" Then CEL.Value = "-"

 

[castor30]

Bonjour Robert, pierrejean
Merci à vous, effectivement, je ne sais pourquoi j'avais zappé cette ligne ainsi que Next CEL
Bon WE