Trier et ajouter automatiquement un tableau

[achkar]

Bonjour a tous,
d'après l'aide de Skoobi et après plusieurs jours de recherche, j'ai réussi de mettre un message d'erreur s'il y a des boublant mais, j'ai une nouvelle question à vous poser ?


Le problème :

Quand j'ajoute une ligne avec les mêmes données dans les colonnes "A" et "B" des feuilles 2 et 3, avec des modifications dans les colonnes "C" et/ou "D",
il n'y a qu'une seule ligne qui s'ajoute dans la feuille 1. Tout en sachant que ils ne doivent
pas avoir le meme contenu dans la cellule "B" de la feuille 1 ( c-à-d. feuille 2 pour
la fueille 2 et feuille 3 pour la feuille 3 ).

voir le fichier attachés

Merci

 

[skoobi]

Re : Trier et ajouter automatiquement un tableau

Re bonjour,

tu as juste à remplacer

Sort Key1:=.Range("E1:D1")

par

Sort Key1:=.Range("A1")

Bonne journée.

 

[achkar]

Re : Trier et ajouter automatiquement dans un tableau

😀😀😀 En fin ça marche 😀😀😀

Merci infiniment Skoobi
enfin je peux utiliser mon fichier excel comme j'ai souhaité 🙂

Franchement je ne sais pas comment t'arrive a trouver les réponses
Bravo encore et Merci pour ta patience
salut

 

[achkar]

Re : Trier et ajouter automatiquement dans un tableau

Re-Bonjour SKOOBI,
encore moi 😀

je voudrais savoir ce que je dois changer dans le code si j'ajoute une nouvelle
colonne "C" qui s'appelle "Service" ?

mon probleme est :

Au lieu d'ajouter le nom de la feuille 2 / 3 dans le "service" de la feuille 1, il s'ajoute dans la colonne "prenom" de la feuille 1.

En fait, j'ai réussi à mettre le nom de la feuille dans la colonne "service" mais,
si je modifie ou supprime une ligne dans la feuille 2 ou 3, rien ne change dans la feuille 1.

CODE :

'############ partie pour la saisie ###############
ElseIf Application.WorksheetFunction.CountA(Sh.Range("A" & Target.Row & ":E" & Target.Row)) = 5 _
And (Target.Column = 1 Or Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4 Or Target.Column = 5) Then
Set ShDest = Sheets("Feuil1")
With ShDest
Set Noms = .Columns("A").Find(Sh.Range("A" & Target.Row).Value, LookIn:=xlValues, lookat:=xlWhole)
If Noms Is Nothing Then
i = .Cells(65536, 1).End(xlUp).Row
Sh.Range("A" & Target.Row & ":E" & Target.Row).Copy .Range("A" & i + 1)
.Range("B" & i + 1).Value = Sh.Name
Else
Do
firstAddress = Noms.Address
If Noms.Offset(, 1).Value = Sh.Name Then
Sh.Range("A" & Target.Row & ":E" & Target.Row).Copy Noms
Noms.Offset(, 1).Value = Sh.Name
trouve = True
Else: Set Noms = .Columns("A").FindNext(Noms)
End If
Loop While Not Noms Is Nothing And Noms.Address <> firstAddress
If Not trouve Then
i = .Cells(65536, 1).End(xlUp).Row
Sh.Range("A" & Target.Row & ":E" & Target.Row).Copy .Range("A" & i + 1)
.Range("B" & i + 1).Value = Sh.Name
End If
End If
.Range("A1").CurrentRegion.Sort Key1:=.Range("A1:B1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With




Merci @+

 

[skoobi]

Re : Trier et ajouter automatiquement un tableau

Bonjour achkar,

J'ai ajouté le commentaire modifié pour les lignes mises à jour.

Bon après-midi.

 

[achkar]

Re : Trier et ajouter automatiquement dans un tableau

Re

Merci pour les détails, la suppression marche bien 🙂, mais le problème qui reste, c'est que, si je modifie la colonne "D" et/ou "E" de la feuille 2 et/ou 3, une nouvelle ligne se crée dans dans la feuille 1. 😕


@+

 

[Dolichotis]

Re : Trier et ajouter automatiquement un tableau

Bonjour à tous,

Je ne sais pas si je peux...

J'aimerais trier, pour cela j'aimerais savoir à quoi correspond les paramètres du tri .sort (key1, etc) ou un lien qui me l'indiquerait ; merci.
Si je dérange, je peux ouvrir un nouveau post.

 

[skoobi]

Re : Trier et ajouter automatiquement dans un tableau

Re

Merci pour les détails, la suppression marche bien 🙂, mais le problème qui reste, c'est que, si je modifie la colonne "D" et/ou "E" de la feuille 2 et/ou 3, une nouvelle ligne se crée dans dans la feuille 1. 😕


@+

Re,

arfff, ai zappé une ligne, c'est réglé.

 

[achkar]

Re : Trier et ajouter automatiquement dans un tableau

Bonjour Skoobi,

C bon, ton code marche très bien BRAVO 😎

Merci encore pour ton aide.
bonne journée

@+

 

[skoobi]

Re : Trier et ajouter automatiquement un tableau

Bonjour à tous,

Je ne sais pas si je peux...

J'aimerais trier, pour cela j'aimerais savoir à quoi correspond les paramètres du tri .sort (key1, etc) ou un lien qui me l'indiquerait ; merci.
Si je dérange, je peux ouvrir un nouveau post.

Bonjour,

Dans l'éditeur de macro (VBE) tu place le curseur sur "sort" puis tu ouvres l'aide en appuyant sur la touche F1.

Bonjour Skoobi,

C bon, ton code marche très bien BRAVO 😎

Merci encore pour ton aide.
bonne journée

@+

De rien 🙂