Insérer des cellules.

Résolu/Fermé

plikplok Messages postés 5 Date d'inscription jeudi 12 janvier 2012 Statut Membre Dernière intervention 17 février 2014 - 16 févr. 2014 à 19:39
plikplok Messages postés 5 Date d'inscription jeudi 12 janvier 2012 Statut Membre Dernière intervention 17 février 2014 - 17 févr. 2014 à 11:02

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.

A voir également:

Insérer des cellules.
Insérer signature word - Guide
Excel additionner des cellules - Guide
Insérer liste déroulante excel - Guide
Verrouiller des cellules excel - Guide
Insérer une vidéo dans powerpoint - Guide

2 réponses

Réponse 1 / 2

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
16 févr. 2014 à 20:06

Salut le Forum

Sans fichier difficile de comprendre.
A tester

Range("A6:D6").Insert Shift:=xlDown

Mytå

Réponse 2 / 2

plikplok Messages postés 5 Date d'inscription jeudi 12 janvier 2012 Statut Membre Dernière intervention 17 février 2014
16 févr. 2014 à 20:48

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.

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
Modifié par Mytå le 16/02/2014 à 21:59

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å

plikplok Messages postés 5 Date d'inscription jeudi 12 janvier 2012 Statut Membre Dernière intervention 17 février 2014
16 févr. 2014 à 22:40

https://www.cjoint.com/?3BqwNsaZrqJ
voila le lien pour le fichier.
merci bcp pour votre aide;

Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
17 févr. 2014 à 02:08

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å

plikplok Messages postés 5 Date d'inscription jeudi 12 janvier 2012 Statut Membre Dernière intervention 17 février 2014
17 févr. 2014 à 11:02

merci ! c'est impeccable ! bonne journée, !

Discussions similaires

Pb pour insérer lignes

Discussions similaires

Newsletters