Discussion :

[ledevil]

Bonjour à tous,

J'ai une erreur 400 avec une macro que je tente d'écrire (je suis encore débutant en VBA, excusez-moi d'avance s'il y a des erreurs aberrantes dans le code ). Pour vous expliquer, la macro doit regarder quelles cellules de la plage F10:F100 contiennent la valeur "1", puis faire en sorte que la cellule F107 contienne la somme des cellules de la ligne supérieure aux cellules contenant "1".
Par exemple, si dans F10:F100 on a F45 et F80 qui contiennent "1", alors F107=F44+F79.

Je suppose que j'ai une erreur sur la formule des sommes, en fait je ne trouve pas comment écrire en VBA la somme de plusieurs offset(-1,0) lorsque les cellules sont égales à "1".

Si quelqu'un aurait la solution, en vous remerciant d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub weightF()
 
Dim UneCellule As Range
 
Range(F10, F100).Select
 
For Each UneCellule In Selection
    If UneCellule.Value = 1 Then
       Cells(107, F).Value = Sum(UneCellule.Offset(-1, 0))
    End If
Next
 
End Sub

[antonysansh]

Problème avec Range et Cells :
Cells(i,j), i et j sont numériques c'est la cellule ligne i et colonne j
Range(cellule_en_texte) tu peux utiliser F10 dans ton range mais entre " donc Range("F10")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub weightF()
    Dim UneCellule As Range
        For Each UneCellule In Range("F10:F100")
            If UneCellule.Value = 1 Then
               Cells(107,6).Value = Range("F107").Value + UneCellule.Offset(-1, 0)
            End If
        Next
End Sub

Cells(107,6) et Range("F107") sont en fait le même range.

[PMO2017]

Bonjour,

Essayez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub weightF()
Dim UneCellule As Range
 
For Each UneCellule In Range("F10:F100")
  If UneCellule.Value = 1 Then
    Cells(107, 6).Value = Cells(107, 6).Value + (UneCellule.Offset(-1, 0))
  End If
Next
End Sub

[ledevil]

Merci beaucoup à vous deux !

[Marc-L]

Bonjour, bonjour !

Et dire qu'une simple formule de calculs fait l'affaire, code inutile !

Consulter l'aide d'Excel de SOMME.SI, SOMMEPROD par exemple.

Et si vraiment un code est nécessaire, utiliser une fonction dans le code s'avère souvent plus judicieux qu'une boucle
et nécessite une seule ligne de code !

Penser Excel avant VBA !

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse