Discussion :

[aziz1015]

Bonjour,

J'aimerais savoir quelle est la différence entre Worksheets("").Range et Sheets("").Range !

En fait, j'ai créé une fonction qui calcule les éléments d'une colonne après un filtre :

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
Sub Calcul_EngClientOk()
 
Dim ListeTitre()
Dim ListeParam()
Dim DateDebut As Date
Dim DateFin As Date
Dim Nbl, St As Integer
Dim ShSources As Worksheet
 
Mt = Month(Date) - 1
DateDebut = "01/01/" & Year(Date)
DateFin = "01/" & Month(Date) & "/" & Year(Date)
 
Worksheets("tarifé 2015").Activate
Set ShSources = ThisWorkbook.Worksheets("tarifé 2015")
Nbl = Worksheets("tarifé 2015").Range("A1").CurrentRegion.Rows.Count
 
' on boucle sur chaque colonne cherchée ' et on filtre sur son paramètre dédié
 
 
        Set c = Nothing
        Set c = ShSources.Rows(1).Find("Date de réponse demandée", , xlValues, xlWhole)
        If Not c Is Nothing Then ShSources.Range("A1").AutoFilter c.Column, ">=" & DateDebut, xlAnd, "<" & Format(DateFin, "mm/dd/yyyy")
 
        Set e = Nothing
        Set e = ShSources.Rows(1).Find("DELAI CLIENT", , xlValues, xlWhole)
        If Not e Is Nothing Then ShSources.Range("A1").AutoFilter e.Column, "1"
 
        Set d = Nothing
        Set d = ShSources.Rows(1).Find("Nombre", , xlValues, xlWhole)
        If Not d Is Nothing Then M = Application.WorksheetFunction.Subtotal(9, Range(Cells(2, d.Column), Cells(Nbl, d.Column)))
 
 
        ThisWorkbook.Worksheets("eng_client").Range("D2").Value = M
        Sheets(5).Range("D2").Value = M
 
End Sub

Mais :

Code :

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

1
2
3
4
'ça ne fonctionne pas
        ThisWorkbook.Worksheets("eng_client").Range("D2").Value = M
'ça fonctionne :
        Sheets(5).Range("D2").Value = M

Ce qui m'amène à demander quelle est la différence et aussi comment pourrais je utiliser le nom de la feuille comme indice de la feuille pour récupérer les valeurs ?

Merci d'avance pour votre aide

[clementmarcotte]

Bonjour,

Bonjour,

Mais :

Code :

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

1
2
3
4
 
 
'ça ne fonctionne pas
        ThisWorkbook.Worksheets("eng_client").Range("D2").Value = M

Cela devrait marcher à la condition que le classeur qui contient la macro (ThisWorkBook) contienne vraiment une feuille qui s'appelle vraiment eng_client. Si eng_client est une variable (je n'ai pas regardé), il faut enlever les guillemets


Tu peux aussi essayer cette variante:

Code :

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

1
2
3
4
5
6
dim UneFeuille as worksheet
dim UneCellule as range
dim UneValeur as double
set UneFeuille = ThisWorkbook.sheets("eng_client")
set UneCellule=UneFeuille.range("D2")
UneValeur = UneCellule.value

D'une manière plus générale, il faut faire une certaine différence entre les objets sheet et worksheet.

Un objet sheet comprend tous les objets qu'Excel peut considérer comme une feuille. On parle d'une feuille de calcul, une feuille de macros Excel 4-5, une feuille graphique et peut-être d'autres types de feuille que j'ignore.

Un objet Worksheet est une feuille de calcul uniquement. Donc un classeur avec 3 feuilles de calcul et une feuille graphique contient 4 objets Sheet, mais 3 objets Worksheet.

Tant qu'il n'y a que des feuilles de calcul dans un classeur, on peut utiliser indifféremment Sheet ou Worksheet. Mais dès que le classeur contient des types différents de feuilles, là, il faut faire plus attention.

[aziz1015]

Merci, cela marche effectivement, je ne sais pas pourquoi ça ne marchait pas ! J'ai supprimé la feuille et recréé par la suite une feuille avec le même nom et ça passe ! Merci pour vos précisions sur la différence !