Discussion :

[Astarehan]

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 ?

[parmi]

Bonjour,

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Astarehan]

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

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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