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