Menu

Userform pour remplir deux feuilles excel différentes

Messages postés
8
Date d'inscription
jeudi 4 février 2010
Dernière intervention
7 février 2019
-
Bonjour,
Voici mon problème:
J'ai un fichier excel avec deux feuilles RDV et FICHE_RDV et je souhaiterais que mon Userform complète les deux.
Voici mon code:

Private Sub UserForm_Click()

End Sub

Private Sub Valider_Click()
With Sheets("FICHE_RDV")
Range("B5").Value = TextBox3
Range("B6").Value = TextBox4
Range("B8").Value = TextBox5
Range("B9").Value = TextBox6
Range("B10").Value = TextBox7
Range("B11").Value = TextBox8
Range("B12").Value = TextBox9
Range("B13").Value = TextBox10
Range("B14").Value = TextBox11
Range("B15").Value = TextBox12
Range("B16").Value = TextBox13
End With

'Recuperation de la derniere ligne et inscription des données
Dim intLine As Integer
intLine = Range("a65000").End(xlUp).Row + 1
With Sheets("RDV")

Cells(intLine, 1).Value = TextBox3.Value
Cells(intLine, 2).Value = TextBox4.Value
Cells(intLine, 6).Value = TextBox5.Value
Cells(intLine, 7).Value = TextBox6.Value
Cells(intLine, 8).Value = TextBox7.Value
Cells(intLine, 9).Value = TextBox8.Value
Cells(intLine, 10).Value = TextBox9.Value
Cells(intLine, 11).Value = TextBox10.Value
Cells(intLine, 12).Value = TextBox11.Value
Cells(intLine, 13).Value = TextBox12.Value
Cells(intLine, 14).Value = TextBox13.Value



Unload Me
End With



End Sub
Private Sub RDV()
Unload Me
RDV.Show

End Sub

Hélas, il inscrit toutes les données sur la même feuille.
Il y a une erreur mais je n'arrive pas à la trouver.
Merci de votre aide.

Bien cordialement
Maeve30
Afficher la suite 

Votre réponse

3 réponses

Messages postés
1844
Date d'inscription
lundi 3 mai 2010
Dernière intervention
15 février 2019
122
0
Merci
Bonjour,

Il y a un problème de syntaxe...
Normalement, il y a un point pour montrer l'appartenance
.Cells(...)
Attention aussi à bien associer intLine à la bonne feuille.

A+
Commenter la réponse de Zoul67
Messages postés
8
Date d'inscription
jeudi 4 février 2010
Dernière intervention
7 février 2019
0
Merci
Private Sub Valider_Click()
With Worksheets("FICHE_RDV")

Sheets("FICHE_RDV").Range("B5").Value = TextBox3
Sheets("FICHE_RDV").Range("B6").Value = TextBox4
Sheets("FICHE_RDV").Range("B8").Value = TextBox5
Sheets("FICHE_RDV").Range("B9").Value = TextBox6
Sheets("FICHE_RDV").Range("B10").Value = TextBox7
Sheets("FICHE_RDV").Range("B11").Value = TextBox8
Sheets("FICHE_RDV").Range("B15").Value = TextBox9
Sheets("FICHE_RDV").Range("B16").Value = TextBox10
Sheets("FICHE_RDV").Range("B17").Value = TextBox11
Sheets("FICHE_RDV").Range("B18").Value = TextBox12
Sheets("FICHE_RDV").Range("B19").Value = TextBox13
End With

'Recuperation de la derniere ligne et inscription des données
Dim RDV As Integer
RDV = Range("a65000").End(xlUp).Row + 1

Cells(RDV, 1).Value = TextBox3.Value
Cells(RDV, 2).Value = TextBox4.Value
Cells(RDV, 6).Value = TextBox5.Value
Cells(RDV, 7).Value = TextBox6.Value
Cells(RDV, 8).Value = TextBox7.Value
Cells(RDV, 9).Value = TextBox8.Value
Cells(RDV, 10).Value = TextBox9.Value
Cells(RDV, 11).Value = TextBox10.Value
Cells(RDV, 12).Value = TextBox11.Value
Cells(RDV, 13).Value = TextBox12.Value
Cells(RDV, 14).Value = TextBox13.Value



Unload Me

End Sub

Et là ça fonctionne presque sauf que ma fiche de rendez-vous ne se vide pas ...
Zoul67
Messages postés
1844
Date d'inscription
lundi 3 mai 2010
Dernière intervention
15 février 2019
122 -
Bonsoir,

Quelle fiche de rendez-vous ? Le UserForm ou l'onglet ?

A+
Commenter la réponse de maeve30
0
Merci
En fait, j'avais un problème quand je re remplissais mon useform, les données de ma fiche Excel de rendez-vous étais encore présentes.
A+ et merci de votre aide
Commenter la réponse de Maeve