Inserer symbole sur liste de fichier Excel
Fermé
vincent
-
12 mars 2012 à 16:13
Raymond PENTIER Messages postés 58406 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 5 mai 2024 - 13 mars 2012 à 01:11
Raymond PENTIER Messages postés 58406 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 5 mai 2024 - 13 mars 2012 à 01:11
A voir également:
- Inserer symbole sur liste de fichier Excel
- Liste déroulante excel - Guide
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Insérer signature word - Guide
3 réponses
f894009
Messages postés
17187
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 mai 2024
1 704
12 mars 2012 à 17:27
12 mars 2012 à 17:27
Bonjour,
Bonjour, je veux insérer un symbole " ; "
A droite, a gauche.....???????
Bonjour, je veux insérer un symbole " ; "
A droite, a gauche.....???????
f894009
Messages postés
17187
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 mai 2024
1 704
12 mars 2012 à 19:00
12 mars 2012 à 19:00
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
Raymond PENTIER
Messages postés
58406
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
5 mai 2024
17 100
13 mars 2012 à 01:11
13 mars 2012 à 01:11
Je n'ai pas compris ce que tu veux faire ; tu peux expliquer autrement ?
Modifié par vincent le 12/03/2012 à 17:32