Discussion :

[kaglaborn]

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

[SfJ5Rpw8]

Bonjour,


et donc quel code utilise tu pour comparer tes dates ?

[kaglaborn]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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 ?

[kaglaborn]

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.

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kaglaborn]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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