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
Voici une solution.
A la place de mettre un message, j'ai mis une couleur de fond rouge sur la ligne en anomalie car si tu as beaucoup de lignes en erreur, cela risque d'être un peu fastidieux de cliquer à chaque fois sur le bouton OK du message.
Sub dernièreligneFeuille()
d = [D3:K65000].Find("*", , , , xlByRows, xlPrevious).Row
For i = 3 To d
If Application.Sum(Cells(i, 4).Resize(, 8)) <> 1 Then MsgBox "Ligne:" & i & " pas égale à 1"
Next i
End Sub
merci c'est quelque chose qui ressemble beaucoup a ca que je souhaitais !
...je
....par contre en fait je récupère une autre variable publique pour la dernière ligne !! mais je comprends et peux modifier !..et il fallait juste utiliser sum ??
dans l'éditeur vba et le tableur, ce ne sont pas les meme syntaxes ??
j'essaye d'intégrer à mon fichier et je vous dis !!
merci cbea
merci aussi Jb, mais j'avoue je saisie un peu moins la syntaxe...meme si elle a l'air simple !!
merci beaucoup, je l'ai adapté comme je voulais à mon fichier et ca marche super bien !!
merci beaucoup les garcons !!
il ne me reste plus qu'à trouver commment dévérouiller une plage de cellule et j'aurais pile poil ce que je veux !!...mais je crois avoir vu ca dans les archives !!