Demande conseil pour élaboration code Vba

Bonjour à tous,

Avec l'aide ce forum, j'ai pu mettre en place ce code qui me permet d'alimenter un tableau se trouvant dans la feuille "Articles". Mais j'en ai 5 autres à remplir.

D'où une petite série de question afin d'optimiser mes codes et de ne pas me retrouver avec un code de 3 pages.

1 - Est-ce que je peux déclarer mes variables de cette façon ?

Code:

---

1 2	Dim MonArticle As ListRow, MesClients As ListRow, MaCommande As ListRow, MonFournisseur As ListRow, MonLivre As ListRow, MesVentes As ListRow

---

Ou bien suis-je obligé de mettre un Dim devant chacune des variables ?

Le code ci-dessous va être à peu-près similaire pour le remplissage de mes tableaux,

2 - Est-il possible de faire quelque chose de plus court ou bien dois-je mettre les 6 codes bout à bout ?

3 - Est-ce que je peux mettre toutes ces déclarations les unes en-dessous des autres ?

Code:

---

1 2 3 4

Set MonArticle = Sheets("Articles").ListObjects(1).ListRows.Add Set MesClients = Sheets("Clients").ListObjects(1).ListRows.Add etc...

---

Le même bouton de validation sert à toutes les pages.

Merci par avance pour vos conseils.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

Private Sub Bouton1_Click() Dim MonArticle As ListRow Application.ScreenUpdating = False   Set MonArticle = Sheets("Articles").ListObjects(1).ListRows.Add   'On ajoute les articles au tableau de la feuille "Articles"   With MonArticle   .Range(1, 1) = Me.Label_NumArticle.Caption .Range(1, 3) = Me.Combo_Fourni .Range(1, 4) = Me.Txt_DesignArticle .Range(1, 5) = Me.Txt_DescripArticle .Range(1, 6) = CDbl(Me.Txt_PriAchHT) .Range(1, 7) = Me.Combo_TVA .Range(1, 8) = CInt(Me.Txt_Nombre) .Range(1, 11) = CInt(Me.Txt_StoMini) .Range(1, 13) = "Active"   End With   Set MonArticle = Nothing   Sheets("Données").Range("C4") = Sheets("Données").Range("C4") + 1   Me.Combo_Fourni = "" Me.Txt_DesignArticle = "" Me.Txt_DescripArticle = "" Me.Txt_PriAchHT = "" Me.Combo_TVA = "" Me.Txt_Nombre = "" Me.Txt_StoMini = ""   Application.ScreenUpdating = True End Sub

---

Bonjour,

Citation:

---

Envoyé par Vba14

1 - Est-ce que je peux déclarer mes variables de cette façon ?

---

oui

Citation:

---

Le code ci-dessous va être à peu-près similaire pour le remplissage de mes tableaux,

2 - Est-il possible de faire quelque chose de plus court ou bien dois-je mettre les 6 codes bout à bout ?

---

Tout dépend de ce "à peu-près similaire"
Une boucle est envisageable mais il faudrait que tu fournisse plus de détail sur les différences

Citation:

---

3 - Est-ce que je peux mettre toutes ces déclarations les unes en-dessous des autres ?

---

oui

Bonjour a vous cher ami,

Il n'y a aucun probleme de déclaré vos variable comme ce que vous avez mentionné. Perso, je n'aime pas car c'Est moins esthétique et moins visuel mais il n'y a vraiment pas de probleme . Si vous ne mettez pas de "as listrow" , VBA va définir la variable comme variant. DOnc votre façon de faire est parfaite


Pour la question 2, je ne sais vraiment pas, je ne peux vous aider sur celle-là


Pour la question 3, oui bien sur si l'élément que vous setter est déjà présent. Par exemple, je ne peux faire de set sur une plage ou un élément qui va etre crée plus tard. DOnc dans votre cas je présume que tous les éléments sont déjà présent donc oui



en espérant le tout pouvant vous aidez

Bonjour jpvba, Bonjour halaster08,

jpvba, merci d'avoir répondu en partie à mes questions. Je vais avancer en attendant.
Très cordialement
Vba14

halaster08, merci pour ta réponse
A part des noms de contrôles qui changent et les cellules de mes tableaux, la procédure est identique s’agissant de remplir un tableau dans une feuille de calcul.
Très cordialement
Vba14

Bonjour, je souhaite inclu une fonction SI dans une macro que j’essaye de créer. Je suis débutant dans ce domaine, ma question :

Je souhaite convertir cette fonction en vba :

SI (P2<>0;*“Ok*”;*““) et tirer ma formule jusqu’à la fin de la colonne À et faire un tri par la colonne P.

Merci d’avance pour votre aide.

Bonjour Amazigg
Que vient faire ta question dans la présente discussion avec laqueelle elle n'a rien à voir ?
Ouvre ta propre discussion en t'efforçant d'être plus clair (et ce d'autant que la formule que tu veux écrire depuis VBA est elle-même erronée).