Ajouter un texte à la première case vide
Quentin69
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai créer une UserForm avec un bouton valider.
Lorsque je clique sur "valider" j'aimerais que mes combobox soient enregistrées dans la première case vide d'une colonne. Voici le code que j'ai essayé mais celà ne fonctionne pas, je recopie à chaque fois sur la première case et annule donc ce qui a été fait avant.
Private Sub CommandButton2_Click()
Dim lin As Integer
lin = 2
If Range("BDD!P7").Value <> "" Then
MsgBox ("Le nombre maximal d'article a été atteint")
Exit Sub
Else
While Range("BDD!P" & lin).Value <> ""
lin = lin + 1
Wend
Range("Données!P" & lin) = ComboBox1.Value
Range("Données!Q" & lin) = qte_commander.Value
Range("Données!R" & lin) = prix_commande.Value
MsgBox ("Article ajouté")
End If
End Sub
Merci d'avance pour votre réponse.
J'ai créer une UserForm avec un bouton valider.
Lorsque je clique sur "valider" j'aimerais que mes combobox soient enregistrées dans la première case vide d'une colonne. Voici le code que j'ai essayé mais celà ne fonctionne pas, je recopie à chaque fois sur la première case et annule donc ce qui a été fait avant.
Private Sub CommandButton2_Click()
Dim lin As Integer
lin = 2
If Range("BDD!P7").Value <> "" Then
MsgBox ("Le nombre maximal d'article a été atteint")
Exit Sub
Else
While Range("BDD!P" & lin).Value <> ""
lin = lin + 1
Wend
Range("Données!P" & lin) = ComboBox1.Value
Range("Données!Q" & lin) = qte_commander.Value
Range("Données!R" & lin) = prix_commande.Value
MsgBox ("Article ajouté")
End If
End Sub
Merci d'avance pour votre réponse.
A voir également:
- Ajouter un texte à la première case vide
- Supprimer page word vide - Guide
- Un agent immobilier a préparé un diaporama pour présenter une maison à vendre. appliquez la mise en forme de la première diapositive à toutes les autres. quel est le code du portail ? ✓ - Forum Powerpoint
- Transcription audio en texte word gratuit - Guide
- Coeur vide ✓ - Forum Facebook
- Excel cellule couleur si condition texte - Guide
