Bonjour le forum,
J’utilise le code suivant pour copier une ligne d’un onglet (Feuil1) dans un autre onglet archive (Feuil2).
J’effectue ce transfert quotidiennement du dimanche au vendredi (6 lignes par semaine).
(Voir ci-joint un extrait du fichier type)
Mais dans ce fichier archive (Feuil2) je dois garder la ligne du samedi vide.
Or, je ne sais pas dire au code ci-dessus de sauter cette ligne vide (correspondant au samedi) ;
Je suis obligée de le faire à chaque fois manuellement.
Avec toute ma reconnaissance si quelqu’un peut m’aider à trouver une solution.
Cordialement
Céline
J’utilise le code suivant pour copier une ligne d’un onglet (Feuil1) dans un autre onglet archive (Feuil2).
Sub copy()
Dim derlig As Long
derlig = Sheets("Feuil2").Columns(4).Find("*", , , , , xlPrevious).Row + 1
Sheets("Feuil1").Range("D6:K6").Copy
Sheets("Feuil2").Range("D" & derlig).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
J’effectue ce transfert quotidiennement du dimanche au vendredi (6 lignes par semaine).
(Voir ci-joint un extrait du fichier type)
Mais dans ce fichier archive (Feuil2) je dois garder la ligne du samedi vide.
Or, je ne sais pas dire au code ci-dessus de sauter cette ligne vide (correspondant au samedi) ;
Je suis obligée de le faire à chaque fois manuellement.
Avec toute ma reconnaissance si quelqu’un peut m’aider à trouver une solution.
Cordialement
Céline