Code VBA : Trouver la 1ère ligne disponible (avec conditions)

[Webperegrino]

Bonsoir le Forum,

Dans mon UserForm ENTRÉES, j’arrive très bien à valider mes données au bon endroit dans la base ENTRES avec la codification suivante :
ligne = Sheets("Référentiel des Saisies ENTRÉES").[B2610].End(xlUp).Row + 1
(entre B11 et B2610 se placent des dates jj/mm/aaa)

Je n’arrive pas appliquer le même code dans mon UserForm SORTIES, car il faut trouver la 1ère ligne avec les cellules B, F, L P en même temps vides.
Auriez-vous une solution pour trouver une formule du style :

ligne = Sheets("Référentiel des Saisies SORTIES").([B2610] & [F2610] & [L2610] & [P2610]).End(xlUp).Row + 1


J’avais essayé avec la colonne A compteuse de n° de ligne :
ligne = Sheets("Référentiel des Saisies SORTIES").[A2610].End(xlUp).Row + 1
mais dans cette colonne entre A11 :A2610, les fomules
=SI(ET(R11=0;R11=0);"";LIGNE())
Et ainsi de suite
Me l’empêche de fonctionner

Idem en tentative sur la colonne R entre R11 et :R2610, avec la formule :
=SI(SOMME(O11+Q11)=0;"";SOMME(O11+Q11))
Et ainsi de suite
Là aussi ça « coince ».

Merci pour vos suggestions
Webperegrino

 

[Robert]

Re : Code VBA : Trouver la 1ère ligne disponible (avec conditions)

Bonsoir Webperegrino, bonsoir le forum,

Peut-ête comme ça :

Dim x As Integer, ligne As Integer
For x = 11 to 2610
    If Cells(x, 2) = "" And Cells(x, 6) = "" And Cells(x, 12) = "" And Cells(x, 16) = "" Then ligne = x: Exit For
Next x

 

[Webperegrino]

Re : Code VBA : Trouver la 1ère ligne disponible (avec conditions)

Bonjour Le Forum,
Bonjour Robert,
J'ai placé votre proposition : elle fonctionne très bien.
Je vous en remercie.
Merci pour l'idée. C'est très précis et simple à souhait.
Webperegrino