Microsoft 365 Ajout ligne tableau VBA

Phil69970

XLDnaute Barbatruc

• 11 Février 2022

• #2

Bonjour @Eric.lo

Comme toi tout en image :



Qu'en penses tu ?

Bonne réflexion

@Phil69970

 

Vote positif 0 Vote négatif

E

Eric.lo

XLDnaute Nouveau

• 11 Février 2022

• #3

Re bonjour @Phil69970 ,

C'est vrai que l'image que j'ai envoyé est nulle mais ta blague très bonne



Ceci est mieux pour toi?

Encore merci

Eric

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 11 Février 2022

• #4

Bonjour @Eric.lo

Et pourquoi pas un fichier avec un exemple dedans :
J'ai ceci .... Je voudrais avoir cela et à cet endroit précis.....

@Phil69970

 

Vote positif 0 Vote négatif

E

Eric.lo

XLDnaute Nouveau

• 11 Février 2022

• #5

Voilà j'espère avoir été clair cette fois ci

 

Pièces jointes

• Ajout ligne.xlsx

  11 KB · Affichages: 3

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 11 Février 2022

• #6

re
Bonjour à tous
non d'une pipe en bois !!! pourquoi bon sang !! ne pas utiliser un tableau structuré
c'est si facile d'y d'ajouter une ligne ou même une colonne a un endroit ou un autre
toujours se poser la question "est ce que j'utilise la bonne stratégie ou le bon outils"

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 11 Février 2022

• #7

Re

Je te propose ce fichier

*Merci de ton retour

@Phil69970

 

Pièces jointes

• Ajout ligne V1.xlsm

  19.7 KB · Affichages: 4

Vote positif 0 Vote négatif

E

Eric.lo

XLDnaute Nouveau

• 11 Février 2022

• #8

Phil69970 à dit:

Re

Je te propose ce fichier

*Merci de ton retour

@Phil69970

Cliquez pour agrandir...

Merci , mais lorsque j'ai déjà des données en dessous de A9 il me rajoute des lignes à cet endroit là et non pas dans mon premier tableau

 

Vote positif 0 Vote négatif

E

Eric.lo

XLDnaute Nouveau

• 11 Février 2022

• #9

patricktoulon à dit:

re
Bonjour à tous
non d'une pipe en bois !!! pourquoi bon sang !! ne pas utiliser un tableau structuré
c'est si facile d'y d'ajouter une ligne ou même une colonne a un endroit ou un autre
toujours se poser la question "est ce que j'utilise la bonne stratégie ou le bon outils"

Cliquez pour agrandir...

Bonjour Patrick,

Tu parles de définir mes tableau dans la macro? Je t'avoue je débute dans les VBA, j'ai pu lire 2-3 trucs là dessus mais je n'ai pas trouvé la solution

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 11 Février 2022

• #10

Re

Je te propose cette nouvelle version :

*Merci de ton retour

@Phil69970

 

Pièces jointes

• Ajout ligne V2.xlsm

  21.7 KB · Affichages: 3

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 11 Février 2022

• #11

bonjourtout les deux
@Phil69970
perso je fait simple
je donne un nom à la ligne grise "limite"
et dans ton bouton

VB:

Sub CommandButtonx1_Click()
    Dim R As Range, Lig&, LiM&

    Set R = [A3:H65535].Resize([limite].Row - 3)
    Lig = R.Columns(1).End(xlDown).Row: ligm = [limite].Row
    LiM = [limite].Row

    If Lig = LiM - 1 Then
        [limite].Insert Shift:=xlDown
        With [A:D].Rows(LiM): .MergeCells = True: .BorderAround 1, 3: End With
        With [E:H].Rows(LiM): .MergeCells = True: .BorderAround 1, 3: End With
    End If
End Sub

di la ligne précédente est remplie ça marche sinon non
ou bien pareil mais en plus simple

VB:

Sub CommandButton1_Click()
    Dim LiM
    LiM = [limite].Row
    If [limite].Offset(-1).Cells(1) <> "" Then
        [limite].Insert Shift:=xlDown
        With [A:D].Rows(LiM): .MergeCells = True: .BorderAround 1, 3: End With
        With [E:H].Rows(LiM): .MergeCells = True: .BorderAround 1, 3: End With
    End If
End Sub

testé sur ton fichier post #10

 

Vote positif 0 Vote négatif

E

Eric.lo

XLDnaute Nouveau

• 11 Février 2022

• #12

Un tout grand merci à tous les deux

Cela fonctionne à la perfection, j'avoue avoir opté pour la macro de Phil

@Phil69970 penses-tu maintenant pouvoir faire un bouton qui supprime les lignes en trop?

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 11 Février 2022

• #13

Re

Donne un exemple dans 1 fichier de ce qu'il faut supprimer et pense bien à tous les cas possible

@Phil69970

 

Vote positif 0 Vote négatif

E

Eric.lo

XLDnaute Nouveau

• 11 Février 2022

• #14

Re,
C’est exactement le même fichier que la V2 que tu m’as renvoyé. Je l’envoi en pièce jointe à un collègue par mail, lui efface tout et le rempli a son tour mais il a peut être besoin de moins de ligne que moi.

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 11 Février 2022

• #15

Re

Voici cette nouvelle version

*Merci de ton retour

@Phil69970

 

Pièces jointes

• Ajout suppression ligne V3.xlsm

  25.8 KB · Affichages: 5

Vote positif 0 Vote négatif