Bonjour,
Un fichier joint permettrait de répondre le plus précisément possible.
En attendant pour la première question, je vous propose une fonction personnalisée.
Dans la première cellule de la colonne, saisissez cette formule =CptBV(AF6) , AF6 = la dernière cellule de la ligne 6 si la première ligne est la 6ème du tableau, puis tirez vers le bas.
et dans un module standard, copiez ce code
Option Compare Text
Function CptBV(DerCel As Range) As Long
For i = DerCel.Column To 5 Step -1
If Cells(ActiveCell.Row, i) <> "N" Then
If Cells(ActiveCell.Row, i) <> "" Then Cpt = Cpt + 1
Else
CptBV = Cpt
Exit Function
End If
Next i
End Function
Pour la 2ème question, déposez un fichier similaire sans données confidentielles.
Cdlt