Réalisation d'une macro VBA inputbox qui permet d'éviter les doublons

Sujet :

"Créer une Macro qui permet d'insérer un nouveau nom dans une liste grâce à une input box.

Cette macro doit être en mesure d'ajouter de nouveaux noms plusieurs fois sans ré-écrire les noms existants.

Cette marco vérifiera si le nouveau nom n'est pas déjà existant sur la liste.

Si le nom existe déjà, une nouvelle inputbox demandera de changer de nom."

Bonjour, Cela fait deux heures que je cherche à effectuer cette macro sur VBA.

Cependant impossible pour moi de la réaliser, je reste bloquée à la première étape... Si quelqu'un peut m'aider à écrire cette macro ce serait formidable.

pour l'instant j'ai pu écrire cela :

Sub insertname()

Dim myValue As Variant
myValue = InputBox("New name")
Range("A1").Value = myValue
ActiveCell.Offset(1, 0).Select

End Sub

J'essaie de passer automatiquement à la cellule suivante mais "ActiveCell.Offset(1, 0).Select" ne fonctionne pas.

Je dois être complètement à côté de la solution.

Merci pour votre aide!

Bonjour loch12 et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum et notamment :

• Pour plus de lisibilité, utilisez le bouton </> pour insérer vos codes VBA (et si possible aussi pour vos formules Excel).

Merci de votre participation

Cordialement

Bonjour

un essaie

Sub insertname()
Dim i As Integer
Dim DerLig As Long
Dim myValue As Variant
1
DerLig = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
myValue = InputBox("New name")
For i = 1 To DerLig
If Range("A" & i).Value = myValue Then GoTo 1
Next i
Range("A" & DerLig + 1).Value = myValue

End Sub

merci

Bonsoir Iliyes,

je vous remercie infiniment ça a marché!!

c'est super merci encore!

Bonne soirée.

Ravie de vous avoir aidé

si c'est bon, marqué le post comme résolue

merci