Programmer sur VBA

Salut,

Attendons peut être la réponse de f894009, mais déjà :
- 5 colonnes utiles dans la feuille, mais 6 Textbox à remplir???
- Pourquoi fusionner des cellules, dans quel but et comment faire pour remplir correctement le tableau par la suite??????

Bonjour a vous deux,

meme remarques que pijaku, surtout ces cellules fusionnees: quel casse-tete !!!!!!

Bonjour,

Je ne m'incruste qu'un instant...

Et si tu étais plus précis. Du style :
Dans mon UsF, j'ai :
- 10 TextBox nommés TextBox1, TextBox2, TextBox3 ... TextBox10,
- 3 ComboBox nommées ComboBox1, ComboBox2, ComboBox3
- 1 CheckBox nommé Mouton (va savoir pourquoi...)
- 1 CommandButton nommé Bouton
Je souhaite, lorsque l'on clique sur le bouton de commande (Bouton), les informations saisis dans les autres contrôles soient placés, dans la feuille nommée "Feuil18" de mon classeur nommé "vacheàlait.xlsm", de la colonne B à la colonne P, dans la première ligne vide de ces colonnes, suivant le process suivant :
Col B : TextBox1
Col C : Si CheckBox coché alors mettre OUI sinon NON
Col D : ComboBox1
Col E : TextBox2
Col F : TextBox10
Col G : Combobox3
etc...
Col O : ComboBox2
Col P : "Ligne saisie le " + date du jour + heure de saisie.

A ce moment, nous pourrions te donner un code qui ressemblerait à :

Private Sub Bouton_Click()
Dim drLig As Long

'première ligne vide de la colonne B :
drLig = Range("B" & Rows.Count).End(xlUp).Row + 1

'Dans la feuille "Feuil18" :
With Sheets("Feuil18")
    .Range("B" & drLig) = TextBox1
    If Mouton = True Then
        .Range("C" & drLig) = "OUI"
    Else
        .Range("C" & drLig) = "NON"
    End If
    .Range("D" & drLig) = ComboBox1
    .Range("E" & drLig) = TextBox2
    .Range("F" & drLig) = TextBox10
    .Range("G" & drLig) = ComboBox3
    'ETC......
    .Range("O" & drLig) = ComboBox2
    .Range("P" & drLig) = "Ligne saisie le : " & Now
End With
End Sub

Sans plus de précision, impossible de t'aider davantage...

Bonjour pijaku,

Il t est presque, puisqu'il cherche a mettre son fichier a dipso