Récupération InputBox VBA

**Lyndils** · 26/08/2015, 14h08

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

**bboy-eazy** · 26/08/2015, 14h15

Bonjour,

et tu veux laisser les cellules vides de C1 à C5? ecrire dans la première case vide à partir de C5 mais pas avant C5?

Invité · 26/08/2015, 14h23

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
Sub Ajout_Nom()
    Dim Nom As String
    Dim Lig As Long
    Worksheets("Feuil1").Activate
    Nom = InputBox("Nom : ", "Ajouter un Nom")
 If Nom = "" Then Exit Sub
    Cells(Range("C" & Rows.Count).End(xlUp).Row + 1, "C") = Nom
End Sub

**Igloobel** · 26/08/2015, 15h28

Envoyé par Lyndils

Code :

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

1
2
3
4
 
...
    Cells("Lig", C) = Nom
...

...

cette ligne ne peut pas fonctionner car LIG est une variable de type Long cad pas alphanumerique et "C" n'est pas connu

donc il faut mettre :

Code :

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

1
2
3
4
 
...
    Cells(Lig, 3) = Nom
...

cells fonctionne comme cela :

Cells(N°ligne, N°colonne)

A+

**Lyndils** · 26/08/2015, 16h17

Rebonjour,

Ra j'y étais presque j'avais tester vos réponse mais il manqué une parenthèse .

Bref super merci à vous, ça fonctionne parfaitement!

Cordialement,
Lyndils