Discussion :

[Lyndils]

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]

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é]

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]

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]

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

[patricktoulon]

Bonjour
igloobel@
cells peut fonctionner avec les lettre
exemple

Code :

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

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

[Theze]

Bonjour,

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

Code :

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

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

Hervé.

[patricktoulon]

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

[Theze]

On peut

Code :

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

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
Allez, c'est pour rire !

Hervé.

[vinc_bilb]

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