Pb de code pour additionner des données

[Hugues]

Bonjour Le Forum,

Dans un classeur j'ai différente feuille dont deux s'appellant :

- Synthése
- Consolidation

La feuille consolidation sert a additionner des données placées dans les mêmes cellules de toutes les autres feuilles à l'exception de la feuille synthése.
Le code est le suivant :

For Each WS In ThisWorkbook.Worksheets
If WS.Name <> "synthése" And "consolidation" Then

TotE24 = TotE24 + WS.Cells(24, 5)
TotF24 = TotF24 + WS.Cells(24, 6)
TotG24 = TotG24 + WS.Cells(24, 7)
End If

Next
Sheets("consolidation").Cells(24, 5) = TotE24
Sheets("consolidation").Cells(24, 6) = TotF24
Sheets("consolidation").Cells(24, 7) = TotG24

End Sub

Avez vous une idée sur le probléme. Je pense qu'il provient de "If WS.Name <> "synthése" And "consolidation"

Merci par avance pour votre aide,

Hugues

 

[GIBI]

Re : Pb de code pour additionner des données

Bonsoir,


cela vient de l'écriture du test il faut répéter WS.name

If WS.Name <> "synthése" And WS.Name <> "consolidation" Then


à toi de vérifier

GIBI

 

[Paritec]

Re : Pb de code pour additionner des données

Bonsoir Gibi, Hugues le forum,
bah trop tard, alors bonne soirée
a+
Papou

 

[Raja]

Re : Pb de code pour additionner des données

Bonsoir,

Remplace la ligne suivante :

If WS.Name <> "synthése" And "consolidation" Then

par :

If WS.Name <> "synthése" Or WS.Name <> "consolidation" Then

édit : Salut Gibi, Paritec

 

[Hugues]

Re : Pb de code pour additionner des données

Merci à vous tous.
Le fonctionnement est impeccable.

Hugues