Explication sur un morceau de text qui fonctionne

Bonjour

je n'arrive pas à comprendre une partie du code que l'on m a réaliser

pouvez vous m'aider à le traduire la ligne violet

surtout le L6:P6

Merci beaucoup

Dim Der_Lig As Long, Sens As Boolean, Msg

With Sheets("Saisie A KVB")

Der_Lig = .Range("A" & Rows.Count).End(xlUp).Row

If .Range("J" & Der_Lig).Value = "" Then

' test s'il y a bien les données pour le nombre de balise

If Application.WorksheetFunction.CountIf(.Range("L6:P6"), ">0") <= .Cells(Der_Lig, 4).Value Then

Msg = MsgBox("Attention ! Vous avez indiquez un nombre de balise supérieur au nombre de données du tableau jaune !" & Chr(10) & "Voulez vous continuer ?", vbYesNo, "Manque d'information sur les balises")

If Msg <> 6 Then Exit Sub

End If

Bonjour,

If Application.WorksheetFunction.CountIf(.Range("L6:P6"), ">0") <= .Cells(Der_Lig, 4).Value Then

Application.WorksheetFunction.CountIf ... dénombrer la plage selon la condition.

La condition ( ">0" ) veut dire plus grand que 0.

Si le résultat est plus petit ou égale ( <= ) le contenu de la dernière cellule non vide de la colonne 4 ("D"), ben exécute la suite ( ce qui est après le "Then" ).

ric

Merci Ric

mais L6:P6

sa doit correspondre à un tableau mais je ne vois pas ou a autre as tu une idée

Merci

Bonjour,

C'est une plage de cellule : de la cellule L6 jusqu'à la cellule P6.

ric