Discussion :

[antonblax]

Bonjour à tous,

Je souhaite Ajouter/supprimer des lignes en rapport avec le numéro afficher dans une liste contenant 5 chiffres (de 1 à 5). La ligne 1 est toujours présente par défaut donc l'ajout/suppression interviendrait qu'a partir du numéro 2 jusqu'au 5.

A l'insertion je voudrais donc que l'insert/suppression agisse après la première ligne de donnée et qu'il ajoute/supprime a partir du bas...

L'image ci jointe vous aidera à comprendre.

Merci à tous par avance

[Philippe Tulliez]

Bonjour,
Solution avec les données organisées en tableau structuré nommé T_Participant et une cellule nommée NumberOfParticipants (en jaune) contenant la liste déroulante comme illustré ci-dessous

La cellule de la première colonne, contient la formule (="Participants " & LIGNE() - LIGNE(T_Participant[#Tout])



Code de la procédure à placer dans le module de la feuille où se trouve les données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim oList As ListObject
  Dim rng As Range
  Dim r As Long
  Set rng = Range("NumberOfParticipants")
  If Target.Address = rng.Address Then
     Set oList = Me.ListObjects(1)
     With oList
       If rng.Value > .DataBodyRange.Rows.Count Then
          For r = .DataBodyRange.Rows.Count To rng.Value - 1
          .ListRows.Add
          Next
        Else
          With .DataBodyRange
           For r = .Rows.Count To rng.Value + 1 Step -1
           .Rows(r).Delete
           Next
          End With
       End If
      End With
  End If
  Set oList = Nothing: Set rng = Nothing
End Sub

[antonblax]

Cela ne fonctionne pas plus...

[Philippe Tulliez]

Bonjour,

Cela ne fonctionne pas plus...

Cela m'étonnerait car je teste tout les codes que je publie.
Peux-tu préciser ce qui ne fonctionne pas ?

[antonblax]

Voila ce que j'obtient, la formule n'est pas valide...

[Philippe Tulliez]

Bonjour,
C'est normal, ton tableau n'est sans doute pas un tableau structuré et/ou tu ne l'as pas renommé T_Participant
As-tu lu la première phrase de ma réponse ?

Solution avec les données organisées en tableau structuré nommé T_Participant et une cellule nommée NumberOfParticipants (en jaune) contenant la liste déroulante comme illustré ci-dessous

A lire le tutoriel de Pierre Fauconnier Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)

[antonblax]

Effectivement je ne connaissais pas les tableaux structurés.
Je n'arrive cependant pas à faire fonctionner l'ensemble, notamment la cellule NumberOfParticipant.

[Philippe Tulliez]

Bonjour,

Je n'arrive cependant pas à faire fonctionner l'ensemble, notamment la cellule NumberOfParticipant.

Tout simplement parce-que tu ne sais pas non plus, ce que c'est qu'un cellule ou une plage nommée.

Je te conseille la lecture de billet titré Comment simplifier la lecture d’une formule dans excel en nommant les cellules

Illustration du nom à donner à la cellule qui doit contenir le nombre de lignes et la liste déroulante

[antonblax]

Merci énormément pour ton aide ! Tout fonctionne parfaitement.
Cela m'ôte une épine du pied !!!

[MEDJEN59320]

BONJOUR

VOTRE FORMULE M A SERVI MERCI BEAUCOUP

PAR CONTRE JE VOUDRAIS QUE S AFFICHE PARTICIPANT 1 OU 2 OU 3 EN FONCTION DU NOMBRE QUE JE CHOISI COMMENT FAIRE DANS LA FORMULE

MERCI

[Philippe Tulliez]

Bonjour,
Il est inutile de crier.
Pouvez-vous développer ce que vous attendez comme résultat ?