Boucle, suppression des 6 derniers caracteres d'une colonne

Bonjour,

Je demande encore votre aide.

J'ai un tableau avec une colonne (qui va pas être toujours au même endroit suivant l'extraction) qui a un format de date bidon.

Exemple : 23/05/2016:13:13

Je voudrais supprimer les 6 derniers caractères afin d'avoir un format de date correcte.

Pour trouver cette colonne je sais que l’en-tête est toujours "DateBooked".

j'utilise cette macro :

Cells.Find(What:="DateBooked").Activate

ActiveCell.EntireColumn.Select

Mais ensuite j'ai essayé de créer une boucle mais je suis nul la dessus et je ne trouve pas malgré plusieurs lecture sur différent site sur la toile.

Avez vous une idée pour m'aider ?

Merci a vous tous.

Eddie

Bonjour,

Essaie avec

Sub Test()
Dim C As Range, Cel As Range
    Set C = Rows(1).Find(What:="DateBooked").Offset(1)
    For Each Cel In Range(C, C.End(xlDown))
        Cel = CDate(Left(Cel, 10))
    Next Cel
End Sub

A+

Génial, tu es un génie. C'est super propre comme code.

J'avais fait un code, mais super lourd qui marchait mais qui ramait avec le menu "enregistré une macro"

Faut que je trouve le temps de me mettre plus en profondeur la dessus.

Merci encore.

Bonne journée.

Eddie