Re : mettre un ' devant chaque date

Publié par YANN-56 le 09/02/2014 19:42:37
Bonsoir ou Bonjour aux participants et à ceux qui passeront par ici,
Voici une idée:
Private Sub CommandButton1_Click()
Dim TRUCS As Range

'''1) DANS LE CAS D'UNE SELECTION PRECISEE:
'For Each TRUCS In Selection

'''2) DANS LE CAS D'UNE MODIFICATION DE TOUTES LES DATES D'UN TABLEAU:
'For Each TRUCS In UsedRange

If IsDate(TRUCS) Then TRUCS = "'" & TRUCS
Next TRUCS
End Sub

Pardon si je me suis trompé quant au but recherché. Mais je ne pratique plus le VBA depuis un morceau de temps.
Amicalement,
Yves

Ce message est de : http://excel.veriti.net/modules/newbb/viewtopic.php?post_id=354