VBA Aide Userform

Bonjour.
J'ai actuellement un classeur bien rempli, mais je ne travaille là que sur une feuille précise. Elle est composée d'un tableau qui contient 7 colonnes. [Désignation ; Etat ; Stock ; Seuil ; Etagère ; Rangée ; Salle]
La désignation, et le seuil sont déjà définis par un bouton préprogrammé
L'état est une mise en forme conditionnelle (en fonction du seuil)
J'ai crée un nouvel userform (ComboBox + 3 TextBox) pour permettre le rangement d'un produit, donc afin de compléter les colonnes "Etagère; Rangée; Salle"
J'ai crée l'userform comme suit : Un menu déroulant contenant les désignations (colonne A)
Maintenant le problème se pose. Admettons qu'une ligne contienne le produit "Vis", comment puis-je faire pour qu'en sélectionnant la Vis dans le menu déroulant, les données rentrées dans les textbox s'intégrent dans le tableau, à la bonne colonne ? Merci d'avance

Mise à jour : j'ai réussi à ajouter les valeurs des TextBox dans le tableau, seul problème, c'est que c'est dans une cellule fixe... J'aimerais savoir comment ajouter dans le tableau à la ligne correspondante à la désignation choisie ?

Bonjour,

Est-ce que tu peux mettre le bout de code que tu utilises pour inscrire tes données dans la feuille ?

Bonjour,
Je suppose que tu utilises comme liste déroulante un contrôle ListBox ou ComboBox. Ces deux contrôles ont une propriété ListIndex qui renvoie le numéro de la ligne sélectionnée dans le contrôle (0 pour le premier élément).
Si la liste correspond aux éléments de la colonne A sans exception on peut donc utiliser la valeur de cette propriété pour connaître le n° de la ligne dans le tableau.
Voici un exemple pour un ComboBox nommé cboClient. la variable rngRow contient le numéro de la ligne du tableau défini ici par une variable objet nommée rng avec comme adresse $A$2:$Hn (n représentant le nombre de lignes du tableau.

Code:

---

1 2 3 4 5

Private Sub cboClient_Click() rngRow = Me.cboClient.ListIndex + 1 Me.cboClient.ListIndex = -1 ' Réinitialise la propriété ListIndex LectureRecord rngRow End Sub

---

Le code de lecture (juste pour l'illustration du code qui précède).

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub LectureRecord(NumRecord As Long) With Me .txtNom = rng.Cells(NumRecord, 1) .txtPrenom = rng.Cells(NumRecord, 2) .txtFonction = rng.Cells(NumRecord, 4) .txtCompagnie = rng.Cells(NumRecord, 5) .txtAdresse = rng.Cells(NumRecord, 6) .txtCP = rng.Cells(NumRecord, 7) .txtVille = rng.Cells(NumRecord, 8) End With End Sub

---

Alors effectivement, j'utilise un combobox, merci pour le code pour la lecture, mais pour l'écriture dans les colonnes, comment faire ?

Bonjour,
Et bien pour l'écriture tu inverses les commandes.
Exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub EcritureRecord(NumRecord As Long) With Rng .Cells(NumRecord, 1) = Me.txtNom .Cells(NumRecord, 2) = Me.txtPrenom .Cells(NumRecord, 4) = Me.txtFonction .Cells(NumRecord, 5) = Me.txtCompagnie .Cells(NumRecord, 6) = Me.txtAdresse .Cells(NumRecord, 7) = Me.txtCP .Cells(NumRecord, 8) = Me.txtVille End With End Sub

---