Copier coller des infos avec VBA
Résolu
mds23
Messages postés
18
Date d'inscription
Statut
Membre
Dernière intervention
-
mds23 Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
mds23 Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
je suis actuellement en train de créer une sorte de logiciel de devis-facture. Mon but est de copier coller les données saisies dans le devis sur une liste (ou base de données).
Ceci n'est pas compliqué mais le problème est que mon tableau dynamique change de taille car le devis peut contenir 5 ou 10 lignes.
j'ai donc utilisé ceci:
Sub CopieCollDétails()
' copie et colle les lignes du devis
'Déclaration des variables
Dim Cpt As Variant
Dim I As Integer
'Positionnement de départ
Sheets("Devis - A2EV").Range("b29").Activate
'copie-colle
Cpt = Range("b29").CurrentRegion.Rows.Count
For I = 1 To Cpt
et ensuite la procédure "copier-coller" de ma première ligne devis vers la liste.
Cependant, lorsque je me met en code I=vide et Cpt=Vide alors que Count=9 (ou cela varie également).
Que dois-je faire que dois-je changer?
Merci d'avance !
je suis actuellement en train de créer une sorte de logiciel de devis-facture. Mon but est de copier coller les données saisies dans le devis sur une liste (ou base de données).
Ceci n'est pas compliqué mais le problème est que mon tableau dynamique change de taille car le devis peut contenir 5 ou 10 lignes.
j'ai donc utilisé ceci:
Sub CopieCollDétails()
' copie et colle les lignes du devis
'Déclaration des variables
Dim Cpt As Variant
Dim I As Integer
'Positionnement de départ
Sheets("Devis - A2EV").Range("b29").Activate
'copie-colle
Cpt = Range("b29").CurrentRegion.Rows.Count
For I = 1 To Cpt
et ensuite la procédure "copier-coller" de ma première ligne devis vers la liste.
Cependant, lorsque je me met en code I=vide et Cpt=Vide alors que Count=9 (ou cela varie également).
Que dois-je faire que dois-je changer?
Merci d'avance !
A voir également:
- Copier coller des infos avec VBA
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Style d'écriture a copier coller - Guide
- Arobase copier coller - Forum Windows 10
13 réponses
Bonjour,
Merci pour le code,
A la lecture de votre code, je comprends que vous copiez les valeurs des colonnes [C] à [I] de la ligne [29] de la feuille [Devis - A2EV] que vous collez sur la feuille [liste détails].....
Est-ce bien le cas...Oui Non
Merci de préciser ... !
Ce serait plus simple de vous comprendre avec un exemple du fichier... !
Merci pour le code,
A la lecture de votre code, je comprends que vous copiez les valeurs des colonnes [C] à [I] de la ligne [29] de la feuille [Devis - A2EV] que vous collez sur la feuille [liste détails].....
Est-ce bien le cas...Oui Non
Merci de préciser ... !
Ce serait plus simple de vous comprendre avec un exemple du fichier... !
c'est exact je copie les valeurs de b29 à I29 de la feuille Devis-A2ev sur la feuille liste détails.
je veux bien vous transmettre une copie du fichier mais cela m'est impossible sur le message, pas de pièce jointe disponible.
je veux bien vous transmettre une copie du fichier mais cela m'est impossible sur le message, pas de pièce jointe disponible.
Bonjour,
Pour une copie du fichier la mettre sur https://www.cjoint.com/ et poster le lien sur votre message.
Pour une copie du fichier la mettre sur https://www.cjoint.com/ et poster le lien sur votre message.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
https://www.cjoint.com/?3CpxFx8MQcv
Ci joint le lien avec une version simplifiée de mon devis (pour des raisons de confidentialité)
merci de votre aide
Ci joint le lien avec une version simplifiée de mon devis (pour des raisons de confidentialité)
merci de votre aide
Bonjour,
Pouvez-vous préciser les valeurs à prendre en compte pour les colonnes nommées [Colonne1] à [Colonne4] de la feuille [liste de détails]... ?
Merci.
Pouvez-vous préciser les valeurs à prendre en compte pour les colonnes nommées [Colonne1] à [Colonne4] de la feuille [liste de détails]... ?
Merci.
je tiens également à préciser que j'ai essayé avec la variable
Dim Cpt as integer
et que cela n'a rien changé.
Cordialement
Dim Cpt as integer
et que cela n'a rien changé.
Cordialement
Bonjour,
Ma proposition se base du tableau Excel structuré que vous utilisez pour vos données du devis.
J'espère que c'est dans le bon sens !
Votre exemple : https://www.cjoint.com/c/ECqw2mAaRuI
Ma proposition se base du tableau Excel structuré que vous utilisez pour vos données du devis.
J'espère que c'est dans le bon sens !
Votre exemple : https://www.cjoint.com/c/ECqw2mAaRuI
Bonjour,
effectivement j'ai des difficultés... ce que vous avez réalisé est parfait le seul problème est que les données recopiées ne se mettent pas dans une liste( tableau dynamique) donc je ne peux pas m'en servir pour faire de recherche V... je ne sais plus quoi faire....
effectivement j'ai des difficultés... ce que vous avez réalisé est parfait le seul problème est que les données recopiées ne se mettent pas dans une liste( tableau dynamique) donc je ne peux pas m'en servir pour faire de recherche V... je ne sais plus quoi faire....
Bonjour à tous,
mon second problème ici est que je souhaite transformer mon devis en facture, mais un devis déjà transformé en facture ne peut être modifié. Or je cherche à intégrer une macro pour bloquer le numéro de devis si déjà transformé. Besoin d'aide SVP..
Merci d'avance à tous!
Salutations
mon second problème ici est que je souhaite transformer mon devis en facture, mais un devis déjà transformé en facture ne peut être modifié. Or je cherche à intégrer une macro pour bloquer le numéro de devis si déjà transformé. Besoin d'aide SVP..
Merci d'avance à tous!
Salutations
Sheets("Devis - A2EV").Select
Range("B29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste détails").Select
Range("LisDetails[[Référence ]]").Select
ActiveSheet.Paste
Sheets("Devis - A2EV").Select
Range("C29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste détails").Select
Range("LisDetails[Designation]").Select
ActiveSheet.Paste
Sheets("Devis - A2EV").Select
Range("D29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste détails").Select
Range("LisDetails[Quantité]").Select
ActiveSheet.Paste
Sheets("Devis - A2EV").Select
Range("E29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste détails").Select
Range("LisDetails[Prix Unitaire HT]").Select
ActiveSheet.Paste
Sheets("Devis - A2EV").Select
Range("F29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste détails").Select
Range("LisDetails[Montant HT]").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Devis - A2EV").Select
Range("G29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste détails").Select
Range("LisDetails[Prix Unitaire Brut]").Select
ActiveSheet.Paste
Sheets("Devis - A2EV").Select
Range("H29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste détails").Select
Range("LisDetails[Montant Brut]").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Devis - A2EV").Select
Range("I29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Liste détails").Select
Range("LisDetails[Numéro devis]").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Activate
Next I
End Sub