Insertion de ligne en auto

Bonjour

Modifies le début de la macro (ligne surlignée)

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne As Long
Dim Colonne As Integer
Dim Groupe As Long

  If Target.Count > 1 Or Target.Cells(1, 1) = "" Then Exit Sub
  Ligne = Target.Row
  Colonne = Target.Column
  If Ligne >= Range("B" & Rows.Count).End(xlUp).Row Then Exit Sub

  If Ligne > 18 And (Colonne > 1) And (Colonne < 14) Then
    If Application.CountA(Rows(Target.Row + 1)) > 0 Then Exit Sub

J'ai fais mais ca ne marche pas...

Ci-joint le fichier avec l'insertion....

Inserer quand même des lignes si tu mais une données en J61 par exemple cela insert une lignes??

Bonjour

Oui en écrivant en colonne B on déplace la limite que je teste donc pas bon

Une autre manière

J'ai teste et c'est vraiment une usine gaz.

j'ai regardé pour simplifier la chose (promis c'est la derniere fois)

J'ai tujours 4 groupes mais lorsque je mets une croix en colonne A de la ligne complete cela m'inserer un ligne vierge avec uniquement les formules de la ligne du dessus mais sans les valeurs de la ligne du dessus.

Ci-joint un exemple final promis.

Bonjour

Cela serait bien que tu me fournisses le fichier avec la macro modifiée

Je ne vais pas tout recommencer pour tester les cellules

Normalement le fait d'écrire ne colonne 1 ne gène pas

Mais bon sans le fichier je ne vois pas

Banzai64 a écrit :

Bonjour

Cela serait bien que tu me fournisses le fichier avec la macro modifiée

Bonjour, Banzai64, je ne sais pas modifier la macro je n'ai rien touché à la macro precedente

Banzai64 a écrit :

Je ne vais pas tout recommencer pour tester les cellules

Normalement le fait d'écrire ne colonne 1 ne gène pas

Mais bon sans le fichier je ne vois pas

Je ne comprends pas la phrase, j'ai refourni un fichier comme ma base?

Bonjour

Où est la macro que j'ai faite ?

Le nom des cellules à changé

La ligne à ne pas dépassée ne se nomme plus "RECAP"

Comment fais-tu pour te servir de la macro ?

Mais c'est un nouveau fonctionnemet je souhaite juste inserer un ligne lorsqu'il y a un X dans la colonne A comme exemple V10 joint precedenement

Bonjour

Désolé mais je ne comprenais pas que tu voulais une autre manière d’insérer une ligne

A tester bien sur

Merci,

Ce n'est toujours pas facile de ce faire comprend a travers un ecran et un clavier

Je souhaiterais vraiment simplifier les choses .

Au niveau du dernier fichier ce n'est pas la peine de prendre en compte la derniere valeur de la ligne vide, par exemple si je veux inserer une ligne entre deux lignes j'efface le "X" et le remets et cela insere un ligne dessous.

Bonjour

Dans cette version le code est simplifié

sophie03 a écrit :

ce n'est pas la peine de prendre en compte la derniere valeur de la ligne vide

C'est toi qui voit

C'est ton fichier et si tu préfères "contrôler" à la place de la macro, je ne vois pas d'inconvénient

mais je voudrais le faire en auto .

Ci-joint le fichier exemple

Bonjour

Dur de se comprendre

Donc tu veux que dans tous les cas, placer un X dans la colonne A insère une ligne

Alors il faut mettre en remarque (ou la supprimer) la ligne qui teste si la ligne de dessous est vide

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne As Long

  If Target.Count > 1 Or Target.Cells(1, 1) = "" Then Exit Sub
  ' Si un X dans la colonne 1
  If Target.Column = 1 And UCase(Target) = "X" Then
    ' Vérifie que la ligne de dessous est vide
'If Application.CountA(Rows(Target.Row + 1)) > 0 Then Exit Sub
    Ligne = Target.Row
    Rows(Ligne).Copy          ' Copie de la ligne
    Rows(Ligne + 1).Insert    ' Insertion avec la ligne copiée
    ' On la débarrase des constantes
    On Error Resume Next
    Rows(Ligne + 1).SpecialCells(xlCellTypeConstants, 23).ClearContents
    On Error GoTo 0
  End If
End Sub

Je te remercie beaucoup de ta patience, je teste et je te tiens au courant.

Je te rermercie enormement de ton aide c'est super sympa de ta part...

un grand MERCI...

Si tu as encore un peu de temps a m'accordée j'ai ouveert un autre post.. loll...(plus simple...)

https://forum.excel-pratique.com/excel/double-liste-deroulante-t36351.html