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