Discussion :

[babybell]

Bonjour
Je n'arrive pas à trouver dans le forum la solution à mon problème.
J'ai un classeur avec 52 onglets, un par semaine. Dans chaque onglet, j'ai une cellule , par toujours la même, avec comme titre "MONTANT" et en dessous, il y a un chiffre.
J'aimerai, dans un 53 ème onglet, totaliser le montant calculé de tous les montants des 52 onglets.
J'arrive à défiler les 52 onglets avec

Code :

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

1
2
3
For each Feuille in sheets
Feuille.activete
next

mais je n'arrive pas à faire une recherche dans chaque feuille de la cellule "MONTANT" pour totaliser la somme qui se trouve en dessous.

merci de votre aide

[drakkar_agfa]

Bonjour,

Est-ce qu'une seule cellule peut contenir "MONTANT"?
Si oui, utilise le .Find pour trouver la cellule et utilise le Offset pour décaler d'une cellule vers le bas.

Le tout dans ton For each Feuille in sheets et tu augmente une variable Total à chaque feuille!

Si tu as des questions, n'hésites pas!

[babybell]

Merci de ta réponse, mais je connais pas le .find
ça marche comment ?

[drakkar_agfa]

Regarde ce sujet.
http://www.developpez.net/forums/d67...alogue-saisie/
(message #9)

Il a un exemple avec le Find et le Offset.

Regarde ça et regarde si tu peux commencer un bout de code. On verra pour la suite!

[babybell]

Je te remercie du coup de main.
Voici le code je j'ai fait

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
Sub TestInputBox()
Dim shA As Worksheet
Dim c As Range
For Each feuille In Sheets
feuille.Activate
Set shA = ActiveSheet
With shA.Range("A:ZZ")
Set c = .Find("Montant", LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
total = c.Offset(1, 0).Value
total_général = total_général + total
End If
End With
Next
End Sub

charge à moi de coller le résultat là où je veux. Qu'en penses-tu ?

[drakkar_agfa]

En regardant vite (sans tester) tout parrait bien.
Mais au lieu de

Code :

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

1
2
total = c.Offset(1, 0).Value
total_général = total_général + total

tu peux seulement mettre

Code :

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

total_général = total_général + c.Offset(1, 0).Value

Et la prochaine fois, essais de ne pas utiliser d'accents pour les variable et les noms de procédure

[babybell]

OK, merci et bonne soirée