Listbox intégration page cachée

Bonjour,
je suis un jeune padawan en VBA et je bloque sur le fait de remplir des cellules à partir d'un USERFORM dans une feuille cachée.

Création du USERFORM: RAS
Intégration des données dans la feuille active: RAS dont voici le script:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

Private Sub client_Change() If Me.client <> "" Then Me.Marchandise.Enabled = True Me.CODA.Enabled = True Me.CODA.BackColor = vbWhite Me.Marchandise.BackColor = vbWhite End If End Sub Private Sub CODA_Change() controle End Sub Sub controle() If Me.Marchandise <> "" And Me.CODA <> "" Then Me.B_ok.Enabled = True End If End Sub Private Sub B_ok_Click() [A65000].End(xlUp).Offset(1, 0).Select ActiveCell = UCase(Me.client) ActiveCell.Offset(0, 2) = Application.Proper(Me.Marchandise) ActiveCell.Offset(0, 1) = Application.Proper(Me.CODA) [A2:C1000].Sort key1:=[A2] raz End Sub Sub raz() Me.client = "" Me.Marchandise = "" Me.CODA = "" Me.Marchandise.Enabled = False Me.CODA.Enabled = False Me.Marchandise.BackColor = Me.BackColor Me.CODA.BackColor = Me.BackColor Me.B_ok.Enabled = False End Sub   Private Sub Label1_Click()   End Sub   Private Sub Label2_Click()   End Sub   Private Sub Label3_Click()   End Sub

---

J'ai essayé en rajoutant:

Code:

---

1 2	Sheets("bidule").Select ActiveSheet.Paste

---

qui m'intègre bien que 2 de mes champs car je l'ai intégré juste après:

Code:

---

Private Sub client_Change()

---

mais surtout rend mon onglet "bidule" visible ce que je ne souhaite pas.

Quelqu'un peut-il m'aider ?

Bonjour,

Penses a utiliser la balise Code car la ce n'est pas très lisible :calim2:

Dans ton code ajoute le nom de la feuille

Code:

---

1 2 3 4 5 6 7 8 9

Dim i as long   'Prochaine ligne disponible i = Sheets("bidule").Range("A65536").end(xlup).rows + 1   Sheets("bidule").Range("A" & i).Value = UCase(Me.client) Sheets("bidule").Range("C" & i).Value = Application.Proper(Me.Marchandise) Sheets("bidule").Range("B" & i).Value = Application.Proper(Me.CODA)

---

Un peu de lecture pour la manipulation des feuilles
http://silkyroad.developpez.com/VBA/FeuilleDeCalcul/

l'intégration des données dans la page "cachée" ne se déroule bien que la 1ère fois, après si je veus rajouter une 2 ligne cela ne fonctionne pas.
Il me met le debogueur sur:

Code:

---

i = Sheets("bidule").Range("A65536").end(xlup).rows + 1

---

Pourtant le nom de la page est bon, j'ai du mal à comprendre :cry:

Citation:

---

Penses a utiliser la balise Code car la ce n'est pas très lisible

---

X 2

Quel est le numero et le descriptif de l'erreur??

N°13
incompatibilité de type

retire le "s" de rows

Code:

---

i = Sheets("bidule").Range("A65536").end(xlup).row + 1

---

MERCI :ccool: