Couper/coller tableau
Bonjour à tous,
Dans un classeur, j'ai 2 feuilles de calcul, "Feuil1" et "Feuil2"
Dans la feuille "Feuil1" il y a une colonne
Sub Macro1()
i = 5
While i < 20
If Cells(i, 4) = "ok" Then
Range(Cells(i, 2), Cells(i, 6)).Select
Selection.Cut
Sheets("Feuil2").Select
Range(Cells(i, 2), Cells(i, 6)).Select
ActiveSheet.Paste
End If
Sheets("Feuil1").Select
i = i + 1
Wend
End Sub
Cependant le couper/coller supprime les lignes déjà existantes dans le tableau de la "Feuil2". Comment pourrais je faire pour que les lignes coller se rajoutent aux lignes déjà existante sans les supprimer ? (se mettent à la suite..)
Pouvez-vous m'aider sur cette question s'il vous plait ?
D'avance merci
Cordialement
Bonsoir,
le problème est que la "Past" est lié au numéro de ligne de la feuille 1 par l'intermédiaire de la variable "i".
La solution est d'enlever le i du past et de le remplacer par le numéro de ligne de la dernière cellule pleine de la colonne +1.
Trouver la dernière cellule pleine +1 devrait être dans vos cordes avec ce site ou bien avec un moteur de recherche !
Je vous apprend à pêcher plutôt que de vous nourrir !
Bonne chance et @ bientôt
LouReeD
Bonsoir !
Merci beaucoup pour votre réponse si rapide. J'ai réussi à régler mon problème et maintenant tout fonctionne nickel
Merci
Galactic
Bonsoir,
merci pour votre retour (si) rapide !
Alors vous avez trouvé ? N'hésitez pas à partager le code pour les autres forummeurs.
Merci @ vous.
@ bientôt
LouReeD