salut,
voila je viens de me lancer sur visual basic, mon pere ma demander de faire un ptit programme qui est le suivant
ca va vous parraitre peut etre basic mais bon !!!
j'ai une feuille excel avec plein de chiffres et je dois faire une macro qui me donnerai le resultat de chaque colonne et a la fin, mais il se peut que j'en rajoute apres qui devras s'ajouter au resultat je vous montre ce que j'ai deja taper mais la je bloque....
Sub TestJuju()
b = 0
For Each c In Range(Cells(1, 1), Cells(1, 1).End(xlToRight))
With c
b = b + 1
Cells(11, b) = 0
Select Case .Value
Case "", 0: .EntireColumn.Hidden = True
Case Else: .EntireColumn.Hidden = False
Rem LaSomme = Application.Sum(.EntireColumn)
Rem a=Cells(1,b);
Rem b$ = Cells(1, b).End(xlAtBottom)
Rem Cells(11, b).FormulaR1C1 = "=SUM(Cells(1, b):.End(xltoright))"
Cells(11, b).FormulaR1C1 = "=SUM(R[-10]C:R[-1]C)"
Rem MsgBox LaSomme
Rem Cells(11, b) = LaSomme
End Select
End With
Next
End Sub
je vous remercie d'avance si vous avez des conseilles !!!!!