Automatisation de saisi

Bonjour, je souhaiterai automatiser ma saisi mais pour ce faire je butte sur un problème

Par ex, je voudrais lister des references :

ref1top(aba)

tef2top(aca)

cef3top(ata)

etc

Mais je voudrais afficher a chaque fois:

Ref1top(aba)-1

Tef2top(aca)-2

Cef3top(ata)-3

Ce qui est dans la parenthèse change toujours mais je voudrais que lorsque je tape la deuxième parenthèse cela m’affiche automatiquement le tiret et le numéro de la cellule.Aussi je voudrais qu' a chaque changement de ligne la première lettre soit en majuscule…est ce possible ?merci

Bonjour,

Une piste à mettre dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)

    If InStr(Target.Value, ")") <> 0 Then

        Application.EnableEvents = False
        Target.Value = Application.Proper(Target.Value)
        Target.Value = Target.Value & "-" & Target.Row
        Application.EnableEvents = True

    End If

End Sub

merci mais je ne sais pas comment utiliser ca dans ma feuille de saisi.

Bonjour,

Appuis sur les touches Alt+F11, te voici dans le VBE, double cliques sur "Feuil1" dans la petite fenêtre de gauche en haut (sous Microsoft Excel Object) et dans la partie droite que vient de s'afficher, colles le code. Retournes sur la feuille Excel qui porte le nom se trouvant entre parenthèses à coté de "Feuil1" (par défaut, le nom est aussi "Feuil1") et testes en entrant tes valeurs