Microsoft 365 atteindre selon cellule en col A la 1ère cellule vide en J

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 !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite une belle et chaude journée 🙂

Je reviens vers nos ténors (une fois de plus) pour un besoin que je n'arrive pas à coder :
je souhaiterais pouvoir atteindre :
1 - au niveau de la ligne "Réseau 1" (col A) la 1ère cellule vide col "J" soit dans l'exemple la cellule "J7"
ou - au niveau de la ligne "Réseau 2" (col A) la 1ère cellule vide col "J" soit dans l'exemple la cellule "J11"

Mes tests ne sont pas concluants lol (tu m'étonnes 😛)
Auriez-vous le bon codes ?
Je joins un petit fichier test et je continue mes recherches.

Un grand merci une fois de plus 🙂
Amicalement,
lionel,
 

Pièces jointes

Bonjour Usine à gaz

VB:
Sub macro1()
For n = 1 To Range("A" & Rows.Count).End(xlUp).Row
   If Range("A" & n) = "Réseau1" And Range("J" & n) = "" Then
     Range("J" & n).Select
     Exit Sub
   End If
Next
End Sub
Sub macro2()
For n = 1 To Range("A" & Rows.Count).End(xlUp).Row
   If Range("A" & n) = "Réseau2" And Range("J" & n) = "" Then
     Range("J" & n).Select
     Exit Sub
   End If
Next
End Sub
 
Bonjour Lionel,

Utilise le double-clic :
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i&
For i = 1 To Rows.Count
    If Cells(i, 1) = Cells(Target.Row, 1) And IsEmpty(Cells(i, 10)) Then Cells(i, 10).Select: Exit For
Next
End Sub
Edit : bonjour Pierre, heureux de te croiser.

A+
 

Pièces jointes

Dernière édition:
- 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

Retour