VBA Boucle For NExt

[La braise]

Bonjour à tous,

Petite question...

Pourquoi la boucle suivante ne fonctionne pas???

Sub test()
Dim L As Integer
Dim K As Integer
Dim M As Integer
Dim NB_L2 As Long
NB_L2 = ActiveSheet.UsedRange.Rows.Count
K = 7
For L = 7 To NB_L2
If Len(Cells(L, 1)) > 13 Then
M = L - 1
Cells(L, 8).Value = Sum(Cells(M, 8) & ":" & Cells(K, 8))
K = L + 1
End If
Next L
End Sub

Comment intégrer le calcul de la somme que je souhaite???

Je souhaite quand ma condition : Len(Cells(L, 1)) > 13 est vérifiée
que la somme suivante : Sum(Cells(M, 8) & ":" & Cells(K, 8)) se colle dans ma cellule Cells(L, 8)

D'avance merci pour votre aide.

🙂

 

[mromain]

Re : VBA Boucle For NExt

bonjour la braise,

essaye en modifiant cette ligne :
Cells(L, 8).Value = Sum(Range(Cells(M, 8), Cells(K, 8)))

je n'ai pas pu le tester sans fichier...

a+

 

[La braise]

Re : VBA Boucle For NExt

Merci mromain pour ton aide, mais cela ne fonctionne pas...

Rappel du problème :

K = 7
For L = 7 To NB_L2
If Len(Cells(L, 1)) > 13 Then
Cells(L, 8).Value = Sum(Range(Cells(L - 1, 8), Cells(K, 8)))
K = L + 1
End If
Next L

Le résultat est que la macro identifie bien les cellules cibles selon le critère : Len(Cells(L, 1)) > 13
Mais en l'état le résultat est : #NOM?
Excel copie la formule en l'état : Sum(Range(Cells(L - 1, 8), Cells(K, 8)))
mais n'utilise pas les variables.

Avec la bidouille de mromain ,
idem Excel copie la formule telle que netre les " " de la macro mais n'utilsie pas les variables...

SOS... 🙂

 

[PascalXLD]

Re : VBA Boucle For NExt

Bonjour

Excuses moi mais il ne me semble pas qu'on puisse utiliser SUM comme cela en VBA

peut-être avec worksheetfunction.sum

 

[mromain]

Re : VBA Boucle For NExt

re,

essaye en remodifiant cette ligne :
Cells(L, 8).Value = Application.WorksheetFunction.Sum(Range(Cells(M, 8), Cells(K, 8)))

a+[/QUOTE]

 

[La braise]

Re : VBA Boucle For NExt

Môssieur.... PascalXLD,

Merci beaucoup ça marche nickel.... :=))))

Mon code :

For L = 7 To NB_L2
If Len(Cells(L, 1)) > 13 Then
Cells(L, 8).Value = WorksheetFunction.Sum(Range(Cells(L - 1, 8), Cells(K, 8)))
K = L + 1
End If
Next L


Encore merci à ce Forum... LE SEUL VRAI FORUM EXCEL!!!!!

 

[pierrejean]

Re : VBA Boucle For NExt

bonjour La braise

A tester:

[FONT=Times New Roman][SIZE=2]Cells(L, 8).Formulalocal ="=SOMME("  & (Cells(L - 1, 8).address & ":" & Cells(K, 8).address & ")"[/SIZE][/FONT]

Edit : A la bourre moi !!
Salut Pascal
ceci dit la version etant differente .....

 

[PascalXLD]

Re : VBA Boucle For NExt

Edit : A la bourre moi !!
Salut Pascal

Plaisir de te croiser sur un fil 😎