Discussion :

[thomasdu40]

Bonjour le forum,

Je vous expose mon problème car je n'ai pas réussi à trouver une solution.

Voilà, j'ai la macro ci-dessous (code présent dans la feuille) qui m'affiche une date dans la cellule U24 si et seulement si un nombre est noté dans la cellule A24. La date qui s'affiche est la date du jour où le nombre est saisi + 1 jour.

Moi je voudrai que cette macro prenne en compte toutes les cellules de la colonne U et toutes les cellules de la colonne A et cela bien sur en fonction de la date de saisie du nombre car dans ma macro ce n'est que pour les cellules U24 et A24. Je voudrai que se soit la même chose pour les cellules U25 et A25, U26 et A26...

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a24")) Is Nothing Then Exit Sub
If [a24] > "0" Then [U24] = CDate(Date + 1)
End Sub

Merci de votre aide.

[mayekeul]

bonjour,

je ne suis pas bien sur d'avoir tout compris mais si jamais c'était le cas voici une ébauche de réponse

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then
    Dim C As Range
    For Each C In Columns(1)
        If C > "0" Then Cells(C.Row, 21) = CDate(Date + 1)
    Next C
End If
End Sub

[thomasdu40]

Bonjour Mayekeul,

Merci pour ta réponse mais cela ne fonctionne pas car lorsque je saisi un chiffre > à 0 dans la 1ere colonne la date ne s'affiche pas dans la colonne 21

[mayekeul]

re

cela devrais mieux fonctionner ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then
    Dim C As Range
    For Each C In Columns(1).Cells
        If C > "0" Then
            Application.EnableEvents = False
            Cells(C.Row, 21) = CDate(Date + 1)
            Application.EnableEvents = True
        End If
    Next C
End If
End Sub

[thomasdu40]

Je viens d'intégrer le code dans ma feuille et lorsque je saisie un chiffre dans la 1ere colonne, je n'ai toujours pas la date qui s'affiche dans la cellule de la 21eme colonne. La j'avoue je suis perdu.

[mayekeul]

et rien ne s'affiche du tout?????