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.
Merci de votre aide et de votre temps
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
Coordialement
Partager