Suppresion

Bonjour,

dans mon fichier ci-joint il y a un macro qui supprime le ";" a la fin du colonne .

je besoins de modifier le macros pour qu'il fait le meme tavail dans des differents colonnes mais j'arrive pas

quelque explication dans la piece joint

Cordialement

c'est bon j'arrive a faire ca pour les differents colonnes mais comment faire si on a dans la cellule que ";"

Je vous remerci

Bonjour

A tester

Sub supression()
Dim Cel As Range
Dim DerLig As Long

  Application.ScreenUpdating = False

  DerLig = Columns("AZ:BE").Find(what:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
  For Each Cel In Range("AZ2:BE" & DerLig)
    If Cel <> ";" And Cel.Column <> 56 Then  ' 56 = colonne BD
      If Right(Cel, 1) = ";" Then Cel = Left(Cel, Len(Cel) - 1)
    End If
  Next Cel

End Sub

Bonjour

c'est tard mais je te remercie , c'est ca qu"il fallait

amicalement