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

[Webperegrino]

Bonsoir Le Forum,
J'en appelle aux Experts pédagogues nombreux sur ExcelDownloads.
J'ai un problème avec ma formule RECHERCHEV.
Le fichier ci-joint explique mes soucis en ligne 15 à ligne 21, sur un exemple de choix pris en cellule A1.

Cette simulation est choisie en exemple car mon vrai fichier, similaire est trop gros, et avec d'autres critères ... que des plantation :
Une première feuille "Disponibilité" me répartit une équipe en fonction de plants à cultiver.
Une deuxième feuille "Individuel" a des formules en colonne D.
Ces formules sont mauvaises et me donnent des soucis d'affichage de résultats.
Pouvez-vous m'aider à trouver la bonne solution ? (mes explications étant placées en lignes 15 à 21).
Merci à vous,
Webperegrino.

 

[Monique]

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

 

[Webperegrino]

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

 

[JNP]

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

Private Sub Worksheet_Change(ByVal Target As Range) 'donne la couleur aux cellules en f(t) du contenu
If Target.Address = "$A$1" Then Macro4: Target.Select
  If Not Intersect([C2:H35], Target) Is Nothing Then
    On Error Resume Next
    Target.Interior.ColorIndex = [Couleur].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
    Target.Font.ColorIndex = [Couleur].Find(Target, LookAt:=xlWhole).Interior.FontIndex
  End If
End Sub

Bonne journée 😎

 

[Monique]

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)

 

[Kiseki]

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 ?

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/

 

[Bebere]

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

 

[Bebere]

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

 

[Webperegrino]

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

 

[Monique]

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

 

[Webperegrino]

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