Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Webperegrino

XLDnaute Accro
Supporter XLD
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
 
Re : Code VBA : Trouver la 1ère ligne disponible (avec conditions)

Bonsoir Webperegrino, bonsoir le forum,

Peut-ête comme ça :
Code:
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
 
Dernière édition:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
603
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
551
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
834
Réponses
16
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…