inserer symbole sur liste de fichier Excel Fermé

Question

Bonjour, je veux insérer un symbole  " ; " à toute les lignes sur un fichier excel d'environ  3600 lignes

Merci d'avance

Configuration: Windows XP / Safari 535.11

f894009 · Answer

Bonjour,

Bonjour, je veux insérer un symbole " ; "

A droite, a gauche.....???????

f894009 · Answer

Re,

Ouvrir votre classeur
Ouvrir le vba par Alt+F11
Doubleclick gauche (souris) sur ThisWorkbook ( en haut a gauche )

Faire un click gauche dans fenetre a droite

Copier le code ci-dessous

Sub ajout_PV()
  Dim Col_A As Range, Last_Row, Cellule As Range, Nb_Cel_Sans_Fond
  
  With Worksheets("Feuil1")
    'Recherche derniere ligne colonne A
    Last_Row = .Columns("A").Find("*", , , , , xlPrevious).Row
    'Definition Plage de cellule
    Set Col_A = .Range("A1:A" & Last_Row)
    For Each Cellule In Col_A
      Cellule = Cellule & ";"
    Next Cellule
  End With

End Sub


Pour lancer la macro: click gauche sur triangle vert en haut dessous menu Format.
Click gauche sur Excuter dans boite a dialogue(a droite).

Bonne suite

Raymond PENTIER · Answer

Je n'ai pas compris ce que tu veux faire ; tu peux expliquer autrement ?

Inserer symbole sur liste de fichier Excel

3 réponses