Equivalent #include pour charger les macros au démarrage

Version imprimable

Voir 40 message(s) de cette discussion en une page

dans ton code y pas grand chose a faire:
des This. devant les Worksheets
Code:

1 2 3 4 5 dim xlUp xlUp=-4162 MAX = This.Worksheets("Journal").Range("F65536").End(xlUp).Row This.Application.ScreenUpdating = False This.ActiveCell.Value
l'objet This fait référence à ton classeur. tu as accès à ton classeur et par extension à tout Excel

les constante Excel ne sont pas reconnues vas dans la fenêtre d'exécution et écris:
?xlUp et [ENTER] pour lire la valeur de la constante.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub next_ref() Start = 9 FEUILLE = "Journal" FIN = "F65536" xlUp = -4162 Max = This.Worksheets(FEUILLE).Range(FIN).End(xlUp).Row REF = 0 This.Application.ScreenUpdating = False For i = Start + 1 To Max v = This.Worksheets(FEUILLE).Cells(i, 2) If (v > REF) Then REF = v End If Next This.application.ActiveCell = REF + 1 This.Application.ScreenUpdating = True End Sub

Avec le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub next_ref() dim xlUp xlUp=-4162 MAX = This.Worksheets("Journal").Range("F65536").End(xlUp).Row START = 9 REF = 0 This.Application.ScreenUpdating = False For i = START + 1 To MAX v = This.Worksheets("Journal").Cells(i, 2) If (v > REF) Then REF = v End If Next i This.ActiveCell.Value = REF + 1 This.Application.ScreenUpdating = True End Sub
J'ai l'erreur "1025 : fin d'instruction attendue"

Si je mets en commentaire certaines instructions :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub next_ref() dim xlUp xlUp=-4162 MAX = This.Worksheets("Journal").Range("F65536").End(xlUp).Row START = 9 REF = 0 This.Application.ScreenUpdating = False 'For i = START + 1 To MAX ' v = This.Worksheets("Journal").Cells(i, 2) ' If (v > REF) Then ' REF = v ' End If 'Next i This.ActiveCell.Value = REF + 1 This.Application.ScreenUpdating = True End Sub
j'ai l'erreur "438 : cet objet ne gère pas cette propriété ou cette méthode : 'This.ActiveCell'"

et si je mets l'instrcuction "This.ActiveCell.Value = REF + 1" en commentaire, alors plus d'erreur mais pas de résultat ...

ça ça marche

pas facile de retranscrire de mémoire.
de plus sur des sujets un peut pointu comme ça j'aime bien laisser cogiter ça rentre mieux.
même pour du VBA sa forge l'expérience.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub next_ref()
Start = 9
FEUILLE = "Journal"
FIN = "F65536"
xlUp = -4162
Max = This.Worksheets(FEUILLE).Range(FIN).End(xlUp).Row
REF = 0
This.Application.ScreenUpdating = False
For i = Start + 1 To Max
    v = This.Worksheets(FEUILLE).Cells(i, 2)
    If (v > REF) Then
       REF = v
    End If
Next
This.application.ActiveCell = REF + 1
This.Application.ScreenUpdating = True
End Sub

23/10/2013, 13h25
popi33370

SUPER ça fonctionne :ccool:

Petite question pour comprendre : si je met les valeurs en dur dans l'instruction "Max = This.Worksheets("Journal").Range("F65536").End(xlUp).Row" ça plante

Quelle est la cause ?
23/10/2013, 13h30
Invité

difficile a dire car on a pas de visibilité sur le code.
moi je mets en commentaire les instruction ['] puis je retire le commentaire au fur et a mesure.
tu peux ajouter pour le débogage des MsgBox pour tester des valeurs.
sil le xlUp n'est pas déclaré ça plante c'est une constante Excel: xlUp = -4162

on est en VbScript c'est du Vb mais pas vraiment plus rigide.
23/10/2013, 13h32
popi33370

Le pb venait d'une faute de frappe :aie:

Un grand merci pour ton aide :lahola:
23/10/2013, 14h33
popi33370

J'ai une dernière question : mon code est réparti sur une trentaine de macros appelées chacune depuis un bouton.

Comment faire pour, depuis chaque bouton, appeler la même macro en lui passant en paramètre le nom du code à charger-exécuter, comme par exemple "charger next_ref" où charger() est la macro qui reçoit en paramètre le nom "next_ref" pour charger le code correspondant et l'exécuter.

Ainsi mon code embarqué dans la feuille se réduirait à ces deux seules macros, tout le reste étant en externe.

Merci d'avance

dans un module séparé, tu déclare:

Code:

Public M

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Workbook_Open()
Dim FileNumber As Long, txt As String, F As String
FileNumber = FreeFile
F = ""
Open ThisWorkbook.Path & "\next_ref.txt" For Input As #FileNumber
Do While Not EOF(1)
    Line Input #FileNumber, txt
    F = F & txt & vbCrLf
Loop
Close #FileNumber
Set sc = CreateObject("ScriptControl")
   sc.Language = "VBScript"
   sc.AddObject "This", ThisWorkbook, True
   Set M = sc.Modules.Add("ModuleRD")
   M.AddCode F
End Sub

dans chaque contrôle sur l’événement Click()

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
M.Run "Test1"
End Sub
 
Private Sub CommandButton2_Click()
M.Run "Test2"
End Sub
 
Private Sub CommandButton3_Click()
M.Run "Test3"
End Sub

23/10/2013, 14h54
popi33370

YES SUPER MERCI :ccool: :ccool: :ccool:
24/10/2013, 10h18
popi33370

Avec mon code dans un fichier externe, j'ai plein d'erreurs avec des fonctions qu'il ne reconnait pas, comme par exemple Dir() :

Code:

PDFnext = Dir(REPERTOIRE & "*.pdf")

et il n'est pas possible de faire des déclarations Dim = cela veut-il dire que malgré tout il saura traiter les tableaux avec le bon format selon les données qu'on y mettra ?

Tout cela est nouveau pour moi et j'avoue avoir besoin d'infos.
Peut-être y a-t-il quelque part un tutoriel simple qui explique tout cela ?

merci d'avance

Bonjour,

si il traite les dim pas les type:

Code:

1
2
3
4
5
6
7
dim Mytxt ' le as string est a proscrire.
dim MyTableau()
dim i
redim preserve Tableau(5)
for i= 0 to ubound(Tableau)
a= trim("" & Tableau(i)) 'Converti en string
next

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim t
t = dir("c:\")
For i = 0 To UBound(t)
 
If instr(1,UCase(Trim("" & t(i))) , UCase(".bat"))<>0 Then
MsgBox t(i)
End If
Next
 
Function dir(Rep)
 
Dim t()
Dim i
i = 0
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each f In Fso.GetFolder(Rep).Files
ReDim Preserve t(i)
  t(i) = f.Name
  i = i + 1
Next
set Fso=Nothing
dir = t
End Function

Voir 40 message(s) de cette discussion en une page