vinnie
XLDnaute Junior
Bonjour à tous,
je débute et en cherchant un peu j'arrive à cela, mais ca ne marche pas, et je ne sais plus comment débloquer !?
...j'ai un tableau à 8 colonnes (de D3 à K3), mais un nombre de lignes variable (Nlignes), et j'essaye de faire une petite macro pour vérifier que chaque ligne du tableau est bien égale à 1, j'ai essayé de m'inspirer de codes utilisant function pour pouvoir utiliser la fonction "somme", mais j'arrive pas au bout !!....quelqu'un saurait-il me débloquer...ou peut etre ya t-il plus simple ?
merci d'avance,
Vinnie
_________
Public Nlignes as Byte
Sub verification()
M = Nlignes + 3
N = L - 2
For L = 3 To M
MsgBox verif
If S <> 1 Then
MsgBox "La ligne" & N & "n'est pas égale à 1"
End If
Next L
End Sub
Function verif(L As Integer)
somme("D" & L, "K" & L) = S
End Function
je débute et en cherchant un peu j'arrive à cela, mais ca ne marche pas, et je ne sais plus comment débloquer !?
...j'ai un tableau à 8 colonnes (de D3 à K3), mais un nombre de lignes variable (Nlignes), et j'essaye de faire une petite macro pour vérifier que chaque ligne du tableau est bien égale à 1, j'ai essayé de m'inspirer de codes utilisant function pour pouvoir utiliser la fonction "somme", mais j'arrive pas au bout !!....quelqu'un saurait-il me débloquer...ou peut etre ya t-il plus simple ?
merci d'avance,
Vinnie
_________
Public Nlignes as Byte
Sub verification()
M = Nlignes + 3
N = L - 2
For L = 3 To M
MsgBox verif
If S <> 1 Then
MsgBox "La ligne" & N & "n'est pas égale à 1"
End If
Next L
End Sub
Function verif(L As Integer)
somme("D" & L, "K" & L) = S
End Function