treuyyyzzert
XLDnaute Nouveau
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.
Option Explicit
Option Compare Text
Sub Test()
Dim LaPlage As Range, LeTexte As String, L As Long
Set LaPlage = Intersect(ActiveSheet.[A2:A1000000], ActiveSheet.UsedRange)
LeTexte = InputBox("Le texte")
If LaPlage Is Nothing Then
L = 1
ElseIf LaPlage(1).Value <= LeTexte Then
L = 1
If LaPlage.Rows.Count > 1 Then L = WorksheetFunction.Match(LeTexte, LaPlage)
If LaPlage(L).Value = LeTexte Then
Rows(L + 1).Select
MsgBox """" & LeTexte & """ existe déjà.", vbExclamation
Exit Sub: End If
L = L + 1
Else
L = 1: End If
L = L + 1: Rows(L).Insert
ActiveSheet.Cells(L, "A").Value = LeTexte
End Sub