Suppression de caractere

Bonsoir tout le monde

Auriez vous un petit code pour supprimer dans une colonne (D48 à derniere cellule occupée) les 7eme et 8eme chiffres (en format texte)

un petit fichier pour essayer

https://www.excel-pratique.com/~files/doc2/supprime_caractere.xls

merci,

Cordialement

Bonsoir,

le code ci-dessous copie ce que tu veux dans la cellule d'à côté....

Supprime le .offset(0, 1) pour réécrire dans la même cellule...

Sub maguet()
For Each cel In Range("A1:A" & [A65000].End(xlUp).Row)
    cel.Offset(0, 1).Value = Format(Left(cel.Value, 6) & Right(cel.Value, Len(cel.Value) - 8), "@")
Next cel
End Sub

Bonne soirée

Bonsoir

Merci ca marche,

par contre en supprimant le debut comme tu le dis ca ne marche pas

j'ai juste remplacé le

(0, 1) par (0, 0)

mais c'est peut-etre ce que tu voulais dire.

encore merci, et bon week-end.

Cordialement

Edit, je dis des betises, c'est moi qui n'ai pas lu correctement, j'en avais trop supprimer,

Autant pour moi, c'est nickel.

Re,

par contre en supprimant le debut comme tu le dis ca ne marche pas

Euh, remplacer le :

(0, 1) par (0, 0)

revient à ce code :

Sub maguet()
For Each cel In Range("A1:A" & [A65000].End(xlUp).Row)
    cel.Value = Format(Left(cel.Value, 6) & Right(cel.Value, Len(cel.Value) - 8), "@")
Next cel
End Sub 

Bonne soirée

Bonsoir

Pour remplacer sur place :

Sub maguet()
For Each cel In Range("D48:D" & [D65000].End(xlUp).Row)
    cel.Value = Format(Left(cel.Value, 6) & Right(cel.Value, 2), "@")
Next cel
End Sub 

Amicalement

Nad

Edit : désolée felix, je ne te voyais plus en ligne.

Re-,

Nad :

Edit : désolée felix, je ne te voyais plus en ligne.

Pas de soucis.....

Par contre, ta solution :

Format(Left(cel.Value, 6) & Right(cel.Value, 2), "@") 

suppose un nombre de caractères égal à 10...

Maguet ne l'a pas dit.....

10 ou plus de caractères??????

d'où ma prudence.....

Format(Left(cel.Value, 6) & Right(cel.Value, Len(cel.Value) - 8), "@") 

qui supprime uniquement les 7ème et 8ème valeurs de la cellulle

Bonne soirée

(du moins, si toi aussi, tu ne me réponds pas "toi aussi"........) Humour....

Bonsoir tout le monde

Merci a vous, je m'etais rendu compte de la betise que je disait (je l'avais mis en edit.)

Pour répondre a votre question, la case ne comporte que 10 chiffres et "normalement" cela ne devrais pas changer.

Cordialement