Discussion :

[Destroyeur76]

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 :

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

[Menhir]

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 :

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

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

[Destroyeur76]

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.

[Menhir]

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

[Destroyeur76]

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 :

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

[Menhir]

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.