renvoyer automatiquement une valeur a plusieur cellules

adamov

XLDnaute Nouveau
Bonsoir à tous,

Je cherche une fonction pour affecter la valeur "X" sous condition dans une plage des cellules situé dans une autre fuille
Ces plages peuvent varier mais seront toujours identiques à celles de la feuille "F1" sur toutes les autres feuilles.

Merci pour votre aide.

Cordialement,
 

Pièces jointes

  • essai 1.zip
    3.6 KB · Affichages: 44
  • essai 1.zip
    3.6 KB · Affichages: 44
  • essai 1.zip
    3.6 KB · Affichages: 41

piga25

XLDnaute Barbatruc
Re : renvoyer automatiquement une valeur a plusieur cellules

Bonjour

Un essai avec ceci en C11 sur feuil2 :
=SI(couleurFond(C$10)=couleurFond(Feuil1!$C$1);Feuil1!$C2;SI(couleurFond(C$10)=couleurFond(Feuil1!$D$1);Feuil1!$D2;SI(couleurFond(C$10)=couleurFond(Feuil1!$E$1);Feuil1!$E2;"")))

Pour cela il faut mettre dans un module la fonction suivante :
Function couleurFond(champ As Range)
Application.Volatile
Dim temp()
ReDim temp(1 To champ.Count)
For i = 1 To champ.Count
temp(i) = champ(i).Interior.ColorIndex
Next i
couleurFond = Application.Transpose(temp)
End Function

La recherche de la valeur est basée en fonction de la couleur de l'entête. Pour cela il faut que les couleurs soit les mêmes entre la source et la destination.
 

Pièces jointes

  • Renvoi donnée en fonction couleur.xls
    52 KB · Affichages: 47
Dernière édition:

Modeste geedee

XLDnaute Barbatruc
Re : renvoyer automatiquement une valeur a plusieur cellules

Bonsour®
Une formule ne renvoie qu'une valeur et ne peut modifier le contenu ni le format d'autres cellules.
les autres cellules doivent faire référence à la cellule modifiée pour que leur contenu soit affecté.
 

Pièces jointes

  • Copie de essai 1.xls
    98 KB · Affichages: 64
  • Copie de essai 1.xls
    98 KB · Affichages: 66
  • Copie de essai 1.xls
    98 KB · Affichages: 63

Discussions similaires