Discussion :

[beast666]

Bonjour à toutes et à tous,

Voilà, j'ai un tableau de valeur dans la colonne D et je souhaite créer un userform qui me permette d'ajouter automatiquement une valeur lors du premier emplacement vide.
J'ai conçu un bout de code mais la valeur imputer à mon tableau me renvoie un message d'erreur et je ne sais pas trop pourquoi?

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ajout_Click()
 
            With Worksheets("start")
 
                .Range("D8").End(xlDown).Offset(1, 0).Value = ajout.Value
 
        End With
 
End Sub

Pour info, la valeur à rentrer dans le tableau se fait par le biais d'un textbox...

Quelqu'un peut-il me débeuguer????

Merci par avance

[aalex_38]

Que représente ce code :

Code :

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

ajout.Value

[laetitia]

bonjour beast666 aalex_38 le forum
c'est peut être mieux de partir du bas vers le haut???

Code :

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

1
2
3
Private Sub ajout_Click()
Sheets("start").Range("D65536").End(xlUp)(2) = TextBox1.Value
End Sub