Bonjour,

je suis nouveau sur ce forum,

je me remet sur VB, je suis un peu touche à tout mais surtout pas expert . . .

J'ai fait il y a longtemps des macros et modules access ainsi qu'un programme de transfert automatique FTP (upload / download ) sous VB

Bon voilà pour l'entrée en matière :-)

Comme le titre l'indique j'essaie d'afficher dans une msgbox le calcul d'une somme, rien d'exceptionnel.

Je vous envoie un extrait de mon code :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub CommandButtonFiltrer_Click()
 
Dim Lig_Deb           As Long
Dim DerLig            As Long
Dim Col               As String
Dim Lib               As String
Dim Plage             As Range
 
Col = "J"
Lig_Deb = 2
DerLig = Sheets("TABLEAUX FILTRES").Cells(Lig_Deb, Col).End(xlDown).Row
 
Set Plage = Application.InputBox(prompt:="totoro ", Title:="Helmut ", Type:=8)
'Set Plage = [Col & Lig_Deb & ":" & Col & DerLig]
'MsgBox (Range(Col & Lig_Deb & ":" & Col & DerLig))
'Set Plage = Sheets("TABLEAUX FILTRES").Range(Col & Lig_Deb & ":" & Col & DerLig)
 
ActiveWorkbook.Names.Add Name:="Plage", RefersToR1C1:=Plage
 
Lib = "'TABLEAUX FILTRES'!"
 
MsgBox (Lib & Plage.Address(False, False))
 
'Lib = Lib & Plage.Adress(False, False)
 
Worksheets("FILTRER LES DONNEES").Activate
 
Cells(1, 1).Select
 
'ActiveCell.FormulaR1C1 = "=SOMME(" & Lib & ")"
 
ActiveCell.Formula = "=sum(" & Lib & Plage.Address(False, False) & ")"
                          'RefersToR1C1:="=Param!R1C1:R" & DerLig & "C1"
                          '=SOMME('TABLEAUX FILTRES'!J2:J88)
 
MsgBox "Le nombre de boîtes aux lettres Iris cumulées est de :" & ActiveCell.Value
 
End Sub
En gros c'est le paramètrage de la plage qui me pose souci :

Je n'arrive pas à lui faire comprendre correctement :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set Plage = Sheets("TABLEAUX FILTRES").Range(Col & Lig_Deb & ":" & Col & DerLig)
ou

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set Plage = [Col & Lig_Deb & ":" & Col & DerLig]
Bon je sais cela doit être trés simple mais pour l'instant je bute.

Si quelqu'un peut me conseiller un bouquin bien complet sur VBA EXCEL . . .

J'aurais bien d'autres questions mais on va commencer par celle là ;-)

Merci beaucoup pour toute aide