Récupération InputBox VBA

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:

---

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

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?

Bonjour,

Code:

---

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

---

Citation:

---

Envoyé par Lyndils

Code:

---

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:

---

1 2 3 4

... Cells(Lig, 3) = Nom ...

---

cells fonctionne comme cela :

Cells(N°ligne, N°colonne)

A+

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

Bonjour
igloobel@
cells peut fonctionner avec les lettre
exemple

Code:

---

1 2	lig=5 cells(lig,"C")= "toto"

---

Bonjour,

Et le numéro de ligne peut aussi être un String :

Code:

---

1 2	MsgBox Cells("1", "C").Value

---

Hervé.

:ptdr: theze oui mais pas dans le cadre d'une variable incrementée
galere d'incrementer une variable string :mouarf::ptdr::aie:

On peut :D

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Test()   Dim Lig As String Dim I As Integer   For I = 1 To 10   Lig = CStr(I): Debug.Print Cells(Lig, "C").Value   Next I   End Sub

---

Dis moi Patrick, j'incrémente bien une variable String :D
Allez, c'est pour rire !

Hervé.

Ahhh, les conversions implicites d'Excel et VBA ..... explicitement perturbantes ....