Comprend pas l'erreur, Formula= var (as variant ou string)

youki

XLDnaute Occasionnel
Bonjour à tous et à toutes,
j'ai tapé un ptit bout de code:
Code:
'--------------------------------------------------
'FONCTION DE TOTAL
'--------------------------------------------------
Sub total()

'Numero de départ =  a partir de là ou il faut faire la somme
Dim numeroDeDepart As Long
Dim numeroArret As Long
Dim numeronouvo As Long
Dim haut As Variant
Dim bas As Variant
Dim youki As String


numeroDeDepart = premiereLigne.Row


'Bricolage pour eviter les calculs sur des strings
For y = 8 To 28

If y = 9 Then
y = 12
End If

If y = 17 Then
y = 19
End If
If y = 20 Or y = 21 Then
y = 22
End If
numeronouvo = numeroDeDepart
youki = ""
For i = 6 To (numeroDerniereLigne - numeroDeDepart)
If premiereLigne.Offset(i, 0) = "" Then
numeroArret = premiereLigne.Offset(i, 0).Row + 1
haut = Cells(numeronouvo, y).Address
bas = Cells(numeroArret, y).Address
youki = youki & haut & ":" & bas & ";"
numeronouvo = numeroArret + 1
End If
haut = Cells(numeronouvo, y).Address
bas = Cells(numeroDerniereLigne, y).Address
Next i

youki = youki & haut & ":" & bas
youki = "=sum (" & youki & ")"

With Cells(numeroDerniereLigne + 1, y)
'Ajout de la valeur
.Formula = youki // ICI LE PROBLEME
End With
bas = 0
haut = 0
Next y

Ce code me sert à faire une somme sur un ensemble en excluant les valeurs correspondant a une ligne sans texte dans la colonne A (d'ou le test premiereLigne.Offset(i, 0) = "" Then).

A la limite ce n'est pas bien grave de ne pas saisir tout le programme, mais j'ai cependant un problème et je suis sur que vous allez trouver la raison en 10 secondes.
Apres le .Formula j'insere la variable youki (j'ai essyé en string ou en variant rien y fait). Quand je fais du pas à pas la valeur de youki est impeccable (sous la forme "=sum(H1:H2;H3:H67)") or il semble que je ne puisse pas mettre ma variable youki en face de .Formula: ils ne se comprennent pas.
J'ai une erreur '1004' donc si vous saviez pourquoi cela m'aiderait bien.

D'avance merci.
 

Statistiques des forums

Discussions
312 875
Messages
2 093 147
Membres
105 639
dernier inscrit
crobyx