XL 2013 Insertion de ligne

[alkacefa17]

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]

Bonjour,
Modification des codes Workbook_Open et Insererlignes

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

 

[alkacefa17]

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]

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	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]

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]

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

 

[fanch55]

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