Discussion :

[Vba14]

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 :

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

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 :

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

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 :

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

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

[halaster08]

Bonjour,

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

oui

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

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

oui

[jpvba]

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

[Vba14]

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

[Amazigg]

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.

[unparia]

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).