[VBA] Ajouter des infos depuis un userform
L01C
Messages postés
323
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous
Dans le cadre de mon stage de deux mois, je dois gérer un parc automobile. J'ai donc pour projet de faire un logiciel VBA mais je dois avouer que la tâche est plutôt ardue. Quoiqu'il en soit, j'ai besoin de votre aide car là je bloque depuis plusieurs (je risque de faire souvent appel à vous ces prochaines semaines vu que j'entre dans la partie hard des macros).
Bref, j'ai un userform pour ajouter un véhicule dans la base de données du parc automobile avec diverses informations comme le carburant, le type de propriété (LLD ou propriétaire),etc. Je souhaite donc que quand je clique sur un bouton de commande "Suivant", les informations aillent se rajouter sur la première ligne vide qu'ils trouvent mais je voudrais que les infos pour un véhicule soit sur la même ligne. Le problème, c'est que la marque et le modèle viennent bien chercher la première cellule vide en 1ère colonne (colonne A par exemple) mais quand j'ajoute le carburant, il ne s'ajoute pas sur la même ligne que le modèle rajouté mais sur les nouvelles cellules vide de la colonne. Je vous donne un exemple:
Renault Megane se met en A35, première cellule vide, mais quand je rajoute le carburant, au lieu de se mettre en B35, il va en B36. Du coup ça décale. Voici les formules que j'ai écrit:
Private Sub CommandButton1_Click()
With Sheets("parc auto")
.Range("C65536").End(xlUp).Offset(1, 0).Value = TextBox1.Value
End With
With Sheets("parc auto")
.Range("E65536").End(xlUp).Offset(1, 0).Value = ComboBox2.Value
End With
Ajoutvehic.Hide
Ajoutvehic2.Show
End Sub
Je vous remercie par avance de votre aide et bonne journée.
Dans le cadre de mon stage de deux mois, je dois gérer un parc automobile. J'ai donc pour projet de faire un logiciel VBA mais je dois avouer que la tâche est plutôt ardue. Quoiqu'il en soit, j'ai besoin de votre aide car là je bloque depuis plusieurs (je risque de faire souvent appel à vous ces prochaines semaines vu que j'entre dans la partie hard des macros).
Bref, j'ai un userform pour ajouter un véhicule dans la base de données du parc automobile avec diverses informations comme le carburant, le type de propriété (LLD ou propriétaire),etc. Je souhaite donc que quand je clique sur un bouton de commande "Suivant", les informations aillent se rajouter sur la première ligne vide qu'ils trouvent mais je voudrais que les infos pour un véhicule soit sur la même ligne. Le problème, c'est que la marque et le modèle viennent bien chercher la première cellule vide en 1ère colonne (colonne A par exemple) mais quand j'ajoute le carburant, il ne s'ajoute pas sur la même ligne que le modèle rajouté mais sur les nouvelles cellules vide de la colonne. Je vous donne un exemple:
Renault Megane se met en A35, première cellule vide, mais quand je rajoute le carburant, au lieu de se mettre en B35, il va en B36. Du coup ça décale. Voici les formules que j'ai écrit:
Private Sub CommandButton1_Click()
With Sheets("parc auto")
.Range("C65536").End(xlUp).Offset(1, 0).Value = TextBox1.Value
End With
With Sheets("parc auto")
.Range("E65536").End(xlUp).Offset(1, 0).Value = ComboBox2.Value
End With
Ajoutvehic.Hide
Ajoutvehic2.Show
End Sub
Je vous remercie par avance de votre aide et bonne journée.
A voir également:
- [VBA] Ajouter des infos depuis un userform
- Impossible d'ajouter un ami sur facebook - Guide
- Ajouter un compte whatsapp - Guide
- Ajouter un compte facebook - Guide
- Ajouter signature word - Guide
- Ajouter liste déroulante excel - Guide
3 réponses
Bonjour
With Sheets("parc auto") ligvide = .Range("A65536").End(xlUp).Row + 1 .Cells(ligvide, "C") = TextBox1.Value .Cells(ligvide, "E") = ComboBox2.Value End With
Merci de ton aide et désolé de répondre aussi tard. Quand je remplace ma macro par la tienne, ça ne se met pas à la dernière cellule mais les valeurs rentrées viennent remplacer les titres du tableau de la base de données qui sont la ligne 2, en fait.
Si vous voulez, je peux envoyer le logiciel actuel mais va falloir se munir d'une machette car c'est encore une vraie jungle.
Si vous voulez, je peux envoyer le logiciel actuel mais va falloir se munir d'une machette car c'est encore une vraie jungle.