Insérer des cellules.

Résolu
plikplok Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
plikplok Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 2
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Salut le Forum

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

Mytå
0
Réponse 2 / 2
plikplok Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
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
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
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
plikplok Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
https://www.cjoint.com/?3BqwNsaZrqJ
voila le lien pour le fichier.
merci bcp pour votre aide;
0
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
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
plikplok Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
merci ! c'est impeccable ! bonne journée, !
0