Bonsoir le Forum,

J'ai une liste déroulante dans laquelle je sélectionne une valeur qui va se coller dans une cellule.
Il faudrait ensuite que cette zone de liste déroulante redevienne vierge.

j'avais songé (dans le fichier que je vous invite à ouvrir pour plus d'explications) nommée une zone en laissant une cellule vide afin de la retrouver dans ma liste déroulante et de l'inclure dans la macro, mais à l'exécution de celle-ci la zone de liste déroulante laisse apparaitre la derniere sélection.

En espérant avoir été assez clair

Très bonne soirée à Tous

Wilplan 

Bonsoir Guy,

Pour un code pas plus brillant qu'il faut, il est tout simplement Lumineux.
Merci à toi. 

Cordialement,

Wilplan

Re Bonjour,

Désolé Guy , je me doutais que j'allais te faire bondir avec un tel code. Il est vrai que j'aurai pu simplifier en supprimant les select.
Maintenant je n'ai jamais prétendu être un codeur, je rame déjà pour apprendre les formules alors pour le code vba je me débrouille comme je peux, mais promis dès que je maîtriserai les formules je m'attaquerai au langage VBA avec le même enthousiasme.

Ceci dit, je reviens à mon problème:

Je souhaite faire une macro qui copierait les communes, les temps de trajet et les temps de travaux de la feuil2 puis les coller sur la feuil1. Imprimer cette feuil1 et supprimer cette saisie. 
Cette feuil1 comporte des formules qui me calcule la durée totale (temps de trajet+tempsde travail) et de ce fait sélectionne le smiley adéquat. 

Avec mes remerciements,

Wilplan

Bonjour Guy, le Forum,

Voici donc un extrait de mon fichier qui à l'exécution de la macro1 génère cette fameuse erreur 1004.

très cordialement,

Wilplan

Bonjour le Fil, le Forum, 

J'ai crée une macro qui bugg lors de son éxécution.
ci-dessous le message d'erreur.

erreur 1004 (impossible de lire la propriété Height de la classe range.) dans la procédure Smileys du module mod smiley.

Je remercie les Vbaistes de leur aide.

Bonne journée à Tous

Wilplan


 

Un sans faute toujours aussi bien expliqué,
Merci Jean-Marie. 

Bonne journée

Wilplan

J'ai du m'emmêler les pinceaux, voici donc le fichier 
avec mes excuses

 Bonsoir le Forum,

J'aurai besoin d'un petit coup de pouce pour modifier une formule dans le cas d'un copier/coller de cellule vide et qui me génère une erreur.
Je pense que le fichier joint sera plus à même de me faire comprendre.
Merci à Vous,
Bonne soirée. 

Re,

Bonne Saint-Jean-Baptiste, et pardon de t'avoir fait travailler un jour de fête Nationale.

Tes efforts n'ont pas été vains, j'ai tout compris. Maintenant avant de pouvoir écrire du code je vais souvent avoir besoin d'aide!

Cordialement,

Wilplan

Bonjour Guy, le forum 

Désolé de ma réponse tardive mais j'ai eu des petits soucis de connection hier soir.
Déjà merci d'apporter ta pierre à mon projet, j'ai effectivement besoin d'éclaircissement dans ton code, j'ai bien saisi ton raisonnement mais je ne vois pas ou je dois récupérer les smileys.
Dans ta boucle For Each tu parles de feuil2 que déjà je ne retrouve pas dans le fichier.
Aussi sur quoi intervenir pour centrer les smileys? est-ce du code à rajouter ou doit-on intervenir dans les propriétés de l'objet?
Comme tu peux le constater il y a tout un apprentissage à faire en VBA, mais je suis sur le bon site ,Non?

Bonne journée et encore merci

Cordialement,