Tri adresses mail combobox

bonjour,
cette combobox est-elle construite sur le contenu de cellules?
si oui, il suffit de trier les cellules.

Bonjour,

J'y ai pensé mais il faudrait trier les cellules sur la partie du nom seulement. je sais que ça peut se faire mais la saisie des adresses mails va se faire par des utilisateurs sur une plage.

Bonjour,

Après essai, ce n'est pas satisfaisant. Malgré une une macro fait par l'enregistreur, un message apparait : "Voulez-vous remplacer le contenu des cellules existantes". Si on clique sur OK, c'est bon.
Si on clique dur Annuler ça bug.

Je préfèrerais une macro à la source sur la combobox, plus fluide pour l'utilisateur.

Voilà :

Sub Macro6()
'
' Macro6 Macro
'

'
Sheets("JoursFériés et mails").Select
Range("I9:I22").Select
Selection.TextToColumns Destination:=Range("K9"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=".", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
TrailingMinusNumbers:=True
Range("K8:L21").Select
ActiveWorkbook.Worksheets("JoursFériés et mails").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("JoursFériés et mails").Sort.SortFields.Add Key:= _
Range("L9:L21"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("JoursFériés et mails").Sort
.SetRange Range("K8:L21")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Mail actualisation").Select
End Sub

REctificatif :

Sub Macro10()
'
' Macro10 Macro
'

'
Sheets("JoursFériés et mails").Select
Range("I9:I22").Select
Selection.TextToColumns Destination:=Range("K9"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=".", FieldInfo:=Array(Array(1, 2), Array(2, 1), Array(3, 1)), _
TrailingMinusNumbers:=True
Range("K8:M22").Select
ActiveWorkbook.Worksheets("JoursFériés et mails").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("JoursFériés et mails").Sort.SortFields.Add Key:= _
Range("L9:L22"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("JoursFériés et mails").Sort
.SetRange Range("K8:M22")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("L24").Select
Sheets("Mail actualisation").Select
End Sub

Bonjour,

Je te joins mon fichier, ce sera plus simple :

https://mon-partage.fr/f/Hxgsiuts/

Merci à toi

Ok j'ai intégré le code supplémentaire à l'endroit précisé et cela fonctionne (pour info, je ne maîtrise pas du tout les macros). Merci.

Y-a t'il un moyen, quand on défiltre dans l'onglet "rétroplanning", de ne plus avoir l message :

"Voulez-vous remplacer le contenu des cellules de destination dans Mail actualisation?"
et donc d'être obligé de faire "OK" à chaque fois?

Bonjour,

Hormis la complexité du fichier, on pourrait prendre la question à part, non?

Quand on filtre un TCD, peut-on empêcher, par macro, le message : "Voulez-vous remplacer le contenu des cellules existantes"?

Non parce qu'il y a juste la macro qui permet de ne pas écraser ces données même si on clique OK (onglet Mail actualisation")

Bonjour.

Je réponds non au fait qu'il faille effacer les données avant d'étendre le TCD.

Non, voir l'onglet "Mail actualisation"

La macro suivante empêche cela :

'Adapte le texte sous le TCD à la hauteur du TCD
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
'
Dim d&, t&
Const p$ = "Bien cordialement"
Const f$ = "=CONCATENATE(""Date de retour souhaitée le "")&TEXT(WORKDAY(Rétroplanning!C8,J2,'JoursFériés et mails'!B9:B17),""jj mmmm aaaa"")"

    t = Target.TableRange2.Row + Target.TableRange2.Rows.Count - 1
    d = Cells(Rows.Count, "B").End(xlUp).Row
    Do While d > t
        Cells(d, "B").Clear
        d = Cells(Rows.Count, "B").End(xlUp).Row
    Loop
    With Cells(t + 2, "B")
        .Formula = f
        .Font.Bold = True
        .Font.Underline = True
    End With
    Cells(t + 4, "B").Value = p
    With Shapes("Signature")
      .Top = Cells(t + 7, "B").Top
      .Left = Cells(t + 7, "B").Left
    End With

End Sub

Bon OK.

Je n'ai malheureusement pas le temps d'attaquer une formation en macro.

Je vais repositionner la question sur le forum.

Merci pour le temps passé.

Bonne journée

Oui même si Ce n'est pas le terme exact

Oui tu as raison puisque j'ai formulé ensuite une seconde question qui n'était pas dans le sujet