Insérer des cellules.

Résolu
plikplok -  
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å Contributeur
    Salut le Forum

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

    Mytå
    0
    1. plikplok Auteur
      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å Contributeur
        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å Contributeur
        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 Auteur
        merci ! c'est impeccable ! bonne journée, !
        0

    Discussions similaires

    Reactiver la fusion des cellules, tableau exc
    chector10

    38 réponses