Enrichir un Visaul Basic avec deux nouvelles fonctions

Question

Pouvez-vous m'aider à amender le Visual Basic du tableau Excel2007 que je joint. Je souhaiterais faire améliorer le Visual qui fonctionne car je fais encore beaucoup de déplacement au clavier pour compléter ce tablaeu. Voici ma demande : Je ne sais pas si c'est la meilleur façon d’expliquer en partant d'une cellule de la colonne F J'ai ajouté deux colonnes pour prendre en compte des changements et déplacement dans le tableau. Dès que j’ai validé M en colonne I Déplacer en Cellule suivante en J dès que j’ai validé Déplacer en Cellule suivante colonne K dès que j’ai validé Déplacer en Cellule suivante colonne L dès que j’ai validé sauf Dans le cas où : si saisi N en J (Naturel) mettre INCONNU pour le nom du père puis déplacer en cellule T et mettre saisi de L en S au nom de la mère sinon mettre saisi de L en Q Déplacer en Cellule suivante colonne M dès que j’ai validé Déplacer en Cellule suivante colonne N dès que j’ai validé sauf si « M » saisi en K saisi du Nom en O et saisi du prénom en P de l’ancien (ne) conjoint (E) Sinon si cellule vide en K : Si Père Inconnu saisi du prénom de la mère en T dès que je valide Déplacer en Cellule suivante colonne U dès que j’ai validé Puis Déplacer en Cellule suivante colonne V dès que j’ai validé Puis Déplacer en Cellule suivante colonne w dès que j’ai validé Puis Déplacer en Cellule suivante colonne X dès que j’ai validé on revient en cellule If Not Intersect(Range("X:X"), Cel) Is Nothing Then Application.EnableEvents = False Cells(Target.Row + 1, 4).Select Application.EnableEvents = True End If Si nom du père connu déplacer en cellule R pour saisi prénom (s) Puis Déplacer en Cellule suivante colonne U dès que j’ai validé Puis Déplacer en Cellule suivante colonne V dès que j’ai validé Puis Déplacer en Cellule suivante colonne w dès que j’ai validé Puis Déplacer en Cellule suivante colonne X dès que j’ai validé on revient en cellule If Not Intersect(Range("X:X"), Cel) Is Nothing Then Application.EnableEvents = False Cells(Target.Row + 1, 4).Select Application.EnableEvents = True End If Pouvez-vous m'aider Cordialement Claude...

LouReeD · Answer

Cela ressemble à ce que j'ai mis en place sur le fichier ici . En effet pour entrer les données de dépense, je fais tout au clavier avec un déplacement automatique d'une colonne à l'autre sans devoir toucher à la flèche gauche. Je peux regarder dés que j'ai un peu de temps, mais je laisse bien évidemment la main à tous ceux qui veulent plancher sur la demande ! @ bientôt LouReeD...