validation de données

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Re : validation de données

Bonjour à tous,

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Or Target(1) = "" Then Exit Sub
Dim mem, choix As Byte
Application.EnableEvents = False
On Error Resume Next 'sécurité
mem = Target(1)
Application.Undo
If Target(1) <> "" Then choix = MsgBox("Ajouter ?", 4)
Target(1) = IIf(choix = 6, Target(1) & " ", "") & mem
Application.EnableEvents = True
End Sub
Edit : fichier joint.

A+
 

Pièces jointes

Dernière édition:
Re : validation de données

le forum
jha merci mais j'avais déjà cherché dans boisgontier
jcf6464 vu merci pour cette proposition
boisgontier vu merci bien
job75 comme tjs extra
c'est bien trop
en fait je cherchais une solution sans vba
bonne soiréde
urbanito
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
381
Retour