simplification de macro par une boucle

@jacques on c'est croisé:mouarf:

en effet si se sont des cellules qui sont plusieurs fois mises a jour il est important de les vider alors dans le meme sens que unparia rajouter le vidage dans un else

Code:

---

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).Value else .Cells(lig1 + (i - 1), "X")="" End Sub

---

ce qui reviens au même que unparia sous ou autre forme d'écriture

merci unparia et patricktoulon,

Effectivement sur mon userform tout mes contrôles sont des textbox listbox combobox.


le but de mon projet c'est une boite de dialogue que je remplis où ensuite je vais renseigner une bdd que j'exploite pour en extraire des graphique etc...
Pourquoi 15 lignes ? je me sert de la bdd pour des taches de productions avec chaque tache une durée qui y est associée. Chaque pièces a un titre qui est répéter 15 fois et en face mes 15 lignes de productions

Ma bdd via cette boite de dialogue est on peut y ajouter des données mais aussi modifier ces données.

Unparia et patricktoulon pour votre info lig1 c'est:

Code:

---

lig1 = .Columns("A").Find(What:=Me.ListBox1.Value, LookIn:=xlValues).Row

---

merci a vous

J'ai fait comme vous m'avez expliquer messieurs:
cela marche très bien et cette partie de code s'exécute environ en 10 secondes.

Je suis sur qu'il y a moyen de mieux faire j'ai essayer de regrouper mes colonnes pour faire un tableau commun mais cela ne fonctionne pas étant donné mes colonne ne se suivent pas.

J'aurais bien voulu que cela fasse un genre comme cela mais erreur:

Code:

---

.cells(lig1 +I, "B","C","D").resize(15,3).value=application.transpose(array(A3,A7,(format(date1,"mm/dd/yyyy"))))

---

ci dessous le code qui fonctionne mais j'avoue que c idiot de ma part vu que cela fait des tableaux a 1 dimension et je ne gagne rien en temps

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

With Sheets("bdd") For I = 0 To 14 lig1 = .Columns("A").Find(What:=Me.ListBox1.Value, LookIn:=xlValues).Row     .Cells(lig1 + I, "B").Resize(15, 1).Value = Application.Transpose(Array(A3)) .Cells(lig1 + I, "C").Resize(15, 1).Value = Application.Transpose(Array(A7)) .Cells(lig1 + I, "D").Resize(15, 1).Value = Application.Transpose(Array(Format(Date1, "mm/dd/yyyy"))) .Cells(lig1 + I, "G").Resize(15, 1).Value = Application.Transpose(Array(comptage)) .Cells(lig1 + I, "H").Resize(15, 1).Value = Application.Transpose(Array(Motif)) .Cells(lig1 + I, "I").Resize(15, 1).Value = Application.Transpose(Array(TK_ILD)) .Cells(lig1 + I, "J").Resize(15, 1).Value = Application.Transpose(Array(Préventif)) .Cells(lig1 + I, "K").Resize(15, 1).Value = Application.Transpose(Array(Format(Date2, "mm/dd/yyyy"))) .Cells(lig1 + I, "L").Resize(15, 1).Value = Application.Transpose(Array(Lieu)) .Cells(lig1 + I, "Y").Resize(15, 1).Value = Application.Transpose(Array(Date3))   If CheckBox17 = True Then .Cells(lig1 + I, "F") = "1" Else .Cells(lig1 + I, "F") = "" Next I

---

re

j'avoue ne pas comprendre tes intentions:ptdr:

je ne suis pas sur que tu es compris le principe d'injection d'un array dans une plage

ca fait quoi exactement ces lignes
donne moi l'explication au moins pour la première c'est quoi Array(A3)

Code:

---

.Cells(lig1 + I, "B").Resize(15, 1).Value = Application.Transpose(Array(A3))

---

si tes intentions sont de mettre la valeur de A3 dans tes 15 cellules alors pas besoins d'array

soit A3 est un controls alors

Code:

---

.Cells(lig1 + I, "B").Resize(15, 1).Value = A3.value

---

soit A3 est une cellule alors

Code:

---

.Cells(lig1 + I, "B").Resize(15, 1).Value = sheets("nom_du_sheets").range("A3").value

---

tes 15 cellules auront la même valeur

:arf::bug::koi:

Bonjour,
23 fils pour cette discussion ?
Une question bien posée pour un problème simple ne devrait pas dépasser cinq réponses.

Si tu affichais un extrait des données sources (image) et ce que tu attends comme résultat final (image encore), je crois que tu aurais une réponse nette et précise.

re
je dirais même plus

avec ceci tu fait 15 fois le même travail

Code:

---

1 2 3 4 5 6

For I = 0 To 14 lig1 = .Columns("A").Find(What:=Me.ListBox1.Value, LookIn:=xlValues).Row .Cells(lig1 + I, "B").Resize(15, 1).Value = Application.Transpose(Array(A3)) '.....

---

donc déjà toutes tes lignes ne doivent pas être répétées dans une boucle supprime donc cette boucle

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
23 fils pour cette discussion ?

---

Inquiétant et en effet devenu trop fréquent.
La cause est pour moi claire et souvent la même, à commencer par une évidente méconnaissance à la base-même. ;)

Oui je connais mal et j aimerais apprendre car on peu vraiment faire beaucoup de chose avec les macros.

Merci beaucoup d'avoir pris du temps pour moi
je ne veux plus polluer le post.

Encore merci de votre attention

Citation:

---

Envoyé par patricktoulon

re
je dirais même plus

avec ceci tu fait 15 fois le même travail

Code:

---

1 2 3 4 5 6

For I = 0 To 14 lig1 = .Columns("A").Find(What:=Me.ListBox1.Value, LookIn:=xlValues).Row .Cells(lig1 + I, "B").Resize(15, 1).Value = Application.Transpose(Array(A3)) '.....

---

donc déjà toutes tes lignes ne doivent pas être répétées dans une boucle supprime donc cette boucle

---

J'ai résolu effectivement mon probleme en supprimant la boucle et la meme chose est réalisée. j'ai compris ce que tu ma dit de faire merci Patrick
je place en résolu

merci a vous tous