Discussion :

[coklin]

Bonjour à tous,


J'essaie actuellement de créer une fonction qui permet de trouver le numéro de la ligne, dans une plage de donénes, de la première ligne non vide.


Je souhaite donc créer une fonction qui me demande une plage de données au moment de la renseigner dans mon classeur. Seulement, je ne suis pas un grand adepte des fonctions et c'est pourquoi j'aurais besoin de votre aide.


Pouvez-vous m'aider svp?


Merci d'avance.


Coklin

[Jean-Philippe André]

salut,
grâce à la , on trouve des solutions très facilement adaptables :
http://excel.developpez.com/faq/inde...reLigneNonVide

[jp014]

Bonjour

Ci dessous une fonction qui donne la première ligne vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
 
Function premiere_ligne_vide(zone As Range)
Dim cold As Long
Dim colf As Long
Dim adf As String
Dim i As Integer
ligd = zone.Row
ligf = zone.Row + zone.Rows.Count - 1
cold = zone.Column
colf = zone.Column + zone.Columns.Count - 1
cola = colonneLCenAX(colf + 1)
For i = zone.Row To (zone.Row + zone.Rows.Count - 1)
    If Sheets(zone.Worksheet.Name).Range(cola & i).End(xlToLeft).Column = cold Then
        If Sheets(zone.Worksheet.Name).Cells(i, cold) = "" Then
            premiere_ligne_vide = i
            Exit Function
        End If
    End If
Next i
End Function
 
Private Function colonneLCenAX(colonnen As Long)
Dim ifo As Integer
 
If colonnen < (26 + 1) Then
    colonneLCenAX = Chr(colonnen + 64)
Else
    For ifo = 1 To 11
        If colonnen > (ifo * 26) And colonnen < ((ifo + 1) * 26) + 1 Then colonneLCenAX = Chr(64 + ifo) & Chr(colonnen + 64 - (ifo * 26))
    Next ifo
End If
End Function

A tester

JP014