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
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
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
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 211
30 juil. 2011 à 13:50
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
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
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
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
merci
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 211
31 juil. 2011 à 00:35
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
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
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
31 juil. 2011 à 13:57
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
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 211
Modifié par eriiic le 31/07/2011 à 14:38
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
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
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
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
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
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
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
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
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
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
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
http://www.cijoint.fr/cjlink.php?file=cj201107/cij46sPCVe.xlsm
tiens moi au courant
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
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
Marc
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
28 décembre 2023
7 211
31 juil. 2011 à 16:58
31 juil. 2011 à 16:58
tu devrais quand même lire le post7...
eric
eric
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
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
merci