Report donné userform
Bonjour à tous,
Je sollicite votre aide pour un petit soucis de report de donnée.
J'ai mis en place un userform où il faut simplement compléter des champs.
A la validation de celui ci, les données se reportent sur une feuille en fonction du choix du combobox1.
J'ai bien réussi à faire le report comme je le souhaite mais je coince sur un petit détail et pas des moindre.
Il n'est pas toujours nécessaire de remplir tous les textbox du formulaire donc quand je rapatrie les données cela peut me générer des décalages.
Il y a t -il un petit bout de code qui me permettrait lors de la prochaine saisie de laisser une case vide?
Voici mon code:
Private Sub CommandButton1_Click()
Sheets(ComboBox1.Text).Activate
Range("A" & Range("A" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = ComboBox1.Value
Range("B" & Range("B" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox1.Value
Range("C" & Range("C" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox8.Value
End Sub
D'avance merci à tous pour votre aide
Bonjour
Essaie comme ça :
Private Sub CommandButton1_Click()
Dim ln&
Sheets(ComboBox1.Text).Activate
ln = Range("A" & Cells.Rows.Count).End(xlUp).Row
Range("A" & ln) = ComboBox1
Range("B" & ln) = TextBox1
Range("C" & ln) = TextBox8
End SubBye !
Bonjour,
pardonne moi l'O.T, je voudrais demander pourquoi vous ajoutez le & ici Dim ln& pourquoi vous ajoutez le &
Salut ges
En passant ... lorsque tu déclares des variables ... tu définis leur type...
Par exemple :
Dim i As Integer qui peut également s'écrire
Dim i% Il existe quelques suffixes pour les types les plus fréquents ...
Currency: @
Double: #
Integer: %
Long: &
Single: !
String: $
Ce sont les six seuls suffixes dont j'arrive à me souvenir ...
En espèrant que cela t'aide
Bonjour et merci James, tu m'as devancé et mieux expliqué que ce que j'aurais pu faire.
Bye !
Salut James007, excellent!
Merci pour votre gentille explication