Bonjour,
Lors de l'enregistrement dans mon tableau d'1 seule colonne A, je voudrais qu'il me remette tout par ordre alphabétique.
Mon code pour l'enregistrement est le suivant mais il me manque le coté alphabétique de la colonne A
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_Click()
 
'Double clic Bouton Ajouter Nouveau Fournisseur
 
    Dim DernLig As Long
 
     If MsgBox("Confirmez-vous l'insertion de ce nouveau Fournisseur ?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then
     With Sheets("FOURNISSEURS") 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
 
DernLig = .Range("A" & Rows.Count).End(xlUp).Row + 1
    .Range("A" & DernLig).Value = ComboBox1.Value
 
     Unload UserForm3
 
  End With
    End If
 
End Sub
Par avance, Merci pour votre aide