Codes VBA : insérer une nouvelle ligne dans une feuille ExcelRésolu

Question

Bonjour, 

Suite à la création d'UserForm destinés à la gestion du parc auto de mon entreprise j'ai créé un bouton "ajouter" permettant d'ajouter véhicules, factures ou encore sinistres. 

Mon fichier est composé de 3 feuilles Excel : l'une pour les véhicules, les factures et une dernière pour les sinsitres. 


Pour "ajouter" un véhicule j'ai utilisé les codes suivants: 

Private Sub Ajouter_Click()Rows("2:2").SelectSelection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAboveSheets("Véhicules").Range("A2") = TextBox1.ValueSheets("Véhicules").Range("B2") = TextBox2.ValueSheets("Véhicules").Range("C2") = TextBox3.ValueSheets("Véhicules").Range("D2") = ComboBox1.ValueSheets("Véhicules").Range("E2") = TextBox5.ValueSheets("Véhicules").Range("F2") = TextBox4.ValueSheets("Véhicules").Range("G2") = ComboBox2.ValueSheets("Véhicules").Range("H2") = TextBox6.ValueSheets("Véhicules").Range("I2") = TextBox8.ValueSheets("Véhicules").Range("J2") = TextBox9.ValueSheets("Véhicules").Range("K2") = TextBox10.ValueSheets("Véhicules").Range("L2") = TextBox11.ValueSheets("Véhicules").Range("L2") = TextBox12.ValueEnd Sub


J'ai répété l'opération pour l'UserForm des Factures et pour celui des Sinistres. 

Private Sub Ajouter_Click()Rows("2:2").SelectSelection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAboveSheets("Factures").Range("A2") = TextBox1.ValueSheets("Factures").Range("B2") = TextBox2.ValueSheets("Factures").Range("C2") = TextBox3.ValueSheets("Factures").Range("D2") = TextBox8.ValueSheets("Factures").Range("E2") = TextBox5.ValueSheets("Factures").Range("F2") = TextBox4.ValueSheets("Factures").Range("G2") = TextBox9.ValueEnd Sub

Pour les factures et les sinistres une ligne est bien insérée dans la feuille Excel correspondante MAIS mes codes rajoutent une ligne dans les autres feuilles Excel (la ligne ajoutée des autres feuilles restent vierges)

Quel est le problème selon vous? 

Merci d'avance !

jordane45 · Accepted Answer

Bonjour,

Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove


=> Tu n'indiques pas dans quelle feuille tu dois faire l'insertion...

Sheets("nom_de_la_feuille").Activate
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 
 
Avant de poser une question, merci de lire la charte du site.
Cordialement, Jordane

Codes VBA : insérer une nouvelle ligne dans une feuille Excel

1 réponse

Votre réponse

Discussions similaires