[VBA&EXCEL03][done ]additionner plusieurs sheets mais pas les charts

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA&EXCEL03][done ]additionner plusieurs sheets mais pas les charts

sakuraba

bonjour,

je voudrais additionner toutes les cellules B10:B25 de toutles mes feuilles peut importe leurs noms mais j ai des graphiques et faire la somme dans la feuille Sheets("RECAPITULATIF" )

merci

Code :

Sub TotalB()
Dim x
For x = 10 To 25
Dim i, PrixHT
PrixHT = 0
For i = 3 To Worksheets.Count
If TypeName(Sheets(i)) = Chart Then
Next i
Else
PrixHT = PrixHT + Sheets(i).Range("B" & x).Value
Next i
Sheets("RECAPITULATIF" ).Activate ' Attention ta feuille total doit rester en position 1
Range("B" & x).Value = PrixHT
End If
Next x
End Sub

Message édité par sakuraba le 07-12-2005 à 17:33:54

Publicité

sakuraba

un peu d aide serait la bienvenue

watashi

La démotivation : JAMAIS !

Salut sakuraba,

pour moi il faut commencer ta boucle par l'activation des feuilles :
for i =3 to worksheets.count
Ensuite un test pour exclure les feuilles de graph, éventuellement par leur nom (if worksheets(i).name.... ou left(worksheets(i).name)) cel a dépendent de tes nome de feuille. Je ne sais pas s'il y a un type pour les worksheets. ensuite tu calcule ou pas si la celule choisie et vide ou pleine

Vois si ça te suffit sinon donnes nous un peu plus d'infos sur les noms de feuilles

Message édité par watashi le 07-12-2005 à 16:16:05

sakuraba

j ai utilisé la fonction

Code :

If TypeName(Sheets(i)) = "Chart" Then

pas de probleme avec donc

watashi

La démotivation : JAMAIS !

Code :

Sub TotalB()
Dim x as integer, i as integer, PrixHT as currency
x=10
For x = 10 To 25
i=3
PrixHT = 0
'Calcul de la somme de Bx
For i = 3 To Worksheets.Count
If TypeName(Sheets(i)) <> Chart and Sheets(i).Range("B" & x).Value<>"" Then
PrixHT = PrixHT + Sheets(i).Range("B" & x).Value
End if
Next i
Sheets("RECAPITULATIF" ).Activate
Range("B" & x).Select
activecell.Value = PrixHT
Next x
End Sub

Le seul prolème que j'ai vu a ton code était le positionement du end if qui était trop loin. J'ai pas de quoi tester ce soir (apple @home). Mais dis moi si tu as un autre problème
note j'ai ajouté un contrôle sur la valeur de Bx pour que l'erreur des somme avec les vide ne recommences pas comme la dernière fois

bon courage

edit : j'avais pas vu que t avais mis done lol

Message édité par watashi le 07-12-2005 à 18:44:51

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

sakuraba

merci watashi

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA&EXCEL03][done ]additionner plusieurs sheets mais pas les charts

Sujets relatifs
[ACCESS] plusieurs ligne d'update dans une requete	Ecriture de formule via VBA
background en plusieurs parties	Fermer Acrobat reader automatiquement [VBA]
[VBAcEXCEL03][DOne] Faire la SUM des cellules qui ne sont pas en gras	inserer plusieurs clips avec attachmovie
Aide sur Projet VBA Excel	Combobox ajouter des valeurs [VBA ACCESS]
Code VBA permettant de supprimer un faux message d'erreur	[VBA]Excel - Box de confirmation
Plus de sujets relatifs à : [VBA&EXCEL03][done ]additionner plusieurs sheets mais pas les charts

Page générée en 0.045 secondes