Modification code VBA
Résolu
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
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
9 réponses
-
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 -
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-
Contributeurtu devrais quand même lire le post7...
eric
-
-
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 -
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 -
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
-
je te conseil de faire des lien c'est mieux
-
Bonjour,
Voici mon fichier
http://www.cijoint.fr/cjlink.php?file=cj201107/cijGqoo12U.xlsm
Merci d'avance
Marc-
ContributeurBonjour,
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
-
-
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-
Contributeurlg = 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
-
-
ContributeurBonjour,
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
