Inserer symbole sur liste de fichier Excel
vincent
-
Raymond PENTIER Messages postés 58213 Date d'inscription Statut Contributeur Dernière intervention -
Raymond PENTIER Messages postés 58213 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour, je veux insérer un symbole " ; " à toute les lignes sur un fichier excel d'environ 3600 lignes
Merci d'avance
Merci d'avance
3 réponses
-
Bonjour,
Bonjour, je veux insérer un symbole " ; "
A droite, a gauche.....??????? -
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 -
Je n'ai pas compris ce que tu veux faire ; tu peux expliquer autrement ?