Discussion :

[kikiexcel]

Bonjour à tous
j'aimerais simplifier ma macro qui prend un certain temps.
Je remplis une boite de dialogue via textbox, combobox etc
A chaque validation de mon bouton cela remplit 15 lignes.
Je vous donne un extrait. Est t'il possible de simplifier cela?

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
    .Cells(lig1, "U") = S1.Value
    .Cells(lig1 + 1, "U") = S2.Value
    .Cells(lig1 + 2, "U") = S3.Value
    .Cells(lig1 + 3, "U") = S4.Value
    .Cells(lig1 + 4, "U") = S5.Value
    .Cells(lig1 + 5, "U") = S6.Value
    .Cells(lig1 + 6, "U") = S7.Value
    .Cells(lig1 + 7, "U") = S8.Value
    .Cells(lig1 + 8, "U") = S9.Value
    .Cells(lig1 + 9, "U") = S10.Value
    .Cells(lig1 + 10, "U") = S11.Value
    .Cells(lig1 + 11, "U") = S12.Value
    .Cells(lig1 + 12, "U") = S13.Value
    .Cells(lig1 + 13, "U") = S14.Value
    .Cells(lig1 + 14, "U") = S15.Value

Merci d'avance de vos réponses.

A bientot

[unparia]

Bonjour

Mets donc tes valeurs "S#" en tableau dynamique et injecte ses valeurs d'un seul coup dans la plage concernée .
Je te laisse travailler toi-même un peu sur cette base.

[kikiexcel]

je vais rechercher ce qu'est les tableaux dynamique je n'ai jamais travailler sur cela

[kikiexcel]

Bonjour

Mets donc tes valeurs "S#" en tableau dynamique et injecte ses valeurs d'un seul coup dans la plage concernée .
Je te laisse travailler toi-même un peu sur cette base.

En effet c'est quelque chose que je ne maitrise pas ce que tu m'aiguilles
Ca a l'air assez compliquer a mettre en œuvre.
Par ou je dois commencer pour apprendre a le faire?

Merci beaucoup.
A bientot

[Philippe Tulliez]

Bonjour,

Ca a l'air assez compliquer a mettre en œuvre.
Par ou je dois commencer pour apprendre a le faire?

je te conseille la lecture de ces deux tutoriels

1. Utiliser les variables tableaux en VBA Excel
2. Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel

[kikiexcel]

Bonjour,

je te conseille la lecture de ces deux tutoriels

1. Utiliser les variables tableaux en VBA Excel
2. Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel

Merci je regarde cela et reviens vers vous si je ne comprends pas tout c'est assez nouveau pour moi je n'ai fais que des choses simples jusqu'à présent.

Merci d'avance

[unparia]

je n'ai fais que des choses simples jusqu'à présent.

I9l se trouve qu'un tableau dynamique est précisément "une chose simple" (quel que soit, d'ailleurs, le langage de développement)...

[kikiexcel]

Effectivement j'essaie de déchiffrer mais j'avoue avoir du mal.

Mon code que j'avais renseigné je le fait a partir d'un bouton sur un userform est ce que c'est bien la même façon de procéder sans userform ou avec?

[unparia]

est ce que c'est bien la même façon de procéder sans userform ou avec?

Ben oui, pardi
Dès lors que l'on gère/invoque directement des objets Excel, ces objets subiront les actions décidées, que ce soit d'"ici" ou de "là" ...

[kikiexcel]

bon je pense qu'il faut commencer par faire un essais sur un petit exemple et voir comment je peux construire le code

[unparia]

je pense qu'il faut commencer par faire un essais sur un petit exemple et voir comment je peux construire le code

Sage et saine décision. Applique-la.

[kikiexcel]

Dite moi si je me trompe je dois envoyer les données de mon userform dans un Array et ensuite injecter cette Array dans ma bdd feuille excel
d'après ce que je lis sur vos tutoriel cela reviens à faire cela
comment je peuX injecter d'un coup les donnees

Merci d'avance

[Philippe Tulliez]

Bonjour,

comment je peuX injecter d'un coup les donnees

Si tu as lu les tutoriels, tu as pu remarquer qu'il y a des exemples et notamment au chapitre VIII. Analogies et applications à Excel du tutoriel de Didier Gonard Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel

[patricktoulon]

bonsoir

Code :

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

.Cells(lig1, "U").Resize(15, 1).Value = Application.Transpose(Array(s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15))

je n'ai pas mis le".value" aux S(X) tel un gros fainéant mais vba fait l'auto complétion en interne mais rien ne t'empêche de le faire

en gros ce qui ce passe ici c'est le transfert d'un array a 1 dimension(15 item) dans un tableau a 2 dimensions range( 15 lignes/ sur une colonne)

le transpose est donc de rigueur

voila 1 seule ligne

[kikiexcel]

bonjour Patricktoulon et merci déjà pour ton aide

merci beaucoup j'étais en train de partir dans un truc compliquer genre mes S(X) dans un array puis ensuite écrire mes S(X) dans ma feuille.
Je vois qu'on peux tout faire en une ligne.
Du coup pas obliger de déclarer mon array ou si quand mˆeme?

le rezize permet de déterminer la plage?

Merci beaucoup de ton aide

[patricktoulon]

