
Envoyé par
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 :
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
Partager