**Résolu**UserForm (le transfert ne se fait pas dans mon tableau1)

  • Initiateur de la discussion Initiateur de la discussion Xoomer
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Xoomer

XLDnaute Nouveau
Bonjour à tous,

je profites de l'occasion pour vous souhaitez à tous et chacun de la santé pour 2015.

voilà mon problème,

j'ai créer un UserForm, qui fonctionne bien, sauf qu'il ajoute bien une ligne mais pas dans le tableau. le nom de mon tableau est (Tableau1)

voici mon code

Private Sub CommandButton1_Click()
Dim V2(1 To 1, 1 To 7), DerLigne As Long
On Error GoTo Erreur
V2(1, 1) = Me.ComboBox1.Text
V2(1, 2) = Me.MonthView1.Value
V2(1, 3) = CCur(Me.TextBox1.Text)
V2(1, 4) = CCur(Me.TextBox2.Text)
V2(1, 5) = Me.MonthView2.Value
V2(1, 7) = CCur(Me.TextBox3.Text)



With Worksheets("Données")
DerLigne = .Range("C65000").End(xlUp).Row + 1
.[A:AS].Rows(DerLigne).Value2 = V2
End With
Exit Sub
Erreur: MsgBox Err.Description
End Sub

merci de votre aide
 
Dernière édition:
Re : UserForm (le transfert ne se fait pas dans mon tableau1)

Bonsoir Xoomer, le forum,
Tous mes meilleurs vœux pour l’année 2015.
Pour ma part, sans un petit fichier d’exemple, difficile de te répondre, car je ne comprends pas le passage par un array.
Code directement de l’UserForm (à tester – retour de réveillon) :
Private Sub CommandButton1_Click()
With Sheets((“Tableau1”)
DerLigne = .Range(“A” & Rows.count).End(xlUp).Row + 1
.Cells(DerLigne, 1) = Me.ComboBox1.Text
.Cells(DerLigne, 2) = Me.MonthView1.Value
.Cells(DerLigne, 3) = CCur(Me.TextBox1.Text)
.Cells(DerLigne, 4) = CCur(Me.TextBox2.Text)
.Cells(DerLigne, 5) = Me.MonthView2.Value
.Cells(DerLigne, 7) = CCur(Me.TextBox3.Text)
End With
End Sub
Cordialement,
Bernard
 
Re : UserForm (le transfert ne se fait pas dans mon tableau1)

bbb38, ok j'ai trouver mon erreur dans mon code

à la ligne:
DerLigne = .Range("C65000").End(xlUp).Row + 1
.[A:AS].Rows(DerLigne).Value2 = V2

aurais du être:
DerLigne = .Range("C65000").End(xlUp).Row + 1
.[A:G].Rows(DerLigne).Value2 = V2
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
1 K
Retour