Do while ordre alphabétique

Bonjour, comment peut-on faire une boucle qui demande un mot à inscrire en colonne (avec inputbox), et qui s'arrête une fois que le mot rentré est inférieur dans l'ordre alphabétique que le mot précédent ? Merci.

Salut treerrttyt,

Le plus facile est d'inscrire ce mot à la première ligne libre et d'exécuter un SORT sur la colonne concernée.

A+

Bonjour treerttyt,

dhany

Merci pour votre réponse, il s'agit de faire cet exercice (fichier joint)

4laf.odt (6.74 Ko)

Salut treerrttyt,

Salut Dhany,

quelque chose comme ça ?

La macro démarre sur un double-clic dans la feuille.

Astuce : le mot "Faux" équivaut à une commande Annuler et termine l'encodage avec effacement de la feuille !

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim iRow%, sRep$
'
Cancel = True
Cells.Delete
Range("A1").Value = "MOTS"
'
Do
    Do
        sRep = Application.InputBox("Veuillez encoder un mot !", "Le poids des mots")
    Loop Until Not IsNumeric(sRep) And sRep <> ""
    If sRep = "Faux" Then
        Cells.Delete
        Exit Sub
    Else
        iRow = Range("A" & Rows.Count).End(xlUp).Row + 1
        Range("A" & iRow).Value = WorksheetFunction.Proper(sRep)
        If iRow > 2 And Range("A" & iRow).Value < Range("A" & iRow - 1).Value Then
            Range("C1").Value = "Nombre de mots :"
            Range("D1").Value = iRow - 1
            Exit Do
        End If
    End If
Loop
Columns.AutoFit
UsedRange.Borders.LineStyle = xlContinuous
'
End Sub

A+

1treerrttyt.xlsm (19.27 Ko)
Rechercher des sujets similaires à "while ordre alphabetique"