Insertion de code dans une feuille

Version imprimable

19/08/2010, 13h48
babybell

Insertion de code dans une feuille

Bonjour amis du forum
Est-il possible, par macro, d'insérer un code dans une feuille que l’on vient de créer par macro ?
Merci de vos solutions à mes problèmes
19/08/2010, 14h06
fring

Bonjour,

Oui c'est possible, tu as un tutoriel sur la manipulation de l'éditeur VBA par macro à l'adresse ci-dessous. Tu y trouveras un exemple pour ajouter une procédure évènementielle SelectionChange dans la Feuil1 du classeur actif.

http://silkyroad.developpez.com/VBA/VisualBasicEditor/
19/08/2010, 14h09
babybell

Merci fring

Bonne journée
20/08/2010, 11h13
babybell

Bonjour le Forum

J'ai bien trouvé la réponse dans le tuto, mais je bute sur la 1ère ligne :

Code:

With ActiveWorkbook.VBProject.VBComponents("Feuil16").CodeModule

car j'aimerai, plutôt que de spécifier "Feuil16", j'attribue un nom de variable.
La macro que je fais créé à chaque début de mois un onglet qui porte le nom du mois précédent, et c'est dans ce nouvel onglet que je voudrais mettre le code.

S'il existe une soluce, merci de me l'indiquer.
20/08/2010, 11h27
fring
Si la feuille que tu ajoutes se trouve d'office en dernière position, tu peux faire ceci

Code:

With ActiveWorkbook.VBProject.VBComponents(Sheets(Sheets.Count).CodeName).CodeModule

En passant par une variable ça donnerait quelque chose de ce style
Code:

1 2 3 4 5 6 Dim NewSh As Worksheet Set NewSh = Sheets.Add NewSh.Move after:=Sheets(Sheets.Count) With ActiveWorkbook.VBProject.VBComponents(NewSh.CodeName).CodeModule
20/08/2010, 12h49
babybell

Encore merci fring, ça fonctionne très bien.

bon après-midi
12/10/2010, 08h32
babybell

Bonjour

Je rencontre un problème sur le code qui fonctionnait très bien sous excel 2000.
En effet, je viens de passer sous Excel 2003, et un message d'erreur apparait :

"Erreur d'excécution '9':
L'indice ne correspond pas à la sélection"

y aurait-il un rapport avec le changement de version d'Excel ?

Merci de m'aider.
12/10/2010, 09h37
Didier Gonard

Bonjour,

As-tu pensé à activer les bonnes références ?

cordialement,

Didier
12/10/2010, 10h13
babybell

Merci Ormonth de me répondre.

Voici les références présentes dans mon appli :

Visual Basic For Applications
Microsoft Excel 11.0 Object Library
OLE Automation
Microsoft Office 11.0 Object Library
Microsoft Forms 2.0 Object Library
12/10/2010, 10h40
Didier Gonard

Dans le Tutoriel de Silkyroad cité par Fring, il est bien précisé :

Citation:

La majeur partie des procédures utilisées nécessite d'activer la référence Microsoft Visual Basic for Applications Extensibility 5.3.

as-tu essayé ?

cordialement,

Didier
12/10/2010, 11h04
babybell

Cela ne fonctionne pas mieux, mais lorsque je fais "Débogage", l'appli se poursuit lorsque je fais le pas à pas(F8) puis "continuer".

Et si tu mettais ton code (entre balises)

Ceci est OK sous 2003 (code Silky et Fring)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub testencours()
Dim NewSh As Worksheet
 
Set NewSh = Sheets.Add
NewSh.Move after:=Sheets(Sheets.Count)
 
 
With ActiveWorkbook.VBProject.VBComponents(NewSh.CodeName).CodeModule
    X = .CountOfLines
    .InsertLines X + 1, "Private Sub Worksheet_SelectionChange(ByVal Target As Range)"
 
    'Chr(38) permet d'insérer le symbole & dans la procédure.
    .InsertLines X + 2, _
        "MsgBox ""La cellule sélectionnée: """ & Chr(38) & " Target.Address,,""Message"" "
    .InsertLines X + 3, "End Sub"
End With
End Sub

voois si Ok chez toi..

cordialement,

Didier

12/10/2010, 12h34
babybell

Malheureusement, le résultat est toujours le même. Cela se plante, je fais Débogage, je déroule pas à pas, j'ai comme message que je ne peux travailler en mode arrêt, je fais continuer et cela fonctionne.
12/10/2010, 12h41
mercatog

Le message est explicit
Tu ne peux pas lancer ta sub à partir de l'éditeur vba en pas à pas.
12/10/2010, 12h57
babybell

Merci mercatog, mais je le savais. Le problème est que mon code ne s'exécute que comme cela, et je ne comprends pas pourquoi.
12/10/2010, 13h03
babybell

Je comprends de moins en moins. Je viens de mettre un

Code:

Stop

devant mon code.
La procédure s"exécute jusqu'au STOP, puis quand je clique pour continuer, cela fonctionne.
17/10/2010, 15h46
AlainTech

Ca sent la nécessité d'un DoEvents...
17/10/2010, 23h00
babybell
Je viens d'essayer un truc bête, mais ça à marché. Juste avant l'instruction qui plante:

Code:

With ActiveWorkbook.VBProject.VBComponents(Sheets(Sheets.Count).CodeName).CodeModule

j'ai fait :
Code:

1 2 On Error GoTo 1 1:
bizarre !
18/10/2010, 06h27
Invité

Bonjour

Une partie de ton code se déroule trop vite, il faut (comme te l'indique AlainTech :coucou:) utiliser l'instruction DoEvents à la place de ce que tu as testé de faire.

C'est comme si tu voulais fermer ton cahier alors que tu n'as pas fini d'écrire, cette instruction va d'abord bloquer la fermeture pour être sûr que tu ais fini d'écrire avant de fermer le cahier.

Philippe