XL 2016 Problème Macro

[max006]

Bonjour ,

Je suis entrain de crée un formulaire basic ( j'ai un niveau très très bas )

Voici le code :

Sheets("Prod").Range("D2:J2").Select
Selection.Copy
Sheets("Juin").a4 ").End(xlDown).Offset(1, 0).Select"


Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Prod").Select
Range("D8:F8").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("D11").Select
Selection.ClearContents
Range("F11").Select
Selection.ClearContents
Range("F14").Select
Selection.ClearContents
Range("F17").Select
Selection.ClearContents
Range("D14").Select
Selection.ClearContents
Range("D17").Select
Selection.ClearContents
End Sub

La macro fonctionne bien mais par contre elle ne va pas a la ligne suivante dans mon classeur , aurez vous des idées ?
Merci d'avance

 

[Jacky67]

cathodique​

Pour info
L'adresse de Jacques à migrée
http://boisgontierjacques.free.fr/
Pour

Formation Excel VBA JB

 

[cathodique]

cathodique​

Pour info
L'adresse de Jacques à migrée
http://boisgontierjacques.free.fr/
Pour

Formation Excel VBA JB

Bonjour @Jacky67,

Merci. Je m'en suis rendu compte mais je n'ai plus la main pour mettre à jour le lien.
Ma foi, si l'administrateur ou le modérateur veuillent bien mettre à jour le lien à place ça serait sympa et éviterai des désagréments à ceux/celles qui cliqueraient sur le lien.
Je crois que je ne suis pas le seul a voir mis des liens vers des sites; ça serait bien de vérifier que les liens ne sont pas obsolètes. ça serait un plus de sérieux pour l'image du forum XLD.
En tout cas merci beaucoup.

Bonne journée.

 

[patricktoulon]

bonjour à tous
@Jacky67
merci pour le nouveau lien
espéreront que les autres lien concernant les fonction vba ,ado , shapes ,commentaires etc.. soit publié et soitent mis ajour dans les liens interne de la page que tu a cité