Microsoft 365 Modifier une liste sur deux onglets

[Roseline]

Bonjour,
J'ai un fichier contenant plusieurs onglets. Chacun de mes onglets est identique mais avec des informations différentes. La colonne A de chacun débute avec la liste de mes contacts. Je voudrais par une vba avoir l'option d'ajouter un contact mais que celui-ci s'ajoute automatiquement à tout mes onglets et par ordre alphabétique également.

Je suis capable de le faire pour un onglet mais je me perd quand je lui demande de le faire pour tous les onglets en même temps. J'imagine qu'avec FOR mais j'ai besoin de votre aide à ce niveau.

Sheets("feuil1").Select
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
If IsEmpty(ActiveCell) Then
ligne = InputBox("Veuillez entrer le nom du contact: Nom, Prénom")
ActiveCell.Value = ligne

ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range( _"A3:A275"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal

With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A3:AH275")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply

End With
End If
End Sub

Merci et bonne journée

 

[Gael]

Bonjour Roseline,

As-tu essayé avec une sélection multiple ?

Exemple:
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select

Dans ce cas chaque modification s'applique à chacune des feuilles sélectionnées.

Gaël

 

[Phil69970]

Bonjour à tous

@Roseline

Plutôt que vouloir décrire le fichier que tu as et nous essayer de "Google Translate" tes mots en fichier imaginaire ,mets nous directement le fichier en l'anonymisant ...

@Phil69970

 

[Roseline]

Bonjour Roseline,

As-tu essayé avec une sélection multiple ?

Exemple:
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select

Dans ce cas chaque modification s'applique à chacune des feuilles sélectionnées.

Gaël

 

[Roseline]

Rebonjour,
J'ai suivi le conseil de Phil69970 et j'ai ajouté un fichier. Effectivement ce sera beaucoup plus facile pour vous de m'aider.
J'ai tenté le Sheets(Array.... mais cela ne fonctionne pas, je n'ai certainement pas bien écrit la commande.
Merci de votre aide et bonne journée

 

[Phil69970]

Bonjour @Roseline

Je te propose ce fichier
La mise à jour se fait lorsque tu changes de feuille automatiquement avec la recopie de la totalité de la liste.

*Merci de ton retour

@Phil69970

 

[Roseline]

Merci beaucoup pour ta réponse rapide,
Ta solution proposée fonctionne bien et je vais l'utiliser pour un autre fichier.
Mais pour mes besoins actuels ce n'est pas tout à fait adapté. Je m'explique. C'est seulement le nouveau nom que je viens d'ajouter en bas de ma liste qui doit s'insérer dans les autres onglet par ordre alphabétique dans la colonne A sans plus. Actuellement la liste s'efface et se retranspose.
J'espère être claire
Merci encore de ton aide si précieuse

 

[Phil69970]

Re

Voici une version modifiée :

On rajoute juste le dernier nom de la liste et on supprime les doublons si il y en a

Il faut cliquer sur le bouton pour lancer la macro

*Merci de ton retour

@Phil69970

 

[Roseline]

Re

Voici une version modifiée :

On rajoute juste le dernier nom de la liste et on supprime les doublons si il y en a

Il faut cliquer sur le bouton pour lancer la macro

*Merci de ton retour

@Phil69970

Rebonjour,
C'est en plein ce que je voulais, merci énormément de m'avoir aider.
Je vous souhaite une excellente journée

 

[Roseline]

Re

Voici une version modifiée :

On rajoute juste le dernier nom de la liste et on supprime les doublons si il y en a

Il faut cliquer sur le bouton pour lancer la macro

*Merci de ton retour

@Phil69970

Bonjour à toi,
Je te reviens parce que j'ai un petit souci que j'arrive pas a régler et peut-être tu pourras m'aider. J'essaie d'ajuster la vba pour que le tri sur mes deux onglets "Nouveau et Ancien" se fasse seulement à partir de la cellule A3. J'ai beau essayer mais si j'entre un nom qui commence par A, le tri débute à la cellule A2. As-tu une idée pour m'aider svp.
Merci encore de ton aide

 

[Phil69970]

Bonjour @Roseline

Voici la modif de ce que j'ai compris.

@Phil69970

 

[Roseline]

Bonjour @Roseline

Voici la modif de ce que j'ai compris.

@Phil69970

Allo,
C'est en plein ça oui, c'est super. Vous m'avez été d'une aide vraiment précieuse et je vous remercie beaucoup.
Bonne journée à vous.