aide sur la création d'une macro pour un tableau

Bonjour,
Sauriez vous comment faire pour :
Je vais vous expliquer avec une mise en situation.

Feuil!6 ,la cellule E9 doit aller dans la colonne F de la feuil!8.
Mais , Feuil!6, la cellule E10 doit elle aussi aller dans la colonne F de la feuil!8 mais doit se placer en dessous du ressultat enregistrer avant.
Et la meme chôse se répéte jusqu'a la cellule E12 de la feuil!6 qui va aussi en F de la feuil!8.

J'ai deja un bout de macro et je voudrais adapter la solution dessus.

Code:

---

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

Option Compare Text   Sub Valide() Dim DerVal As Long Set f1 = Sheets("Feuil6") Set f2 = Sheets("Feuil8") Application.ScreenUpdating = False Derligf2 = f2.[B100000].End(xlUp).Row If Derligf2 < 3 Then Derligf2 = 2 f2.Cells(Derligf2 + 1, "J") = f1.[E8] + f1.[E9] + f1.[E10] + f1.[E11] f2.Cells(Derligf2 + 1, "B") = f1.[E3] f2.Cells(Derligf2 + 1, "A") = f1.[B3] f2.Cells(Derligf2 + 1, "C") = f1.[B5] f2.Cells(Derligf2 + 1, "D") = f1.[B6] f2.Cells(Derligf2 + 1, "E") = f1.[E6]       End Sub

---

Merci de votre aide et de votre temps
Coordialement

Citation:

---

Envoyé par Destroyeur76

Feuil!6 ,la cellule E9 doit aller dans la colonne F de la feuil!8.
Mais , Feuil!6, la cellule E10 doit elle aussi aller dans la colonne F de la feuil!8 mais doit se placer en dessous du ressultat enregistrer avant.
Et la meme chôse se répéte jusqu'a la cellule E12 de la feuil!6 qui va aussi en F de la feuil!8.

---

Code:

---

Worksheets("Feuil6").Range("E9:E12").Copy Worksheets("Feuil8").Cells(Rows.Count, "F").End(xlUp).Offset(1, 0)

---

bonjour, Menhin

J'ai essayer de rentrer ton code, mais il me marque débegage et me le souligne en fluo Jaune , je n'ai pas réussi a le faire fonctionner.
Mais je te remerci pour ce code et le temps que tu a passer a le faire.
:D

Quel est le message d'erreur ?
Est-ce qu'il y a déjà une cellule non vide dans la colonne F de Feuil8 ?

bonjour, MENHIR,
J'ai déja la cellule F1 occuper et la F2 d'occuper et le message d'erreurs est :IMPOSSIBLE DE MODIFIER UNE CELLULE FUSIONE.
J'ai essayer de modifier ton code a partir du F en remétant (If.derligf2 <3 then ...) mais sa na pas voulue fonctionner.
Mon code ressemble a sa, si tu a une idée ? , je te remercie pour le temps passer sur mon probléme. :

Code:

---

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

Option Compare Text   Sub Valide() Dim DerVal As Long Set f1 = Sheets("Feuil6") Set f2 = Sheets("Feuil8") Application.ScreenUpdating = False Derligf2 = f2.[B100000].End(xlUp).Row If Derligf2 < 3 Then Derligf2 = 2 f2.Cells(Derligf2 + 1, "J") = f1.[E8] + f1.[E9] + f1.[E10] + f1.[E11] f2.Cells(Derligf2 + 1, "B") = f1.[E3] f2.Cells(Derligf2 + 1, "A") = f1.[B3] f2.Cells(Derligf2 + 1, "C") = f1.[B5] f2.Cells(Derligf2 + 1, "D") = f1.[B6] f2.Cells(Derligf2 + 1, "E") = f1.[E6] Worksheets("Feuil6").Range("E9:E12").Copy Worksheets("Feuil8").Cells(Rows.Count, "F").End(xlUp).Offset(1, 0)     End Sub

---

Citation:

---

Envoyé par Destroyeur76

le message d'erreurs est :IMPOSSIBLE DE MODIFIER UNE CELLULE FUSIONE.

---

Je pense que le message est clair : ce sont tes fusions de cellules qui mettent le boxon.

Je pense que le message me dit sa car dans ma collone F , la ligne 2 est une cellule fusioner.
Mais sur toutes mes collones la ligne 2 est fusionner , alor comment sa se fait que les autres formules fonctionnent ?

merci de ton temps passer a m'aider.

Les autres lignes sont des affectations de valeur.
Cette nouvelle ligne est une copie de cellules.
Ce n'est pas la même chose.

j'ai supprimer la fusion et maintenant sa me marque : erreur définit par l'applie ou par l'objet , donc cette formule est inutilisable.
ou il y a une erreur par rapport a mes autre action contenue dans ma macro qui la rend inutilisable.
Le but est que cette nouvelle ligne de code s'incorpore avec les anciennes.

Bonjour,

Je vient de comprendre le probléme, ce qui a été fait c'est que les cellule sont prise en entiere ... comme un copier coller de toute la cellule.
Mais ce que je veut faire moi, c'est casiment la meme chause mais je ne veut prendre que les valeurs contenue dans ces cellule, pas le reste et que sa fasse bien une boucle.

Pour ne copier que les valeur, tu peux utiliser la méthode PasteSpecial(xlPasteValues).
https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)

Pour faire une boucle, tout est expliqué ici : http://silkyroad.developpez.com/vba/boucles/
Et aussi ici : http://bidou.developpez.com/article/VBA/