Discussion :

[beast666]

Bonjours à tous,

J'ai creé un userform tout simple dans lequel j'ai une inputbox. Je voudrais que le texte saisie dans l'input box s'inscrive dans la première cellule vide d'une colonne.
Malheureusement ma macro ne fonctionne pas...
Voilà ce que j'ai écrit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Ajouter_Click()
 
       With Worksheets("start")
 
                .Range("D8").End(xlDown).Offset(1, 0).Select
                .Selection.Value = ajout.Value
 
        End With
Ajout_CE.Hide
 
End Sub

Quelqu'un peux t-il me débuguer?

Merci par avance

[LeForestier]

Bonjour,
C'est quoi ton InputBox ?
Si c'est une zone de texte...

Code :

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

1
2
3
4
Private Sub Ajouter_Click()
    Sheets("start").Range("D" & Range("D65536").End(xlUp).Row + 1) = ajout.Value
    Unload Me
End Sub

A+

[beast666]

En fait ce n'est pas du texte, mais du numérique...

[LeForestier]

Que la donnée soit n'importe quoi, ma question est dans quel contrôle la donnée est entrée parce qu'un inputBox c'est pas ça du tout.