Trier et ajouter automatiquement un tableau

Re : Trier et ajouter automatiquement un tableau

Re bonjour,

tu as juste à remplacer
par

Bonne journée.

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

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 @+

Re : Trier et ajouter automatiquement un tableau

Bonjour achkar,

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

Bon après-midi.

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 : 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.

Re : Trier et ajouter automatiquement dans un tableau

achkar à dit:

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. 😕


@+

Cliquez pour agrandir...

Re,

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

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

@+

Re : Trier et ajouter automatiquement un tableau

Dolichotis à dit:

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.

Cliquez pour agrandir...

Bonjour,

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

achkar à dit:

Bonjour Skoobi,

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

Merci encore pour ton aide.
bonne journée

@+

Cliquez pour agrandir...

De rien 🙂