XL 2013 Insertion de ligne

alkacefa17

XLDnaute Nouveau
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
 

Pièces jointes

  • Compte Xld.xlsm
    149.2 KB · Affichages: 15

fanch55

XLDnaute Accro
La shape d'insertion a été renommée Insertion
1637344390016.png
Mise en forme conditionnelle de la colonne des dates
1637344648675.png
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
 

Pièces jointes

  • Copie de Compte Xld-1.xlsm
    151.7 KB · Affichages: 19

alkacefa17

XLDnaute Nouveau
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
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
 

Pièces jointes

  • 1637825101363.png
    1637825101363.png
    224.3 KB · Affichages: 3

fanch55

XLDnaute Accro
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)​
 

Discussions similaires

Réponses
2
Affichages
90
Réponses
2
Affichages
193