A voir également:
- Inserer symbole sur liste de fichier Excel
- Liste déroulante excel - Guide
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
3 réponses
Bonjour,
Bonjour, je veux insérer un symbole " ; "
A droite, a gauche.....???????
Bonjour, je veux insérer un symbole " ; "
A droite, a gauche.....???????
vincent
A DROITE de la colonne A
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
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
