Ajout de nom à une liste

[DIGGERJACK]

Bonjour le forum
Je voudrais qu'à chaque ajout de noms en colonne D ou colonne G que ceux-ci viennent se rajouter à la liste en colonne A
et ce sans laisser de lignes vides (par formule si possible)
Merci de votre aide

 

[matthieu33]

Re : Ajout de nom à une liste

Bonsoir Diggerjack,

Voici une solution.

@+

 

[fred65200]

Re : Ajout de nom à une liste

bonjour à vous
une autre solution

Option Explicit

Private Sub ListeComplete()
Dim DerLiA As Long
Dim DerLiD As Long
Dim DerLiG As Long
With Sheets("Feuil1")
DerLiA = .Columns(1).Find("*", , , , , xlPrevious).Row
DerLiD = .Columns(4).Find("*", , , , , xlPrevious).Row
DerLiG = .Columns(7).Find("*", , , , , xlPrevious).Row
.Range("A2:A" & DerLiA).ClearContents
.Range("D2:D" & DerLiD).Copy .Range("A2:A" & DerLiD)
.Range("G2:G" & DerLiD).Copy .Range("A" & DerLiD + 1 & ":A" & DerLiD + DerLiG)
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Or Target.Column = 7 Then ListeComplete
End Sub

code à placer dans le module de feuille
cordialement

 

[DIGGERJACK]

Re : Ajout de nom à une liste

Bonsoir fred65200, matthieu33 et le forum

Merci pour vos réponses
Est il possible de combiner les deux solutions c'est à dire à partir de celle de matthieu faire en sorte que si je retires un nom d'une colonne d ou g il se retire aussi de la colonne a comme dans la solution de fred5200

Merci de votre aide

Je suis également preneur d'une solution par formule si cela est possible

Bonsoir

 

[Jocelyn]

Re : Ajout de nom à une liste

Erreur de fil désolé

Voir

 

[fred65200]

Re : Ajout de nom à une liste

bonsoir jocelyn,

je te remercie pour ta participation et ne connaissais pas le l'astuce

si les valeur de A sont numérique remplacer RECHERCHE("ZZZ";A2:A11) par RECHERCHE(9^9;A2:A11)

.
je teste.

Par contre, je ne comprends pas le rapport avec le sujet.

@+