Discussion :

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[popi33370]

Avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[popi33370]

SUPER ça fonctionne

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 ?

[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.

[popi33370]

Le pb venait d'une faute de frappe

Un grand merci pour ton aide

[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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public M

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[popi33370]

YES SUPER MERCI

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

si il traite les dim pas les type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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