Bonjour,

mon problème est simple, j'aimerai pouvoir récupérer le nom que je marque dans l'inputbox afin de le mettre dans la première case vide après mon tableau.

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
 
Sub Ajout_Nom()
 
    Dim Nom As String
    Dim Lig As Long
 
 
    Worksheets("Feuil1").Activate
 
 
    Nom = InputBox("Nom : ", "Ajouter un Nom")
 
    Lig = Range("C" & Rows.Count).End(xlUp).Row + 1
 
    Cells("Lig", C) = Nom
 
End Sub
P.S. :J'ai des cellule vide de C1 à C5 donc il faut que je parte du bas pour remonter.

Merci d'avance.
Cordialement,
Lyndils