Créer une feuille et y insérer des macro
Fermé
boubou
-
20 juin 2013 à 22:23
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 21 juin 2013 à 15:19
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 21 juin 2013 à 15:19
A voir également:
- Créer une feuille et y insérer des macro
- Insérer une vidéo sur powerpoint - Guide
- Créer un compte google - Guide
- Créer un lien pour partager des photos - Guide
- Comment créer un groupe whatsapp - Guide
- Créer une adresse hotmail - Guide
3 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 779
20 juin 2013 à 23:42
20 juin 2013 à 23:42
Regarde ce tutoriel :
https://silkyroad.developpez.com/VBA/VisualBasicEditor/#LIV
https://silkyroad.developpez.com/VBA/VisualBasicEditor/#LIV
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 779
21 juin 2013 à 15:19
21 juin 2013 à 15:19
Remplace "Feuil5" par
Worksheets("Ma Feuille").CodeName
Worksheets("Ma Feuille").CodeName
Excellent. Mon nouveau code
With ActiveWorkbook.VBProject.VBComponents("Feuil5").CodeModule
'Chr(38) permet d'insérer le symbole & dans la procédure au besoin.
X = .CountOfLines
.InsertLines X + 1, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
.InsertLines X + 2, "Ligne = selection.Row"
.InsertLines X + 3, "If ligne > 2 then"
.InsertLines X + 4, " Range(""C1"").value = Range(""A"" & Ligne).value"
.InsertLines X + 5, "Else"
.InsertLines X + 6, " Range(""C1"").value = """""
.InsertLines X + 7, "End if"
.InsertLines X + 8, "End Sub"
End With
Ma nouvelle question.
Je ne suis pas très à l'aise avec VBComponents.
Si au lieu de "Feuil5" quel serait la façon d'assigner une feuille par le nom de son d'onglet ?
Les feuilles sont créé dynamiquement, au moment de créer la macro, je sais le nom de l'onglet, mais j'ignore à quel # de feuille je suis rendu.
With ActiveWorkbook.VBProject.VBComponents("Feuil5").CodeModule
'Chr(38) permet d'insérer le symbole & dans la procédure au besoin.
X = .CountOfLines
.InsertLines X + 1, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
.InsertLines X + 2, "Ligne = selection.Row"
.InsertLines X + 3, "If ligne > 2 then"
.InsertLines X + 4, " Range(""C1"").value = Range(""A"" & Ligne).value"
.InsertLines X + 5, "Else"
.InsertLines X + 6, " Range(""C1"").value = """""
.InsertLines X + 7, "End if"
.InsertLines X + 8, "End Sub"
End With
Ma nouvelle question.
Je ne suis pas très à l'aise avec VBComponents.
Si au lieu de "Feuil5" quel serait la façon d'assigner une feuille par le nom de son d'onglet ?
Les feuilles sont créé dynamiquement, au moment de créer la macro, je sais le nom de l'onglet, mais j'ignore à quel # de feuille je suis rendu.