Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

A

aymenph82

XLDnaute Nouveau
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
 
Dernière édition:
Trier par date Trier par votes
A

aymenph82

XLDnaute Nouveau
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
 

Pièces jointes

  • classeur dépôt central VBA.xlsm
    35.3 KB · Affichages: 23
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

Essaies ce bout de code en lieu et place de l'existant
VB: 
'********************************************
'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
 
Vote positif 0 Vote négatif
A

aymenph82

XLDnaute Nouveau
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
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

Un poil dans la main?
La solution est déjà dans le code de ta PJ
VB: 
'********************************************
'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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

L
  • Résolu(e)
Microsoft 365 Filtrer une ListView sur un intervalle de valeurs avec ComboBox
Réponses
4
Affichages
331
Lyrix
L
  • Résolu(e)
XL 2013 (RESOLU) Afficher zone au milieu de la feuille selon la valeur de combobox
Réponses
5
Affichages
329
chaelie2015
F
  • Résolu(e)
Microsoft 365 Copier à tour de rôle les éléments d'une liste vers une même cellule
Réponses
1
Affichages
174
flint125
F
F
  • Question
XL 2013 Tri d'une listbox sur 2 combobox en cascade
2
Réponses
25
Affichages
591
franxy
F
  • Résolu(e)
Microsoft 365 Choix d'une feuille de classeur spécifique où enregistrer des données à partir d'une combobox
Réponses
7
Affichages
406
Olive de BI
B
  • Question
Microsoft 365 Alimenter combobox et ajouter la valeur si non inscrit dans la liste
Réponses
5
Affichages
308
sousou
  • Résolu(e)
XL 2013 probleme combobox listindex -1 même avec une valeur
2
Réponses
17
Affichages
208
TooFatBoy
O
  • Résolu(e)
XL 2019 Gestion de métrage restant sur une bobine
2
Réponses
29
Affichages
703
JM27
J
M
  • Question
XL 2019 Répartition de données qui n'aboutit pas sur la somme initiale
Réponses
6
Affichages
321
MCO2406
M
M
  • Résolu(e)
Microsoft 365 Enchaînement textbox pour ajouter une note à une cellule
2 3 4
Réponses
46
Affichages
2 K
ChTi160
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…