Formulaire avec saisie selon Combobox

[tom_the_cat]

Salut à tous,

J'ai toujours réussi à régler mes différents problèmes grâce à vous donc j'espère que cette fois encore je trouverai la solution. D'autant que ce n'est pas très compliqué mais je ne trouve pas la réponse par moi-même.

J'utilise beaucoup de formulaires de saisie dans mes classeurs et entre autre grâce à bhbh j'ai pu faire une grande partie de ce dont j'avais besoin. Il m'a été d'une précieuse pour réaliser des formulaires de ce type: https://www.excel-downloads.com/threads/formulaire-de-saisie-avec-rappel-de-donnees.144319/

Aujourd'hui je vais réutiliser la même structure mais au lieu d'intégrer mes données à la première ligne vide verticalement, j'aimerais que mes données se saisises à la ligne indiquée par une combobox.

J'ajoute un fichier en pièce jointe pour que mes propos soit plus clairs.

Comment puis-je faire ca?

Merci beaucoup

 

[laetitia90]

Re : Formulaire avec saisie selon Combobox

bonjour tom_the_cat
dans ton cas pour faire simple tu rajoutes un bouton puis ce code

Private Sub CommandButton1_Click()
Cells(ComboBox1.ListIndex + 3, 3) = TextBox1.Value
Cells(ComboBox1.ListIndex + 3, 4) = TextBox3.Value
End Sub

 

[kjin]

Re : Formulaire avec saisie selon Combobox

Bonjour,
ajoute un bouton sur le formulaire et colle ce code

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub
x = ComboBox1.ListIndex + 3
Cells(x, 3) = TextBox1
Cells(x, 4) = TextBox2
End Sub

en renommant TextBox3 TextBox2
A+
kjin

 

[tom_the_cat]

Re : Formulaire avec saisie selon Combobox

C'est parfait, merci beaucoup

 

[tom_the_cat]

Re : Formulaire avec saisie selon Combobox

Ah j'ai juste un petit truc qui coince, comment je fais pour choisir une feuille?

J'ai écrit ca comme code:

Private Sub CommandButton1_Click()
With Sheets("BDDRapportHebdo")
If ComboBox1.ListIndex = -1 Then Exit Sub
x = ComboBox1.ListIndex + 9
Cells(x, 3) = TextBox1
Cells(x, 4) = TextBox2
Cells(x, 37) = TextBox3
Cells(x, 38) = TextBox4
Cells(x, 39) = TextBox5
Cells(x, 40) = TextBox6
Cells(x, 41) = TextBox7
Cells(x, 42) = TextBox8
Cells(x, 43) = TextBox9
Cells(x, 44) = TextBox10
Cells(x, 45) = TextBox11
Cells(x, 46) = TextBox12
Cells(x, 47) = TextBox13
Cells(x, 48) = TextBox14
Cells(x, 49) = TextBox15

End With

    Unload SaisieRapportHebdo
    Sheets("Accueil").Activate
  

End Sub

Mais ca ne marche pas, il inscrit bien ce que je lui demande d'inscrire mais pas dans la page BDDRapportHebdo comme je le lui demande au début de mon code. C'est pas comme ca qu'il faut faire?

 

[youky(BJ)]

Re : Formulaire avec saisie selon Combobox

Bonjour tom-the-cat,
Ajoute un point avant tout les Cells(..
comme ceci
.Cells(x,3)

Bruno

 

[tom_the_cat]

Re : Formulaire avec saisie selon Combobox

Impeccable, merci beaucoup à vous trois, c'est parfait.

 

[kjin]

Re : Formulaire avec saisie selon Combobox

Bonjour,

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub
x = ComboBox1.ListIndex + 9
With Sheets("BDDRapportHebdo")
    .Cells(x, 3) = TextBox1 'le point indispensable avec With/End With
    .Cells(x, 4) = TextBox2
    For i = 3 To 15
        .Cells(x, i + 34) = Controls("TextBox" & i)
    Next
End With
Unload Me
'Sheets("Accueil").Activate 'inutile si c'est déjà la feuille active

End Sub

A+
kjin