Insérer des cellules.

Résolu
plikplok Messages postés 6 Statut Membre -  
plikplok Messages postés 6 Statut Membre -
Bonjour,
je réalise un fichier, et j'aimerais insérer un bouton :

juste au dessus du total, insérer une ligne formatée mais la ligne est une sélection de cellules (je n'insère pas toute la ligne (entire raw) .
j'ai cherché de l'aide , mais ce que je trouve le plus souvent c'est l'insertion d'une ligne.

Merci pour aide précieuse.
Bonne soirée.

2 réponses

  1.
    Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   957
     
    Salut le Forum

    Sans fichier difficile de comprendre.
    A tester 
    Range("A6:D6").Insert Shift:=xlDown

    Mytå
    0
  2. plikplok Messages postés 6 Statut Membre
     
    merci pour votre intéret.

    je voudrais bien ajouter un fichier, mais je ne vois pas d'option.

    j'ai un groupe de colonnes dépenses et un pour les recettes.
    sur les colonnes dépenses,par exemple, j'ai un total sous les lignes des dépenses.
    de A à H cela me fait une ligne à insérer pour saisir une dépense.
    0
    1. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   957
       
      Re le Forum

      Pour joindre un fichier utilise https://www.cjoint.com/
      et recopie le lien fourni dans ton prochain message.

      Voir la marche à suivre : Utiliser Cjoint

      Mytå
      0
    3. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   957
       
      Re le Forum

      Le code des boutons 
      Private Sub InsereDep_Click()
    Dim Lig As Long
    Lig = Range("C" & Rows.Count).End(xlUp).Row
    With Cells(Lig, "B")
        .Resize(, 7).Insert Shift:=xlDown
        .Offset(-1).Resize(1, 7).FillDown
        .Offset(-1).Resize(, 7).ClearContents
    End With
End Sub

Private Sub InsereRec_Click()
    Dim Lig As Long
    Lig = Range("J" & Rows.Count).End(xlUp).Row
    With Cells(Lig, "I")
        .Resize(, 5).Insert Shift:=xlDown
        .Offset(-1).Resize(1, 5).FillDown
        .Offset(-1).Resize(, 5).ClearContents
    End With
End Sub

      Mytå
      0
    4. plikplok Messages postés 6 Statut Membre
       
      merci ! c'est impeccable ! bonne journée, !
      0