Bonjour,

je voudrais ajouter une ligne à un tableau excel pour cela il faut d'abord que je trouve la premiere ccellule non vide (creation d'une variable qui nous donne le numero decette ligne) puis l'utiliser pour remplir a la suite avec de nouvelles données.

voici le code de mon module

Sub premieresVides(k As Integer)
     Range("B2").End(xlDown).Select
     k = 2
         Do
           If IsEmpty(ActiveCell) Then
            ActiveCell.Offset(1, 0).Select
            k = k + 1
           End If
         Loop Until ActiveCell = ""
         k = k + 1
         
End Sub

Sub Command_ADD_Click()

Dim k As Integer
Sheets("data base").Select
premieresVides (k)


'Sheets("Data base").Range("b" & k).Value = Sheets("ADD Data").combo_program.Value

End Sub

Configuration: Windows 2000
Internet Explorer 6.0