1 ere ligne vierge

[Startus]

Bonsoir et good night

Je cherche à savoir comment puis-je accèder directement à la première cellule vide d'un tableau.

Et cela en un clic sur n'importe quelle feuille

Merci par avance, pour vos lumières...

Startus

 

[Rénato]

Bonjour Startus,

Je te propose de coller ce code sur la feuille (macro évenementielle, clic droit sur l'onglet, visualiser le code, puis coller le script dans la fenêtre de droite) ou les feuilles concernées.

Un double clic sur n'importe quelle cellule contenant une valeur au sein de ton tableau (sf cellule entourée que de cellules vides), et le curseur va se positionner sur la première cellule vide du tablo.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Selection.CurrentRegion.Select
Selection.SpecialCells(xlCellTypeBlanks).Select
ActiveCell.Select
End Sub

A noter :
Si aucune est vide, le curseur restera sur la cellule selectionnée

Bien cordialement

 

[Startus]

Bonjour Rénato, Bonjour le forum,

J'ai essayé ton code dans mon classeur, il marche, mais en fait je voudrai que cette macro me trouve la 1ère cellule vide de la colonne B, et ceci uniquement après B6...

Merci pour ton aide

Startus

 

[myDearFriend!]

Bonsoir Startus, Renato, le Forum.

Ci-dessous 2 solutions possibles pour ton problème :

'Par un double clic dans la feuille
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim L As Long
      Cancel = True
      L = Application.WorksheetFunction.Max(Range('B65536').End(xlUp).Row + 1, 7)
      Cells(L, 2).Select
End Sub

'Par un clic droit dans la feuille
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim L As Long
      Cancel = True
      L = Application.WorksheetFunction.Max(Range('B65536').End(xlUp).Row + 1, 7)
      Cells(L, 2).Select
End Sub

Cordialement,

 

[Rénato]

re Startus, salut Didier,

Je vois Startus que le brillant M.D.F vient de frapper, tu peux coller son code les yeux fermés.

Bonne soirée à vous deux.

 

[Startus]

Bonsoir le forum,

Tu l'a dit Rénato le génie en VBA est passé par là,

Code immédiatement coller dans mes feuilles et ca marche nickel...

@+ Startus

 

[myDearFriend!]

Re Startus, Rénato,

Oh non, surtout pas de génie là dedans ! 😱
Ton deuxième post Startus était simplement un peu plus précis sur l'objectif à atteindre c'est tout.

Bonne fin de soirée à vous deux.