XL 2021 Insertion ligne sous condition

Phil69970

XLDnaute Barbatruc

• 15 Mai 2024

• #2

Bonjour @Rabeto

Rabeto à dit:

ou
- Insérer une ligne si la date est différent

Cliquez pour agrandir...

1) La date est différent de quoi ???

Rabeto à dit:

Insérer une ligne dans le tableau après chaque lettre F du colonne F

Cliquez pour agrandir...

2) donc chaque fois qu'il y a la lettre F colonne F on insère 1 ligne juste en dessous ?

3) De plus la séquence colonne F est elle TOUJOURS la même ou est ce un hasard que les lettres se suivent et se répètent ???

4) Et si la date est différentes (de quoi voir question 1 ) ET lettre F on fait quoi on rajoute 2 lignes ?

==> 4 questions ==> 4 réponses attendues

 

Vote positif 0 Vote négatif

R

Rabeto

XLDnaute Occasionnel

• 15 Mai 2024

• #3

Phil69970 à dit:

2) donc chaque fois qu'il y a la lettre F colonne F on insère 1 ligne juste en dessous ?

Cliquez pour agrandir...

Bonjour Phil69970

Question 2 : Oui
Question 3 : Oui la séquence colonne F est tjr la même

si on se base sur la colonne F et rajouter une ligne après F

merci

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 15 Mai 2024

• #4

@Rabeto

Phil69970 à dit:

==> 4 questions ==> 4 réponses attendues

Cliquez pour agrandir...

Et seulement 2 réponses !!!!

 

Vote positif 0 Vote négatif

R

Rabeto

XLDnaute Occasionnel

• 15 Mai 2024

• #5

Je pense avoir trouvé en se basant sur la date, dès que la date change insérer une ligne

Sub Inserer()
Dim dates As Long, i As Long
With Sheets("Feuil2")
dates = .Range("A" & Rows.Count).End(xlUp).Row
For i = dates To 2 Step -1
If Left(.Cells(i, 5), 5) <> Left(.Cells(i - 1, 5), 5) Then .Rows(i).EntireRow.Insert
Next i
End With
End Sub

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 15 Mai 2024

• #6

@Rabeto

Tu as un tableau structuré et ton code n'est pas un code pour tableau structuré ==> futur problème en gestation
Et j'attends toujours mes réponses !

 

Vote positif 0 Vote négatif

R

Rabeto

XLDnaute Occasionnel

• 15 Mai 2024

• #7

re Phil69970​

1) La date est différent de quoi ???
Il y a 6 lignes avec les mêmes date, et à la 7e ligne la date change, Donc inséré une ligne dès que la date change

2) donc chaque fois qu'il y a la lettre F colonne F on insère 1 ligne juste en dessous ?
Oui

3) De plus la séquence colonne F est elle TOUJOURS la même ou est ce un hasard que les lettres se suivent et se répètent ???
Oui la séquence colonne F est tjr la même (C'est à dire à la 6e ligne)

4) Et si la date est différentes (de quoi voir question 1 ) ET lettre F on fait quoi on rajoute 2 lignes ?
Pas possible qu'il y a une différence, car F représente la dernier ligne (dernière date avant qu'elle change)

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 15 Mai 2024

• #8

Re

@Rabeto

Je te propose ce fichier

Merci de ton retour

 

Pièces jointes

• Inserer Ligne dans TS.xlsm

  34.2 KB · Affichages: 2

Vote positif 1 Vote négatif

Solution

piga25

XLDnaute Barbatruc

• 15 Mai 2024

• #9

Bonjour à tous,
Afin de ne pas rajouter plusieurs lignes en répétant l'opération voir cela:
On ajout une ligne en dessous de F et juste au dessus de A (deux conditions)

VB:

Sub Insertion()
Dim i&
Application.ScreenUpdating = False
For i = Range("F" & Rows.Count).End(xlUp).Row To 1 Step -1
  If Cells(i, 6) = "F" And Cells(i + 1, 6) = "A" Then
    Rows(i + 1).Insert
  End If
Next
End Sub

 

Vote positif 1 Vote négatif

Phil69970

XLDnaute Barbatruc

• 15 Mai 2024

• #10

Re

Bonjour @piga25

Ton code n'est pas un code pour TS et c'est toute la ligne qui est insérée alors que mon code c'est seulement les lignes à l’intérieur du TS qui sont rajoutées .



Et avec mon code les lignes à l'extérieur du TS ne sont pas modifiées et donc tout ce qui se trouvent dans les colonnes X et suivantes ne sont pas impactées

 

Vote positif 0 Vote négatif

R

Rabeto

XLDnaute Occasionnel

• 15 Mai 2024

• #11

Merci Phil69970 et piga25

 

Vote positif 0 Vote négatif