Fonction RECHERCHEV ne fonctionnant pas bien : passer par une macro ?

Re : Fonction RECHERCHEV ne fonctionnant pas bien : passer par une macro ?

Bonjour,

Pour la macro qui se déclencherait lors du choix dans la liste de validation,
tu devrais chercher dans le forum "macro évènementielle" : il y a des réponses.
Je n'y comprends rien, ni aux macros, ni à l'angliche

Re : Fonction RECHERCHEV ne fonctionnant pas bien : passer par une macro ?

Bonjour,
Oui, merci pour cette info ; j'ai ma petite idée car je pense avoir la solution dans une des macros déjà en place dans mon fichier "réelle utilisation".
Bonne journée,
Webperegrino

Re : Fonction RECHERCHEV ne fonctionnant pas bien : passer par une macro ?

Bonjour le fil 🙂,
Félicitation Monique, beau travail (euh, j'ai pas tout compris 😱...) 😉 !
Il y a déjà une événementielle dans la feuille Indiv, donc il faut la modifier ainsi Bonne journée 😎

Re : Fonction RECHERCHEV ne fonctionnant pas bien : passer par une macro ?

Bonjour,

Merci JNP

Pour les formules des colonnes D et I,
la plage nommée "Periode" était définie d'après les valeurs en colonne A (et B mais sans importance)
Formule modifiée avec du Decaler()

La macro 4 : je ne réussis pas à la modifier…

La feuille "Formule" est refaite

Les deux macros évènementielles :
elles ne pourraient pas enlever les couleurs
quand les cellules sont vides (onglet "Dispo")
ou quand A1 est vide (onglet "Indiv")
(j’ai laissé le bouton)

Re : Fonction RECHERCHEV ne fonctionnant pas bien : passer par une macro ?

Bonjour,

Un clic sur un bouton enlève les couleurs précédentes et en met d'autres
Les doués de la macro doivent pouvoir déclencher la macro après chaque choix dans la liste de validation, non ?

Cliquez pour agrandir...

Ce doit être possible en mettant une macro évènementielle sur la feuille en question.

Dans l'édition de macro ouvrir la feuille, sélectionner "Worksheet" et ce devrait être "change"/"selection change".

Voici une discutions ce rapportant :
https://www.excel-downloads.com/threads/macro-evenementielle-sur-changement-dune-cellule.62834/

Re : Fonction RECHERCHEV ne fonctionnant pas bien : passer par une macro ?

bonjour Webperegrino,Monique,Kiseki
à essayer
pour feuille dispo,après private
If Application.CountA([B5:AO25]) = 0 Then [B5:AO25].Interior.ColorIndex = -4142
peut être fait par jour
pour feuille indiv
Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 28/06/2011 par Monique
'
'
Application.ScreenUpdating = False
If Range("A1") = "" Then
Range("A1").Interior.ColorIndex = xlNone
Range("C2:C35").Interior.ColorIndex = xlNone
Range("H2:H35").Interior.ColorIndex = xlNone
Range("C2:C35").Font.ColorIndex = xlAutomatic
Range("H2:H35").Font.ColorIndex = xlAutomatic

End If

Range("C2:C35").Interior.ColorIndex = 2
Range("C2:C35").Font.ColorIndex = 1

Range("H2:H35").Interior.ColorIndex = 2
Range("H2:H35").Font.ColorIndex = 1

Range("H2:H5").Formula = "=FormExtrac"
Range("H7:H15").Formula = "=FormExtrac"
Range("H17:H20").Formula = "=FormExtrac"
Range("H22:H25").Formula = "=FormExtrac"
Range("H27:H30").Formula = "=FormExtrac"
Range("H32:H35").Formula = "=FormExtrac"
Range("C2:C5").Formula = "=FormExtrac"
Range("C7:C15").Formula = "=FormExtrac"
Range("C17:C20").Formula = "=FormExtrac"
Range("C22:C25").Formula = "=FormExtrac"
Range("C27:C30").Formula = "=FormExtrac"
Range("C32:C35").Formula = "=FormExtrac"

Range("A2").Select
Application.ScreenUpdating = True
End Sub
à bientôt

Re : Fonction RECHERCHEV ne fonctionnant pas bien : passer par une macro ?

bonjour
après avoir fouiner un peu
changer couleur (insertion nom définir et la dernière cellule de range("couleur") sans couleur)
ajouter une ligne dans code feuille indiv
macro4 mis en commentaires les lignes inutiles
à bientôt

Re : Fonction RECHERCHEV ne fonctionnant pas bien : passer par une macro ?

Bonsoir Le Forum,
Bonsoir Monique,
Merci aussi à JNP, LISEKI et BEBERE !
Je vais étudier le contenu de vos messages.
Vous allez trop vite pour moi !

De mon côté, Monique, j'ai avancé !
Il y avait des erreurs de résultats en colonne I.
J'ai ajouté des nouvelles définitions (NomA2, etc).
Tout est expliqué en feuille5 (Indiv) du fichier complété que je vous joins ici.

J'ai aussi réussi à automatiser l'ensemble :
- Votre Macro4 est intégrée dans le fonctionnement du déroulant A1 : tout s'affiche, se nettoie, se colore d'un seul coup !
On n'a donc plus besoin du bouton couleur annexe... simplification à nouveau...
- Monique, vous m'avez donné le chemin, j'ai réussi à le clarifier pour mes besoins.
- J'ai même réussi à simplifier la Macro (à voir avec Alt + F11).
- Tout fonctionne pour moi, j'atteins un niveau de satisfaction maximum.
- Voir les explications complémentaires dans la feuille Indiv en colonnes JKL

D'autre part je suis heureux de pouvoir ainsi faire participer cette recherche au niveau du Forum et d'en faire profiter un maximum de personnes.
Bon week-end,
Webperegrino

Re : Fonction RECHERCHEV ne fonctionnant pas bien : passer par une macro ?

Bonjour,

C'est marrant, j'ai l'impression que tu n'as pas vu la version 6 du fichier
(message d'hier à 18h25). Ou bien ça ne marchait pas ?

"Pour les formules des colonnes D et I,
la plage nommée "Periode" était définie d'après les valeurs en colonne A (et B mais sans importance)
Formule modifiée avec du Decaler()"

Les macros que je ne réussissais pas à modifier, c'est fait, du coup

Re : Fonction RECHERCHEV ne fonctionnant pas bien : passer par une macro ?

Bonsoir Le Forum,
Bonsoir Monique,
Oui, c'est marrant car je suis resté en jachère depuis le message #17.
Je ne viens de découvrir les #18 à #22 que ce soir... car j'ai fait "turbiner mes neuronnes dans les deux sens" pour essayer de trouver les solutions moi-même.
Il me reste donc maintenant à comparer mes propositions avec les vôtres pour, si nécessaire, rendre mon application encore plus opérationnelle.
Pour votre gouverne j'ai même ajouté BEEP dans la Macro4 à l'endroit final suivant, ça devient du luxe !
End If
Beep
End Sub

Mais, déjà je suis très enchanté des résultats obtenus sur ce Fil depuis le 29 juin.
Encore merci pour toute cette gentille collaboration.
Webperegrino