Autres sélectionner une cellule à partir de valeur sur combobox

[aymenph82]

Bonsoir tout le monde
la première ligne sur la feuille contient les jours du mois (de 1 à 31) de B1 jusqu'à AF1
la premiere colone contient des articles A2 jusqu'à A269
j'ai créer un userform avec
* un premier combobox contient la liste déroulante de chiffre allant de 1 à 31,
* un 2éme combobox contient la liste déroulante de nom d'articles
* un textbox pour les quantités à ajouter
* un bouton AJOUTER
j'aimerai lorsque je choisi le jour sur le combobox N1, et l'article sur combobox N2, et la quantité sur le textbox, et en appyant sur le bouton AJOUTER, il saisie automatiquement la quantité au niveau de la cellule correspondante
merci pour votre aide précieuse

 

[Staple1600]

Bonsoir le fil, aymenph82

aymenph82
Puisque tu parles d'AJOUTER
Ajoutes d'abord le petit bonjour qui va bien...

Voir la charte du forum à ce sujet.

 

[aymenph82]

Bonsoir le fil, aymenph82

aymenph82
Puisque tu parles d'AJOUTER
Ajoutes d'abord le petit bonjour qui va bien...

Voir la charte du forum à ce sujet.

Bonsoir, Désolé c'est mon premier sujet merci

 

[Staple1600]

Re

Donc maintenant que tu as lu la charte du forum
Relis le point où l'on évoque la possibilité de joindre...

 

[aymenph82]

re
en sélectionnant le service la feuille correspondant au service est activé il me reste que de saisir la quantité après avoir sélectionnée la date et l'article
merci

 

[Staple1600]

Re

Essaies ce bout de code en lieu et place de l'existant

'********************************************
'bouton procedure d'AJOUT sur le formulaire
'********************************************
Private Sub btnajouterarticles_Click()
Dim col&, lig&
col = Application.Match(cbodate.Value * 1, ActiveSheet.Range("B1:AF1"), 0) + 1
lig = Application.Match(cboarticles.Value, ActiveSheet.Range("A2:A9"), 0) + 1
Cells(lig, col) = txtquantite
End Sub

 

[aymenph82]

MERCI BEAUCOUP ça marche bien mais est t il possible après avoir cliqué sur AJOUTER de garder le champ date tel qu’il est et de vidé le champ article et quantité a fin de pouvoir saisir un autre article
merci

 

[Staple1600]

Re

Un poil dans la main?
La solution est déjà dans le code de ta PJ

'********************************************
'bouton procedure d'AJOUT sur le formulaire
'********************************************
Private Sub btnajouterarticles_Click()
Dim col&, lig&
col = Application.Match(cbodate.Value * 1, ActiveSheet.Range("B1:AF1"), 0) + 1
lig = Application.Match(cboarticles.Value, ActiveSheet.Range("A2:A9"), 0) + 1
Cells(lig, col) = txtquantite
txtquantite = "" ' on pouvait lire ce genre de syntaxe un peu plus haut dans le code...
End Sub

 

[aymenph82]

Ahh oui merci