Substitue en VBA Excel

6subst-date.xlsx (9.57 Ko)

Bonjour, j'ai besoin aide concernant le fichier attaché. Je veux remplacer "." par " " dans la même colonne A en utilisant VBA.

Merci d'avance

Bonjour,

Un test

8subst-date.xlsm (16.08 Ko)

Bonjour,

une proposition :

Sub Remplace()
    i = 2
    Do
        If Cells(i, 1).Value = "" Then Exit Do
        Cells(i, 1).Value = Replace(Cells(i, 1), ".", "")
        i = i + 1
    Loop
End Sub

@ bientôt

LouReeD

Edit : bonjour M12 ! Voilà, à ne pas rafraichir les écrans...

M12 et LouReeD merci infiniment pour vos réponses; mais le problème si je veux copier le code dans un classeur excel, vos propositions ne seront pas valides. Alors; je veux un code "VBA" que je peux le copier dans mon classeur de travail qui me permet de remplacer automatique tous les "." par " " dans la colonnes A quand je effectue "coller des données" dans la même colonne...

2subst-date.xlsx (8.58 Ko)

Re

Tu mets cette macro dans un module du classeur qui t'intéresse

et en la lançant en étant sur la feuille voulue, la colonne A (à partir de la 3ème ligne) jusqu'à la dernière remplie se modifiera

Sub Test()
  Dim i%, j%, Dl%
  Dim Ws As Worksheet
  Set Ws = ActiveSheet
  Dl = Ws.Range("A" & Rows.Count).End(xlUp).Row
    For i = 3 To Dl
      Ws.Cells(i, 1) = Replace(Ws.Cells(i, 1), ".", "")
    Next i
End Sub

D'ailleurs la macro à LouReed que je salue fait le job

Tu as raison M12 ... ta proposition et celle de LouReeD étaient appropriées.. Ce fut une erreur de ma part de ne pas bien placer le code . Désolée et merci une autre fois. Que Dieu vous protège.
Rechercher des sujets similaires à "substitue vba"