[Excel] affichage conditionnel cellule

Résolu/Fermé

Houston-12 Messages postés 33 Date d'inscription jeudi 18 décembre 2003 Statut Membre Dernière intervention 23 juin 2009 - 5 févr. 2008 à 11:49
Houston-12 Messages postés 33 Date d'inscription jeudi 18 décembre 2003 Statut Membre Dernière intervention 23 juin 2009 - 20 févr. 2008 à 15:40

Bonjour,
Je souhaite réaliser un affichage particulier dans une cellule :
J'ai des noms d'applications sur une feuille excel. Dans une autre feuille du meme classeur, j'ai un tableau croisé dynamique dans lequel je trouve les applications contenues dans un serveur
ex: serveur1 appli1
appli2
appli3
serveur2 appli2
appli3
serveur3 appli1
appli3

Je dois mettre à jour réhulierement les applications.
Je souhaite afficher dans ma cellule les serveurs contenant l'application à mette à jour (celle qui est écrite dans une autre cellule)
Si dans ma cellule je rentre appli2, je souhaite qu'apparaisse automatiquement dans une autre cellule serveur1 - serveur2

Merci pour votre aide

A voir également:

[Excel] affichage conditionnel cellule
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Liste déroulante excel - Guide
Verrouiller cellule excel - Guide
Formule excel pour additionner plusieurs cellules - Guide

3 réponses

Réponse 1 / 3

Houston-12 Messages postés 33 Date d'inscription jeudi 18 décembre 2003 Statut Membre Dernière intervention 23 juin 2009 1
13 févr. 2008 à 15:52

Réponse 2 / 3

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 250
13 févr. 2008 à 21:34

Allo Houston, me recevez-vous ?

Difficile de faire ton ton truc sans vba.
Je te propose donc une fonction personnalisée à mettre dans un module.

Function ListB(Liste As Range, Chaine As String) As String
    Dim source()
    Dim i As Integer
    Dim clé As String, ret As String
    If Liste.Columns.Count <> 2 Then
        MsgBox ("'Liste' doit avoir 2 colonnes")
        ret = "Erreur"
    Else
        source = Liste.Value
        For i = 1 To UBound(source, 1)
            If source(i, 1) <> "" Then clé = source(i, 1)
            If source(i, 2) = Chaine Then ret = ret & " - " & clé
        Next i
    End If
    ListB = Mid(ret, 4)
End Function

Le 1er parametre est ta liste serveurs/applis sans les titres de colonne,
le 2nd parametre est la chaine recherchée en 2nde colonne (appli-x).
La fonction fonctionne (hé oui) que le nom du serveur soit répété sur chaque ligne ou qu'il ne soit présent que la 1ère fois (TCD)

http://www.cijoint.fr/cjlink.php?file=cj200802/cij11378708154328.xls

eric

PS: tu peux enlever la ligne msgbox... un peu dur sur une fonction si elle est présente 50 fois sur la feuille ;-)

Réponse 3 / 3

Houston-12 Messages postés 33 Date d'inscription jeudi 18 décembre 2003 Statut Membre Dernière intervention 23 juin 2009 1
20 févr. 2008 à 15:40

Merci beaucoup

Discussions similaires

Excel formule : savoir si une cellule contient partie texte

excel fractionner une cellule horizontalement

Excel si cellule contient texte alors...