Remplacer les premières valeurs d'une cellule par

Bonjour à tous,

Dans le fichier ci-joint, je cherche à normaliser ma colonne téléphone et à remplacer

> les cellules commençant par "0033", remplacer "0033" par "0"

> les cellules commençant par "033", remplacer "0033" par "0"

> les cellules commençant par "33", remplacer "0033" par "0"

Voici mon code mais cela ne fonctionne pas... une idée?

Sub tel1()

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row

If Left(Range("A" & i), 4) = "0033" Then

Range("A" & i) = "0" & Mid(Range("A" & i), 5, 9 ^ 9)

End If

If Left(Range("A" & i), 2) = "33" Then

Range("A" & i) = "0" & Mid(Range("A" & i), 3, 9 ^ 9)

End If

If Left(Range("A" & i), 2) = "033" Then

Range("A" & i) = "0" & Mid(Range("A" & i), 4, 9 ^ 9)

End If

Next

End Sub

Merci pour votre aide!

Bonjour

Ton code fonctionne pour 2 conditions

If Left(Range("A" & i), 2) = "033" Then

Essayes

Sub tel1()
  For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    If Left(Range("A" & i), 4) = "0033" Then
      Range("A" & i) = "0" & Mid(Range("A" & i), 5)
    ElseIf Left(Range("A" & i), 2) = "33" Then
      Range("A" & i) = "0" & Mid(Range("A" & i), 3)
    ElseIf Left(Range("A" & i), 3) = "033" Then
      Range("A" & i) = "0" & Mid(Range("A" & i), 4)
    End If
  Next
End Sub

oui effectivement il y avait une erreur dans la dernière ligne au niveau des conditions mais le code suivant ne fonctionne toujours pas....Cela bug dès la deuxième ligne..je n'arrive pas à comprendre pourquoi...

Sub tel1()

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row

If Left(Range("A" & i), 4) = "0033" Then

Range("A" & i) = "0" & Mid(Range("A" & i), 5)

ElseIf Left(Range("A" & i), 2) = "33" Then

Range("A" & i) = "0" & Mid(Range("A" & i), 3)

ElseIf Left(Range("A" & i), 3) = "033" Then

Range("A" & i) = "0" & Mid(Range("A" & i), 4)

End If

Next

End Sub

Bonjour

Le code je l'ai testé (rapidement c'est sur) et pas de souci

Il faut ton fichier en cause