Modifier des cellules en fonction d'une autre

Bonjour,

Je suis débutant dans le domaine mais j'ai des travaux à réaliser sur Excel nécessitant un peu de programmation je pense.
Je vous explique mon cas.

Sur la même ligne, j'ai plusieurs dates (Date de mise en service, Date T1, Date T2, Date T3).
Mon souhait serait que quand je remplis la cellule "date de mise en service", les cellules des dates T1, T2 et T3 se vident pour recommencer le cycle. Seule condition à respecter : La nouvelle date de mise en service doit être strictement supérieur aux dates T1, T2 et T3 pour qu'elles se vident.

Alors j'ai tenté en passant par la macro puis en éditant le code mais ça ne marche.
J’espère que vous allez pouvoir m'aider :)

A bientôt
Karl

Bonjour,


et donc quel code utilise tu pour comparer tes dates ?

Bonjour,

A mettre dans le module de la feuille. Pour le test, la cellule cible est B3. Si une des 3 cellules à droite (C3, D3 et E3) a une date inférieure à celle entrée en B3, message sinon, effacement des dates :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Worksheet_Change(ByVal Target As Range)   With Target   If .Address(0, 0) <> "B3" Then Exit Sub   If .Value < .Offset(, 1).Value Or .Value < .Offset(, 2).Value Or .Value < .Offset(, 3).Value Then   MsgBox "La date est inférieure à une des trois dates situées en colonne C, D et E !"   Else .Offset(, 1).Value = "" .Offset(, 2).Value = "" .Offset(, 3).Value = ""   End If   End With   End Sub

---

Citation:

---

Envoyé par bbil

Bonjour,


et donc quel code utilise tu pour comparer tes dates ?

---

Bonjour,

J'ai voulu le retrouver mais j'ai du le supprimer.
En gros, c'était :

Code:

---

1 2 3

sub.... If Range ("A1")>Range("B1") or Range ("A1")>Range("C1") or Range ("A1")>Range("D1") Then Range("B1:D1").ClearContents End Sub

---

PS : Je n'y connais rien jusqu'à présent et j'ai découvert cela cet après-midi, donc pas de moqueries svp :p

Et donc tu conditionne ton cleau avec "OR" soit OU ... ce qui fait que tu efface tes données si au moins une des dates colonnes B à D est inférieure à A ... est-ce bien ce que tu veux ..? ne doit-tu pas avec la date en A dépasser les 3 autres dates ?

Citation:

---

Envoyé par Theze

Bonjour,

A mettre dans le module de la feuille. Pour le test, la cellule cible est B3. Si une des 3 cellules à droite (C3, D3 et E3) a une date inférieure à celle entrée en B3, message sinon, effacement des dates :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Worksheet_Change(ByVal Target As Range)   With Target   If .Address(0, 0) <> "B3" Then Exit Sub   If .Value < .Offset(, 1).Value Or .Value < .Offset(, 2).Value Or .Value < .Offset(, 3).Value Then   MsgBox "La date est inférieure à une des trois dates situées en colonne C, D et E !"   Else .Offset(, 1).Value = "" .Offset(, 2).Value = "" .Offset(, 3).Value = ""   End If   End With   End Sub

---

---

merci j'essaye ca :)

Citation:

---

Envoyé par bbil

Et donc tu conditionne ton cleau avec "OR" soit OU ... ce qui fait que tu efface tes données si au moins une des dates colonnes B à D est inférieure à A ... est-ce bien ce que tu veux ..? ne doit-tu pas avec la date en A dépasser les 3 autres dates ?

---

Ce que je souhaite c'est que la date en A efface toutes les dates T1, T2,...,Tn ssi cette date A est supérieure à celles-ci.

salut,

donc tu dois revoir ta formule et écrire Si DateA > DateB ET DateA>DateC et DateA>D ., effacer les donner ...


maintenant que tu connais le code à lancer il faut voir comment exécuter celui-ci, pour cela tu as la piste à These qui utilise l'événement change appliqué à une feuille de calcul :


http://silkyroad.developpez.com/VBA/...Feuille/#LII-E ...


cet événement as comme paramètre la variable range Target qui représente la plage de cellule modifiée . tu peu ensuite utiliser la fonction Intersect pour extraire de Target les cellules appartenant à ta colonne A... et ensuite appliquer ton code à chacune de ces cellules..

voici un exemple de boucle FOR qui lors d'un changement dans ta feuille parcours les cellules modifiées de la colonne A :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

' ' Code événementiel de ta feuille de calcule à mettre ' dans page de code associé à ta feuille ' Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range For Each c In Intersect(Me.Range("A:A"), Target) Debug.Print c.Address 'Voir résultat dans fenêtre exécution (CTRL+G) Next End Sub

---

Super, je vais essayé de faire marcher tout cela.

Merci ;)