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

Usine à gaz · 13 Décembre 2021

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,

pierrejean · 13 Décembre 2021

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

job75 · 13 Décembre 2021

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+

Usine à gaz · 13 Décembre 2021

Bonjour Pierre-Jean
Bonjour Gérard

Merci d'être là !
Quels retours rapides lol, vous êtes vraiment supers

Je regarde et je reviens,
lionel,

Usine à gaz · 13 Décembre 2021

Re-Bonjour,

Merci Pierre-Jean : c'est nickel
Merci Gérard : c'est nickel, comme d'hab
Me voilà avec 2 solutions expresssssssss !!!

Vraiment merci
lionel,

PS :faudrait vraiment pouvoir mettre plusieurs #post en solutions

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

pierrejean

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires