[VBA-E]souci avec un programme

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA-E]souci avec un programme

cufy59

bonjour a tous
je debute dans la programmation en VBA et je n'arive pas a trouver l'ereur dans mon programme
pouvez vous m'aidez svp
voici mon prog:

Code :

Option Explicit
Dim j As Integer
Dim nbrptdata As Integer
Dim modele As String
Dim ws As Worksheet
Sub energie()
j = 0
nbrptdata = 2476
For Each ws In Worksheets
If ws.Name = ("data" ) Then
GoTo 1
Else
ws.Select
modele = ws.Name
Range("AA4" ).FormulaArray = "=SUM(J2:J " & 1 + nbrptdata & " )"
Range("AA5" ).FormulaArray = "=SUM(k2:k " & 1 + nbrptdata & " )"
Range("AA4:AA5" ).Cut
Sheets("data" ).Select
j = j + 4
Range("I" & j).Select
ActiveSheet.Paste
Range("G" & j).Value = "bilan " & modele
Range("G" & j).Interior.ColorIndex = 3
Range("H" & j).Value = "energie elec"
Range("H" & j).Interior.ColorIndex = 6
Range("H" & j + 1).Value = "energie meca"
Range("H" & j + 1).Interior.ColorIndex = 6
Range("H" & j + 2).Value = "eff tot"
Range("H" & j + 2).Interior.ColorIndex = 6
Range("I" & j + 2).Value = Range("F" & j) / Range("F" & j + 1)
End If
1: Next
End Sub

Mon programme doit calculer sur la feuil2 et 3 la somme des nombres de la colone J et K et mettre le resultats sur la feuille1 selon une disposition
le nombre de ligne des 2 colonne est variant et depend de nbrptdata (Ici je l'initialise a 2476 mais normarlent c'est un autre prog qui le calcul)

le prog bloque quand il arrive sur la ligne 19
Mais je ne comprend pas pourquoi

je vous remercie de votre atention

Publicité

kiki29

Vire cet immonde GOTO

For Each ws In Worksheets
If ws.Name <> ("data" ) Then
ws.Select
modele = ws.Name
Range("AA4" ).FormulaR1C1 = "=SUM(J2:J" & (1 + nbrptdata) & " )"
Range("AA5" ).FormulaR1C1 = "=SUM(k2:k" & (1 + nbrptdata) & " )"
Range("AA4:AA5" ).Cut
....

cufy59

merci pour ta reponse

j'ai essayé le formulaR1C1 mais il ne fonctionne pas, je pensais que cette formule s'utilisai avec des R[1]C[3] par exemple dans les parenhese. dis moi si je me trompe.
Par contre j'ai trouver la solution :
Range("AA4" ).FormulaLocal = "=SOMME(J2:J" & 1 + nbrptdata & " )"
Range("AA5" ).FormulaLocal = "=SOMME(k2:k" & 1 + nbrptdata & " )"

SUM et SOMME se differncie avec la version anglaise ou francaise de excel

merci de ton attention

kiki29

Affirmataf j'ai été un peu trop rapide dans ma réponse ...
FormulaLocal pour langue locale et séparateur de liste local
Formula pour fonctions anglaises et séparateur de liste anglais

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA-E]souci avec un programme

Sujets relatifs
Appeller un programme en html/javascript	programme utilisant API Windows et GNU Scientific Librairy
Petit programme en VBA... besoin d´aide	[VBA] Valeur maximale d'une sélection
Executer un programme en C via PHP	Code VBA ouverture fichier!!
Que fait mon programme ?	Aide sur VBA Excel
Besoin d'aide pour un petit programme de rien... :)
Plus de sujets relatifs à : [VBA-E]souci avec un programme

Page générée en 0.043 secondes