Macro pour modifier un champ spécifique

Bonjour, je suis impressionné par votre rapidité !

J'avais prévu le "défaut de conception" . C'est pour cela que quand je modifie un salarié, la macro copie le nom du salarié et le colle 2 fois dans l'onglet "modifier", une fois qui sera masqué dans une ligne et les rechercheV se feront a partir de lui, et une fois en dessous, là où il est écrit "Nom et Prénom" qui pourra être modifié en cas de mauvaise orthographe.

Pour le matricule, j'y ai pensé aussi mais je ne savais pas les conséquences, en matière de rechercheV : par exemple,dans une paie, je ferai une liste où l'utilisateur choisira le salarié, donc la colonne B, il me sera impossible dans ce cas de faire une rechercheV et d'afficher le matricule comme il sera en colonne A (Et si je dis pas de bêtises la rechercheV s'effectue que sur la droite)

Je vais étudier votre macro, je préférai vous répondre avant, merci beaucoup !

Je viens de regarder tout ça de plus prêt. Ça à l'aire de très bien fonctionné ! Bien que je ne comprenne rien à vos macros. Vous avez pu constater que les autres macro son du type "débrouillardise" ^^

En revanche, pourriez vous m'expliquer l'utilité de la macro modifier ? Elle servirai a changer d'onglet ?

En tout cas encore merci pour tout le travail effectué !

la macro "modifier" envoie dans la liste des salariés toutes les données du formulaire, modifiées ou non
Mais tout se passe au départ dans le module feuille7
worksheet_change est une procédure événementielle qui se déclenche quand on valide une donnée dans une cellule (target) ici K17

ci dessous une autre version à mon avis plus simple à comprendre et tout aussi efficace

Sub Modifier()
Dim Cptr As Byte, Adresse As String
    For Cptr = 1 To 15
        Adresse = Choose(Cptr, "U17", "AA17", "K19", "K21", "Z19", "Z21", "K23", "O23", _
                                                 "Z23", "K25", "K27", "N27", "W27", "Z27", "K29")
        With Sheets("Modifier_salarié")
            .Range(Adresse) = Sheets("Liste_salariés").Cells(Lig, Cptr + 1)
        End With
    Next
End Sub

style "débroullardise"
on est tous passer par là! :o)
peut-^tre je modifierai "valider salarié" qui ressemblerait à la macro "modifier"


J'y vas car j'ai encore droit au number One du top 50 de la chorale occitane "Ch'uis pas mariée avec un ordinateur"
Pôvre de moi

Haha je vous remercie pour tout !

Je fais quelques modifications et je reviendrai vers vous si cela ne vous dérange pas avec une autre (petite) question.

Voici donc ma question :
Est-ce qu'à partir de la macro ci dessous, on peut faire la même chose pour supprimer et ajouter un salarié ? Car si vous avez regarder mes macros, quand j'ajoute, je copie et colle chacune des donnée une par une, ce qui fait mouliner le PC alors que la votre fait tout instantanément !

Sub valider_modif()
Dim Agent As String, Cptr As Byte, Adresse As String
        Agent = Sheets("Modifier_salarié").Range("K15")
         'cherche l'agent dans la liste
        With Sheets("liste_salariés")
            Lig = .Columns("A").Find(Agent, .Range("A999")).Row
            'inscrit les données
            For Cptr = 1 To 16
                Adresse = Choose(Cptr, "K17", "U17", "AA17", "K19", "K21", "Z19", "Z21", "K23", "O23", _
                                                         "Z23", "K25", "K27", "N27", "W27", "Z27", "K29")
                .Cells(Lig, Cptr) = Sheets("Modifier_salarié").Range(Adresse)
            Next
        End With

NB : J'ai repris mon fichier excel avec vos macro en modifiant quelques trucs (non pas que les votres n'étaient pas bonne, je ne suis même pas compétant pour juger, mais si je devais les modifier à l'avenir, il fallait que je comprenne ^^)
https://www.cjoint.com/c/EEou16YJU4i

Hum... Comment ça ?

dans le bas de l'écran du classeur, je ne vois pas les onglets de feuille

Étrange, en téléchargeant le fichier que j'ai uploadé, j'arrive à naviguer pourtant.

Ca y est j'ai retrouvé avec une manip (à force de télécharger les classeurs des uns et des autres...)
je m'y met demain à l'aube, enfin un peu plus tard.

Bonjour,
c'est parti et déjà avancé : il y a pas mal de boulot donc patience!