Modification code VBA
Résolu
marc07
Messages postés
630
Statut
Membre
-
marc07 Messages postés 630 Statut Membre -
marc07 Messages postés 630 Statut Membre -
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
A voir également:
- Modification code VBA
- Code ascii - Guide
- Suivi de modification word - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
9 réponses
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
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
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
merci
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
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
Bonjour,
Voici mon fichier
http://www.cijoint.fr/cjlink.php?file=cj201107/cijGqoo12U.xlsm
Merci d'avance
Marc
Voici mon fichier
http://www.cijoint.fr/cjlink.php?file=cj201107/cijGqoo12U.xlsm
Merci d'avance
Marc
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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
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
http://www.cijoint.fr/cjlink.php?file=cj201107/cij46sPCVe.xlsm
tiens moi au courant
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
Marc
