Modification code VBA

Résolu/Fermé

marc07 Messages postés 590 Date d'inscription dimanche 3 avril 2011 Statut Membre Dernière intervention 18 octobre 2014 - 30 juil. 2011 à 12:16
marc07 Messages postés 590 Date d'inscription dimanche 3 avril 2011 Statut Membre Dernière intervention 18 octobre 2014 - 31 juil. 2011 à 17:39

Bonjour,
Bien que débutant, j'ai créé une feuil avec un code en VBA qui sert a copier des cellules de la feuil Consultation pour recopier dans la feuil Feuil_Entrée, mon souci est le suivant je voudrais que la copie en feuil Feuil_Entrée commence en B10, mais la elle commence en B2 je n'arrive pas à faire pour qu(elle soit en B10

voici le code en entier
Sub enregistrer_modification()

Range("A2:G2").Select
Selection.Copy
Sheets("BD_Produits").Select
Range("A" & [Param_ligne] + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Consultation").Select
Dim lg As Integer
lg = Sheets("Feuil_Entrée").Range("A65536").End(xlUp).Row + 1
Range("B2:E2").Copy
Sheets("Feuil_Entrée").Range("B" & lg).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Sheets("Consultation").Select
Range("C9:C10").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("D12").Select
End Sub
mais je pense que cela vient mon souci de cette partie
Dim lg As Integer
lg = Sheets("Feuil-Entrée").Range("A65536").End(xlUp).Row + 1
Range("B2:E2").Copy
Sheets("Feuil-Entrée").Range("B" & lg).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
voila si une personne pouvais m'aider je le remercie d'avance

Marc

A voir également:

Modification code VBA
Code asci - Guide
Logiciel modification pdf - Guide
Suivi de modification word - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide

9 réponses

Réponse 1 / 9

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 213
30 juil. 2011 à 13:50

Bonjour,

j'ai l'impression que tu t'ai trompé de nom dans Sheets("Feuil-Entrée")
C'est pas plutôt "Feuil_Entrée" ?

eric

Réponse 2 / 9

marc07 Messages postés 590 Date d'inscription dimanche 3 avril 2011 Statut Membre Dernière intervention 18 octobre 2014 187
31 juil. 2011 à 00:10

oui tout a fait eriiic c'est moi qui me suis tromper en mettant mon code ici mais le probleme n'est pas celui la , mais dans ma feuil entré ou mon code me permet pas de commencer en cellule B10 mais il demarre en B2

merci

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 213
31 juil. 2011 à 00:35

lg = Sheets("Feuil-Entrée").Range("A65536").End(xlUp).Row + 1
As-tu qcq chose dans Sheets("Feuil-Entrée").Range("A9") ?
Si non, il faut y mettre une saisie
Tu te cales sur la colonne A pour inscrire en colonne B. Si tu n'inscris jamais rien en A tu continueras à écraser B...

Quoiqu'il en soit pour des pb comme ça c'est mieux de déposer un fichier exemple, là on se contente d'essayer d'imaginer le fonctionnement :-s

eric

Réponse 3 / 9

marc07 Messages postés 590 Date d'inscription dimanche 3 avril 2011 Statut Membre Dernière intervention 18 octobre 2014 187
31 juil. 2011 à 13:57

Bonjour,

Voici mon fichier

http://www.cijoint.fr/cjlink.php?file=cj201107/cijGqoo12U.xlsm

Merci d'avance

Marc

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 213
Modifié par eriiic le 31/07/2011 à 14:38

Bonjour,

Je maintiens ma réponse précédente, tu peux la lire..
Tu te cales sur la colonne A pour inscrire en colonne B. Si tu n'inscris jamais rien en A tu continueras à écraser B...
Et réciproquement si tu te cales sur la colonne B tu écriras où c'est prévu

eric

edit: en clair remplace :
lg = Sheets("Feuil-Entrée").Range("A65536").End(xlUp).Row + 1
par :
lg = Sheets("Feuil-Entrée").Range("B65536").End(xlUp).Row + 1

Réponse 4 / 9

amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
31 juil. 2011 à 14:29

je te conseil de faire des lien c'est mieux

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 9

marc07 Messages postés 590 Date d'inscription dimanche 3 avril 2011 Statut Membre Dernière intervention 18 octobre 2014 187
31 juil. 2011 à 14:34

merci, j'avais deja penser avec la fonction recherchev mais il va y avoir des doublons dans des listes alors cela n'est pas vraiment la solution

Réponse 6 / 9

amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
31 juil. 2011 à 14:57

C'est bon j'ai trouvé

Sub enregistrer_modification()

Range("A2:G2").Select
Selection.Copy
Sheets("BD_Produits").Select
Range("A" & [Param_ligne] + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Consultation").Select
Dim lg As Integer
lg = Sheets("Feuil_Entrée").Range("A65536").End(xlUp).Row + 9
Range("B2:E2").Copy
Sheets("Feuil_Entrée").Range("B" & lg).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Sheets("Consultation").Select
Range("C9:C10").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("D12").Select
End Sub

Réponse 7 / 9

amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
Modifié par amine69500 le 31/07/2011 à 15:01

tu fais copier coller et ça marche sinon le lien le fichier est modifier

http://www.cijoint.fr/cjlink.php?file=cj201107/cij46sPCVe.xlsm

tiens moi au courant

Réponse 8 / 9

marc07 Messages postés 590 Date d'inscription dimanche 3 avril 2011 Statut Membre Dernière intervention 18 octobre 2014 187
31 juil. 2011 à 16:13

Merci amine69500, cela fonction super, en faite j'ai vue que a ajouter +9 au lieu de +1 dans la ligne (lg = Sheets("Feuil_Entrée").Range("A65536").End(xlUp).Row + 9 ) merci encore milles fois

Marc

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 213
31 juil. 2011 à 16:58

tu devrais quand même lire le post7...
eric

Réponse 9 / 9

marc07 Messages postés 590 Date d'inscription dimanche 3 avril 2011 Statut Membre Dernière intervention 18 octobre 2014 187
31 juil. 2011 à 17:39

oui eriiic j'avais vue merci a la place du A j'ai bien mit le B car en faite c'était la solution

merci

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Acces à snapchat temporairement désactivé

Discussions similaires

Newsletters