Introduire un message d'alerte

bonsoir

le code suivant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("B21:B100" & Range("A65536").End(xlUp).Row)) Is Nothing And Target.Count = 1 Then
    If Target = "" Then
        Exit Sub
    Else
            If Cells(Target.Row, Target.Column + 1) = "" Then
                If WorksheetFunction.Max(Range("C21:C100" & Range("A65536").End(xlUp).Row)) = 0 Then
                    Cells(Target.Row, Target.Column + 1) = 650
                Else
                    Cells(Target.Row, Target.Column + 1) = WorksheetFunction.Max(Range("C21:C100" & Range("A65536").End(xlUp).Row)) + 1
                End If
            End If
        End If
    End If
end sub 

me permet de generer des numeros sur une colonne en commencant par 650 , je voudrais ajouter une instruction de sorte que pour le dernier numero generé que je ne puisse plus l'obtenir une seconde fois si je decide de l''effacer manuellement

ou un message d'alerte du type " numero deja generé"

cela est il possible ?

vous remerciant pour vos interventions

Salut,

Ta demande sans réponse me rappelle étrangement un autre de tes fils :

https://forum.excel-pratique.com/excel/poser-une-restriction-sur-une-colonne-t26010.html#p147908

Mille fois sur le métier, remettez votre ouvrage .....

Cordialement

bonsoir

en attendant une reponse (meritée ou pas)

=SI(SOMMEPROD(NB.SI(A1:A7;A1:A7))>NB(A1:A7);"valeur en double";"")

tu l'adapteras a ta plage target

bonne nuit

merci pour ta réponse mais elle ne convient pas , car ta formule ne prend en compte que les numeros présent dans la plage target , si j'en efface un manuellement ( le dernier numero saisi ) et que j'en genere un autre ce ne sera pas le suivant mais le meme , en fait je me demande meme si excel peut se souvenir des numeros effacés ..... sans vouloir en demander trop je ne crois pas , donc à ma requete pas de solutions j'imagine , merci quand meme

Bonjour

Quand tu calcules ton numéro

Vérifies si ce n'est le même que tu as sauvegardé

Si c'est le même ajoutes 1 et sauvegardes le

si c'est pas le même sauvegardes le

Voila tu es prêt pour le prochain cycle

Merci , je vais adpater tout cela