XL 2013 Insertion de ligne

alkacefa17 · 17 Novembre 2021

Bonjour à tous,
Dans le fichier joint je peux insérer des lignes manuellement mais je voudrais qu'à l'ouverture du fichier si le nombre de ligne est inférieur à 3 par exemple un nombre de 5 soit ajouté automatiquement.

Pouvez-vous m'aider

fanch55 · 19 Novembre 2021

Bonjour,
Modification des codes Workbook_Open et Insererlignes

Nota: formules modifiées en colonne K ( sans incidence sur la demande )

alkacefa17 · 19 Novembre 2021

Merci, c'est ce que je souhaitais. Si je pouvais aller plus loin, pourrait on signaler (par exemple ) lors de la saisi que le nombre est inférieur à x lignes.

Encore merci pour votre aide
Alain

fanch55 · 19 Novembre 2021

La shape d'insertion a été renommée Insertion

Mise en forme conditionnelle de la colonne des dates

Ajout code pour changer la couleur du shape Insertion lors d'un changement dans la feuille

VB:

Private Sub Worksheet_Change(ByVal Target As Range)

    If WorksheetFunction.CountBlank(Range("A" & [Debut].Row & ":" & "A" & [Fin].Row)) <= 3 Then
        Shapes("Insertion").OLEFormat.Object.Interior.Color = 49407 ' orange
    Else
         Shapes("Insertion").OLEFormat.Object.Interior.Color = 16507848 ' bleu clair
    End If
        
End Sub

alkacefa17 · 19 Novembre 2021

Merci, pour votre aide, çà marche comme je voulais. Maintenant je vais l'adapter à mon fichier initial.
Si j'ai un problème je retournerais vers vous. Mais franchement merci
Cordialement
Alain

alkacefa17 · 25 Novembre 2021

fanch55 à dit:
Bonjour,
Le "Ajout code pour changer la couleur du shape Insertion lors d'un changement dans la feuille" réagit correctement, par contre la mise en forme conditionnelle ,elle, ne marche pas sur mon fichier. Y a t il une condition autre à renseigner.
Merci

fanch55 à dit:

La shape d'insertion a été renommée Insertion Regarde la pièce jointe 1122202
Mise en forme conditionnelle de la colonne des dates Regarde la pièce jointe 1122203
Ajout code pour changer la couleur du shape Insertion lors d'un changement dans la feuille

VB:

Private Sub Worksheet_Change(ByVal Target As Range) If WorksheetFunction.CountBlank(Range("A" & [Debut].Row & ":" & "A" & [Fin].Row)) <= 3 Then Shapes("Insertion").OLEFormat.Object.Interior.Color = 49407 ' orange Else Shapes("Insertion").OLEFormat.Object.Interior.Color = 16507848 ' bleu clair End If End Sub

Cliquez pour agrandir...

fanch55 · 25 Novembre 2021

Bonjour,
Je suppose que vous avez un pb avec la MFC.

D'après ce que montre votre image, la formule entrée est la suivante :

=ET($A$5="";NB.VIDE($A$5:$A$7862)<=3)

pour fonctionner correctement,, il faut que ce soit celle ci-dessous

=ET($A5="";NB.VIDE($A$5:$A$7862)<=3)

XL 2013 Insertion de ligne

alkacefa17

XLDnaute Nouveau

Pièces jointes

fanch55

XLDnaute Barbatruc

Pièces jointes

alkacefa17

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Pièces jointes

alkacefa17

XLDnaute Nouveau

alkacefa17

XLDnaute Nouveau

Pièces jointes

fanch55

XLDnaute Barbatruc

Discussions similaires