Discussion :

[MAKBOB]

Bonjour,
Je suis nouveau. J'ai un grand souci sur une macro si quelqu'un peut m'aider SVP.
J'ai un fichier Excel dans lequel j'ai un onglet avec une liste d'attente et un autre avec une liste normale. La liste est alimenté de temps en temps mais quelque fois des données sont remontés de la liste d'attente. J'ai fait une macro qui fonctionne. Le souci c'est quand elle fait remonté des données vers la liste normale elle m'écrase tout ce qui a été saisi sauf les lignes remontées de la liste d'attente. Donc le souci c'est arrivé à modifier la macro pour qu'elle transfère les données seulement à la suite des données déjà existantes dans la liste normale. Ma macro est la suivante :

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
20
21
22
23
24
25
26
Sub Recopier()
 Tablo = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L")
 Ln1 = 8
 Ln2 = 8
 While Cells(Ln1, 1).Value <> ""
 If UCase(Range("P" & Ln1).Value) = "MEP" Then
 Col2 = 0
 For Each Col In Tablo
 Sheets("TB SITUATION EN PLACE").Cells(Ln2, Col2 + 1).Value = Range(Tablo(Col2) & Ln1).Value
 Col2 = Col2 + 1
 Next Col
 Ln2 = Ln2 + 1
 End If
 Ln1 = Ln1 + 1
 Wend
 Sheets("TB SITUATION EN PLACE").Activate
 
 Range("A7").CurrentRegion.Select
 
 
 With Range("A8:L" & Ln2 - 1)
 
 End With
 
 
 End Sub

Merci beaucoup de votre aide

[patricktoulon]

Bonsoir
c'est un peu bancale tout ca
je te propose de travailler avec les fonctions Excel vba pour changer

tu pourrais peut être aussi t'essayer avec l'enregistreur de macro et remanier ton code sur les imperfections ou éventuelles modifications
adapte ton sheets(1) et 2 le reste se fait tout seul

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro3()
    Dim nextrow
    With Sheets(1)
        nextrow = .Cells(Rows.Count, 1).End(xlUp).Row
        .Range(Cells(8, 1), Cells(nextrow, "L")).Select
        .Range("A8:A" & nextrow).AutoFilter Field:=1, Criteria1:="MEP"
        Selection.Copy Destination:=Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(2, 0)
        Selection.AutoFilter
    End With
End Sub

je te laisse analyser cela

[MAKBOB]

bonjour,
merci pour votre réponse, je vais essayer de tester et je vous tiens au courant