Modifier certains contenus d'un tableau

Bonjour,

Je débute en VBA et je cherche comment modifier certaines cellules d'un tableau qui sont en format texte comme ceci :

01'01

02'01

03'58

J'aimerais les mettre, toujours en format texte mais en ajoutant 00' juste devant :

00'01'01

00'02'01

00'03'58

Ensuite, j'aimerais modifier les apostrophes " ' " par des deux points " : "

00:01:01

00:02:01

00:03:58

pour pouvoir enfin mettre ces données en format hh:mm:ss...

Seulement dans ce tableau je n'ai pas uniquement ce genre de données et je dois trouver aussi un moyen de sélectionner les bonnes cellules à modifier...

Auriez-vous des idées quant à un codage VBA pour ces actions là... ?

Merci beaucoup si des pistes sont possibles...

Bonjour

Un exemple avec les données en colonne A (à partir de A2)

Code Module

Sub Modifie()
Dim Cel As Range
For Each Cel In Range("a2", Range("a2").End(xlDown))
    Cel.FormulaR1C1 = "00:" & Cel
    With Cel
    Cel.Replace What:="'", Replacement:=":", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    End With
Next Cel
End Sub

Cordialement

Merci beaucoup, cela m'est d'une grande aide !

Du coup j'ai une autre question, comment pourrais-je faire pour automatiquement sélectionner les cellules ayant besoin de cette modification ? Peut on avec VBA automatiser la reconnaissance et sélection de certaines cellules d'un tableau ayant ce type de variable texte ##'## ? Les autres cellules du tableau sont des décimales que je ne compte pas changer...

Si encore une piste est possible biensûr...

Bonne soirée et merci encore !

Bonjour

si tes décimales sont des valeurs numériques

Sub Modifie()
Dim Cel As Range
For Each Cel In Range("a2", Range("a2").End(xlDown))
If IsNumeric(Cel) = False Then
    Cel.FormulaR1C1 = "00:" & Cel
    With Cel
    Cel.Replace What:="'", Replacement:=":", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    End With
    End If
Next Cel
End Sub

Cordialement

Merci beaucoup pour ce coup de main