Macro copier sur ligne suivante
Résolu
atn
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je cherche à faire un tableau historique de facture à partir des factures que je remplis.
Du coup j'ai trouvé des formules pour l'éditeur de macro telle que
ligne=Sheets("Archives"). Range("A2").End(xlDown).Row+1 (pour le tableau historique de facture)
Sheets("Archives").Range("A"&ligne).value=Sheets("Facture").Range("Cellule à copier").value
La formule est censée marcher mais lorsque je la teste l'erreur semble résider dans la selection de la ligne (il m'indique une ligne 100000 et des poussières).
Auriez vous une solution et désolé si je m'exprime mal.
Merci d'avance
Je cherche à faire un tableau historique de facture à partir des factures que je remplis.
Du coup j'ai trouvé des formules pour l'éditeur de macro telle que
ligne=Sheets("Archives"). Range("A2").End(xlDown).Row+1 (pour le tableau historique de facture)
Sheets("Archives").Range("A"&ligne).value=Sheets("Facture").Range("Cellule à copier").value
La formule est censée marcher mais lorsque je la teste l'erreur semble résider dans la selection de la ligne (il m'indique une ligne 100000 et des poussières).
Auriez vous une solution et désolé si je m'exprime mal.
Merci d'avance
Configuration: Windows / Chrome 71.0.3578.98
A voir également:
- Macro copier sur ligne suivante
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Partager photos en ligne - Guide
- Comment copier une vidéo youtube - Guide
- Mètre en ligne - Guide
- Super copier - Télécharger - Gestion de fichiers
6 réponses
Bonjour,
Chez moi cela fonctionne:
Chez moi cela fonctionne:
Dim ligne As Long
ligne = Sheets("Archives").Range("A2").End(xlDown).Row + 1 '(pour le tableau historique de facture)
MsgBox ligne
Sheets("Archives").Range("A" & ligne).Value = Sheets("Facture").Range("A1").Value
Bonjour à tous les deux
Essaies une autre syntaxe pour déterminer ligne (pas garanti bien sûr)
ligne = Sheets("Archives").Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
Cdlmnt
Essaies une autre syntaxe pour déterminer ligne (pas garanti bien sûr)
ligne = Sheets("Archives").Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
Cdlmnt
Je ne m’attendais pas à des réponses aussi rapides. Je vais revoir ça demain mais au cas où, cela peut il provenir d’une différence entre Mac et PC ?
Il peut y avoir un bug qui a crée des lignes, voir ceci pour les supprimer
https://www.pcastuces.com/pratique/astuces/2726.htm
https://www.pcastuces.com/pratique/astuces/2726.htm
Bonjour,
J'ai toujours des bug avecles formules utilisées sous VBA... Du coup j'ai créé le lien vers mon fichier.
https://www.cjoint.com/c/IAtmdQugLEQ
J'ai toujours des bug avecles formules utilisées sous VBA... Du coup j'ai créé le lien vers mon fichier.
https://www.cjoint.com/c/IAtmdQugLEQ
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Un exemple de ton fichier serait le bienvenu accompagné d’explications
Pour transmettre un fichier, il faut passer par un site de pièce jointe tel que cjoint.com
Va sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse..
Cordialement
Un exemple de ton fichier serait le bienvenu accompagné d’explications
Pour transmettre un fichier, il faut passer par un site de pièce jointe tel que cjoint.com
Va sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse..
Cordialement
