Formules selon résultat d'une celulle

Bonjour

Je suis embête avec une formule que je n 'arrive pas à faire fonctionner, en fait je ne sais pas laquelle utiliser

si une personne me donner une idée

ci joint un fichier test

merci

Bonjour patogaze77, le forum,

Une piste avec une imbrication de SI.....dates en colonne C

• vert = aujourd'hui
• bleu = aujourd'hui +2
• rouge= aujourd'hui +5

Cordialement,

Merci ca me convient, comment en ajouter d'autres rapidement par contre, j ai 10 couleurs peux tu me bricoler ca stp

bonjour

une idée

=aujourdhui() + equiv(la cel;{"bleu"; ;"rouge";"jaune";"vert";"marron";...........};0)

à toi de positionner tes valeurs entre { }

attention avec Aujourdhui qui ne se fige pas (change tout les jours)

pour figer => VBA et Date

cordialement

Bonjour à toi

oui mise en place plus rapide peut être, cela me convient mais j' ai une erreur, d'autres part quelle macro pour figer la date ?

=aujourdhui() + equiv(F8;{"bleu";"rouge";"jaune";"vert";"marron"};0)

ca me rejete F8

Je suis en teste par contre cela me donne pas le nombre de jours a ajouter selon la couleur dans ton cas

Re,

comment en ajouter d'autres rapidement par contre, j ai 10 couleurs

Une autre proposition, avec un tableau de correspondance....

Mais comme l'a stipulé Tulipe_4 que je salue ( )

attention avec Aujourdhui qui ne se fige pas (change tout les jours)

pour figer => VBA et Date

Un essai....

Cordialement,

j ai du mal a l adapter dans mon fichier y a t il d autres propositions ?

Bonjour,

En attendant une meilleure proposition...

j ai du mal a l adapter dans mon fichier

-Ajout d'une feuille "paramètres" (qui peut être masquée) avec le tableau de correspondance.

ALT+ F11 pour atteindre l'éditeur VBA

-Dans le module de la feuille "test", voici le code:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim i As Integer
     dl = Sheets("test").Range("B" & Rows.Count).End(xlUp).Row   'dernière ligne remplie de la colonne B

     For i = 5 To dl      'de la ligne 5 à la dernière ligne
      On Error Resume Next
       If Not Application.Intersect(Target, Range("B" & i)) Is Nothing Then  'si choix en colonne B
        If Range("B" & i) <> "" Then  'si cellule non vide
        'en colonne C on affiche la date du jour + correspondance de la cellule B dans la feuille paramètres
           Range("C" & i) = Date + Application.VLookup(Sheets("test").Range(("B" & i)), Sheets("paramètres").Range("A2:B11"), 2, False)
        Else
           Range("C" & i) = ""   'si cellule vide on affiche rien
        End If
       End If
     Next i
End Sub

-Enregistrer le classeur en choisissant l'extension .xlsm (classeur excel prenant en charge les macros).

Cordialement,

excellent je vais l'adapter a mon fichier

Je reviens verts toi si soucis

bon week end

Merci mille fois j 'ai réussi a l'adapter dans mon fichier; juste un petit superflu si possible, peux t om s'imaginer que lorsque je saisie rouge dans ma colonne des couleurs cela vienne me remplir cette meme cellule avec red en anglais .

bon week end a toi

Bonjour,

Merci pour ton retour,

'imaginer que lorsque je saisie rouge dans ma colonne des couleurs cela vienne me remplir cette meme cellule avec red en anglais

Sauf erreur de ma part (un pro me corrigera dans le cas contraire), je ne pense pas que cela soit possible, .....

Soit tu rajoutes une colonne supplémentaire :

Soit tu peux utiliser une msgbox:

Cordialement,

Une autre approche via un userform...

Double-clic dans une cellule de la colonne F

Sélection de la couleur

Validation

Je pense adopter la première solution je vais l adapter, merci encore