Usine à gaz
XLDnaute Barbatruc
Bonjour à toutes et à tous,
Toujours sur mon classeur de travail de plus de 50.000 lignes, je voudrais, pour éviter des "promenades" atteindre la ligne dans laquelle une cellule n'aurait pas été remplie.
Mes recherches m'ont permis de trouver un code que j'ai légèrement modifié (mais pas assez LOL) et qui fonctionne bien ou presque pour moi :
forum excel-pratique.com par Banzai64 » 22 Décembre 2011, 16:57 que je remercie au passage.
Voici mon souci :
Mon besoin
Atteindre la 1ère cellule vide de la plage I7:T10000 = ici I14
Ce que fait le code
Atteint la 1ère cellule vide en ligne 7 = ici J7
Le fichier test en pièce jointe complètera, je l'espère, mon explication.
Si vous aviez la solution, ça m'arrangerait bien
Avec mes remerciements, je vous souhaite à toutes et à tous un très bon WE pas trop froid,
Amicalement,
Lionel,
Toujours sur mon classeur de travail de plus de 50.000 lignes, je voudrais, pour éviter des "promenades" atteindre la ligne dans laquelle une cellule n'aurait pas été remplie.
Mes recherches m'ont permis de trouver un code que j'ai légèrement modifié (mais pas assez LOL) et qui fonctionne bien ou presque pour moi :
forum excel-pratique.com par Banzai64 » 22 Décembre 2011, 16:57 que je remercie au passage.
Code:
Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("i7:t10000")) Is Nothing And R.Count = 1 Then
Dim L As Integer
Application.ScreenUpdating = False
With Sheets("Feuil1")
.Range("i7:t10000").Find("", .Range("i7"), xlValues, , 1, 1, 0).Select
End With
End If
ActiveCell.Select
'R.Offset(0, 0).Select
'ActiveWindow.ScrollRow = Selection.Row
Application.ScreenUpdating = True
End SubVoici mon souci :
Mon besoin
Atteindre la 1ère cellule vide de la plage I7:T10000 = ici I14
Ce que fait le code
Atteint la 1ère cellule vide en ligne 7 = ici J7
Le fichier test en pièce jointe complètera, je l'espère, mon explication.
Si vous aviez la solution, ça m'arrangerait bien
Avec mes remerciements, je vous souhaite à toutes et à tous un très bon WE pas trop froid,
Amicalement,
Lionel,
Dernière édition: