Cellule vide sous un tableau excel

Bonjour,

Pour avoir la dernière ligne de ton tableau

Dim DerLig As Long

Derlig = Range("B5").End(xlDown).Row + 1

Pour ton exemple :

Dim DerLig As Long

Derlig = Range("B5").End(xlDown).Row + 1

Message = InputBox("Entrez un nouvel employé :", "Ajout d'un employé", "Nom de l'employé suivi de la première lettre du prénom")
If Message = "" Then Exit Sub 

ActiveSheet.Unprotect 
Range("B" & DerLig).Value = Message
ActiveSheet.Protect 

Évite d'utiliser le .Select. Si tu mets :

Range("B21").Select
Selection.Value = "Toto"

C'est pareil à :

Range("B21").Value = "Toto"

Le .Select ralenti l'exécution et n'est pas nécessaire.

;o)

J'aurais pensé à faire une boucle entre ta ligne 5 et 13 et si il trouve une cellule vide il te demande d'entrer tes informations.

For i = ActiveCell.Row To 13

'Si la case est vide
If Range("D" & i).Value = "" Then
'Alors demande des infos
Message = InputBox("Entrez un nouvel employé :", "Ajout d'un employé", "Nom de l'employé suivi de la première lettre du prénom")

'Si tu veux remplir qu'une case autrement enlève l'etiquette
GoTo 5

End If

i = i + 1

Next

5

Par sur que ca marche je suis aussi débutant ^^

Merci beaucoup à tout les deux!!!

J'ai choisi la solution de polux31 parce que je ne suis pas bien rodé à l'utilisation des boucles ;) En tout cas ça marche très bien j'ai juste modifier les bordures pour que ça soit correct d'un point de vue visuel et c'est bon!!!

Private Sub CommandButton12_Click()
Dim DerLig As Long

Unload UserForm1
Sheets("Employés").Select

DerLig = Range("employés_titre").End(xlDown).Row + 1
Message = InputBox("Entrez un nouvel employé :", "Ajout d'un employé", "Nom de l'employé suivi de la première lettre du prénom")
If Message = "" Then Exit Sub

ActiveSheet.Unprotect
Range("B" & DerLig).Value = Message

Range("B" & DerLig).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
ActiveSheet.Protect

Sheets("S0").Select
End Sub

Pour ce qui est des Select je suis d'accord et je sais bien qu'il ne faut pas vraiment faire comme ça mais c'est que je ne suis pas bien habitué. Connaitriez vous un tuto pour se perfectionner sur ce point?

Merci encore!

En fait il y quand même un petit problème...

Se tableau est utilisé dans une liste et les valeurs de la combobox sont attribuées par l'intermédiaire de RowSource dans les propriétés. Mais les valeurs que l'on rajoute ne font pas partie de la liste... Sauriez vous comment y remédier?

En fait je cherche un code qui permette de désigner la liste par exemple:

Private Sub ComboBox1_Change()
combobox1.listindex = de employé_titre.offset(-1,0) : dernier ligne non vide
salarie = ComboBox1.Value
End Sub

Merci

Je viens d'essayé avec ce code

Private Sub ComboBox1_Change()
Dim der_case As Long
Dim prem_case As Long
prem_case = Range("employés_titre").Offset(-1, 0)
case_case = Range("employés_titre").End(xlDown).Row
salarie = ComboBox1.Value
End Sub

Mais je ne peut pas (me semble-t-il) définir la plag source de cette manière:

rowsource : B&prem_case:B&der_case

ça renvoit une erreur disant "valeur de propriété non valide"

J'ai également essayé avec ça:

Private Sub ComboBox1_Change()
Range("employés_titre").Offset(-1, 0).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="employés", RefersToR1C1:= _
"=Employés!R6C2:R14C2"
salarie = ComboBox1.Value
End Sub

Pas plus de succès ça ne renvoit pas d'erreur mais la liste n'en n'est pas plus mise à jour... (je précise que précédement la liste des employés était nommée "employés" (sans déconner? ;) ) et que rowsource avait comme "argument" Employés!employés...

Tu ajoutes ça dans l'éditeur de l'UserForm

Private Sub UserForm_Initialize() 
Dim ws As Worksheet 
Dim lig As Long 

    Set ws = Worksheets(1)  'Mettre le numéro ou le nom de la feuille 
    lig = 6 
    ComboBox1.Clear

    With ws 
        While .Range("B" & lig).Value <> "" 
            ComboBox1.AddItem .Range("B" & lig).Value 
        lig = lig + 1 
        Wend 
    End With 
     
End Sub 

;o)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau