Insertion d’une ligne en VBA

Question

Voilà j'ai un souci en exel 2007, peut être pouvez-vous m'aider Je fais à l'aide d'une macro qui fait une sélection de cellules en feuille Consultation deA2 :F2 que je recopie sur une autre feuille Feuil-Entrée en (b11:f11) jusque-là tout va bien mais je voudrais qu'a la prochaine action les cellules en Feuil-Entrée ce copie en ( b12:f12 ) Sheets("Consultation").Select Range("A16").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "" Range("A2:F2").Select Selection.Copy Sheets("Feuil-Entrée").Select ActiveWindow.SmallScroll Down:=-18 Range("A11").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Consultation").Select Si quelqu'un pouvais m'aider suis encore à mes début en VBA Cela est un exercice afin que je puisse apprendre Merci d'avance Marc...

Nad · Answer

Je ne comprends pas l'action sur la cellule A16 (elle se met à blanc avec ton code). Pour copier les cellules : Sub Copie() Lg = Sheets("Feuil-Entrée").Range("A65536").End(xlUp).Row + 1 Range("A2:F2").Copy Sheets("Feuil-Entrée").Range("A" &amp; Lg) End Sub Edit : fichier Amicalement Nad...

spyderpaint · Answer

C'est tres simple il faut utiliser les reférences relatives mais je ne peux pas te e faire sans voir ton tableau car selon comment il est fait je vais te programmer quelque chose et tu va me dire que ca ne marche pas sinon le bouton pour passer en relatif c'est le bouton sous enregistrer macro et cela signifie qu'au lieu de mettre ex range("a1").select range("b4").select pour aller de la case A1 a B4 tu ecrit range("A1").select ton point de départ ActiveCell.Offset(4,1).Range("A1").Select ton point d'arriver est 4 ligne en dessous et 1 colonne sur le coté donc tu peut mettre en + ou en - pour aller de haut en bas de droit a gauche et pour ton cas il faut utiliser la touche fin a coté de sup sur le clavier pour aller chercher la dernière case remplis et en relatif - une case bon je sais pas si c'est clair mais envoi ton fichier tu comprendra mieux avec la macro sous les yeux en mode débugage a tout de suite...

Dan · Answer

D'après ce que je lis sur ton code et à cause du collage spécial, je modifierai le code de Nad comme ceci : Sub Copie() Dim lg As Integer lg = Sheets("Feuil-Entrée").Range("A65536").End(xlUp).Row + 1 Range("A2:F2").Copy Sheets("Feuil-Entrée").Range("A" &amp; lg).PasteSpecial Paste:=xlValues Application.CutCopyMode = False End Sub Sinon comme Nad, pourquoi supprimer la formule en A16 ?? Amicalement...