re
Bonjour
ben je sais pas ce que sont tes s(x) mais si c'est des controls alors non tu n'a pas a déclarer la variable .array écrit comme tel suffit

oui le resize permet de déterminer la plage a partir de la première cellule voulue

exemple

Code :

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

cells(1,1).resize(5,3)

correspondra a range ("A1:c5") car on résize de 5 lignes et 3 colonnes
démonstration

Code :

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

msgbox cells(1,1).resize(5,3).address

[kikiexcel]

re
Bonjour
ben je sais pas ce que sont tes s(x) mais si c'est des controls alors non tu n'a pas a déclarer la variable .array écrit comme tel suffit

oui le resize permet de déterminer la plage a partir de la première cellule voulue

exemple

Code :

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

cells(1,1).resize(5,3)

correspondra a range ("A1:c5") car on résize de 5 lignes et 3 colonnes
démonstration

Code :

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

msgbox cells(1,1).resize(5,3).address

Oui ce sont des contrôles d'un userform.
J'en ai une flopée je suis en train de modifier tout mon code. Tu peux comprendre du coup la lenteur extreme.

Est ce que je peux faire de meme avec ce code qui est la meme chose mais avec Cdate

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
    If IsDate(F1.Value) Then .Cells(lig1, "X") = CDate(F1.Value) Else .Cells(lig1, "X") = ""
    If IsDate(F2.Value) Then .Cells(lig1 + 1, "X") = CDate(F2.Value) Else .Cells(lig1 + 1, "X") = ""
    If IsDate(F3.Value) Then .Cells(lig1 + 2, "X") = CDate(F3.Value) Else .Cells(lig1 + 2, "X") = ""
    If IsDate(F4.Value) Then .Cells(lig1 + 3, "X") = CDate(F4.Value) Else .Cells(lig1 + 3, "X") = ""
    If IsDate(F5.Value) Then .Cells(lig1 + 4, "X") = CDate(F5.Value) Else .Cells(lig1 + 4, "X") = ""
    If IsDate(F6.Value) Then .Cells(lig1 + 5, "X") = CDate(F6.Value) Else .Cells(lig1 + 5, "X") = ""
    If IsDate(F7.Value) Then .Cells(lig1 + 6, "X") = CDate(F7.Value) Else .Cells(lig1 + 6, "X") = ""
    If IsDate(F8.Value) Then .Cells(lig1 + 7, "X") = CDate(F8.Value) Else .Cells(lig1 + 7, "X") = ""
    If IsDate(F9.Value) Then .Cells(lig1 + 8, "X") = CDate(F9.Value) Else .Cells(lig1 + 8, "X") = ""
    If IsDate(F10.Value) Then .Cells(lig1 + 9, "X") = CDate(F10.Value) Else .Cells(lig1 + 9, "X") = ""
    If IsDate(F11.Value) Then .Cells(lig1 + 10, "X") = CDate(F11.Value) Else .Cells(lig1 + 10, "X") = ""
    If IsDate(F12.Value) Then .Cells(lig1 + 11, "X") = CDate(F12.Value) Else .Cells(lig1 + 11, "X") = ""
    If IsDate(F13.Value) Then .Cells(lig1 + 12, "X") = CDate(F13.Value) Else .Cells(lig1 + 12, "X") = ""
    If IsDate(F14.Value) Then .Cells(lig1 + 13, "X") = CDate(F14.Value) Else .Cells(lig1 + 13, "X") = ""
    If IsDate(F15.Value) Then .Cells(lig1 + 14, "X") = CDate(F15.Value) Else .Cells(lig1 + 14, "X") = ""

j'essaie et je te redis

[unparia]

Bonjour
Je ne sais pas ce que tu fabriques ...
Si tes F1,F2, etc... sont des contrôles sur un userform et que le code est lancé depuis cet userform, ta boucle devrait être simplifiée ainsi (écrit à main levée et donc à vérifier) :

Code :

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

1
2
3
4
for k = 0 To 14
      quoi = Me.Controls("F" & k + 1).value
     .cells(lig1 + k, "X").value = iif(isdate(quoi), cdate(quoi), "")
 next

[patricktoulon]

oui et non car ici tu a une condition qu'il faudrait l' intégrer a chaque item de l'array ,l'ecriture en deviendrait plus compliquée

par contre tu largement simplifier l'écriture dans une simple boucle et toujours une seule ligne pour tes 15 controls "f(x)"

Code :

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

1
2
3
For i = 1 To 15
If IsDate(Me.Controls("F" & i).Value) Then .Cells(lig1 + (i - 1), "X") = Me.Controls("F" & i).text
End Sub

attention ce code implique que la macro se trouve dans le module du userform ou se trouvent tes controls F(x)

si c'est pas le cas remplacer "Me" par le nom du userform

et si lig1 vaut 1 au départ simplifier l'écriture comme suit

Code :

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

1
2
3
For i = 1 To 15
If IsDate(Me.Controls("F" & i).Value) Then .Cells(i, "X") = Me.Controls("F" & i).text
End Sub

voili voilou

[unparia]

Mon "je ne sais pas ce que tu fabriques" dans mon message précédent n'est pas là totalement fortuitement.
Il n'est pas impossible que si je connaissais tous les tenants et aboutissants de ton projet, c'est tout autre chose que je proposerais (y compris la conception), notamment si tes contrôles F1,F2, etc ... sont des textboxes.