Raja a écrit :
Bonjour,
Est-ce ça te va ?
Option Base 1
Option Explicit
Sub variables()
Dim var() As Integer, i As Integer, nb As Integer, cel As Range
nb = Application.CountIf(Range("A:A"), "Ballon")
i = 1
ReDim var(nb)
For Each cel In Range("A4:A" & Range("A" & Rows.Count).End(xlUp).Row)
If cel = "Ballon" Then
var(i) = cel.Offset(0, 1)
i = i + 1
End If
Next cel
For i = 1 To UBound(var)
MsgBox var(i)
Next i
End Sub
Merci à toi, je me demande, est-ce que c'est possible d'addition deux données et récupérer la somme dans la variable ? Par exemple faire la somme de ballon + raquette pour chacun des trois tableaux ?
Merci