Claudinedu13
XLDnaute Junior
VB:
Sub BoutonAddition()
Dim fh As Worksheet, dico As Object
Dim I&
Set fh = Sheets("Feuil1")
Set dico = CreateObject("Scripting.Dictionary")
For I = 2 To fh.Range("A" & Rows.Count).End(xlUp).Row
If fh.Range("B" & I) = "D231201" Then
MsgBox fh.Range("F" & I)
' Additionner fh.Range("F" & I)
End If
Next I
End Sub
Bonjour,
J'apprends au fil de mes besoins, j'ai adapté ce code trouvé sur le net pour mon cas, mais
1/ Comment additionner tous les fh.Range("F" & I) obtenus d"une boucle for ?
2/ "Dans For I = 2" à quoi correspond le 2 ?
Merci