A voir également:
- Résultat opération fait sur 2 colonnes
- Jdownloader 2 - Télécharger - Téléchargement & Transfert
- 2 comptes whatsapp - Guide
- Resultat loto d'aujourd'hui ✓ - Forum Excel
- Epson scan 2 ✓ - Forum Imprimante
- 2 ecran pc - Guide
6 réponses
hervelot
Messages postés
535
Date d'inscription
mardi 18 septembre 2007
Statut
Membre
Dernière intervention
20 mars 2008
123
27 nov. 2007 à 14:16
27 nov. 2007 à 14:16
Bonjour,
il suffit juste de tester que Range("N" & i).Value et Range("O" & i).Value ne sont pas nulles
if not isnull(Range("N" & i).Value) or not isnull(Range("O" & i).Value) then
delais2 = Range("N" & i).Value - (Range("O" & i).Value * 30) 'pour convertir le mois en jours
Range("AA" & i).Value = delais2
If Date = delais2 Then
MsgBox ("Attention preavis pour " & Cells(i, 1).Value)
End If
endif
il suffit juste de tester que Range("N" & i).Value et Range("O" & i).Value ne sont pas nulles
if not isnull(Range("N" & i).Value) or not isnull(Range("O" & i).Value) then
delais2 = Range("N" & i).Value - (Range("O" & i).Value * 30) 'pour convertir le mois en jours
Range("AA" & i).Value = delais2
If Date = delais2 Then
MsgBox ("Attention preavis pour " & Cells(i, 1).Value)
End If
endif
m-ln
Messages postés
7
Date d'inscription
lundi 26 novembre 2007
Statut
Membre
Dernière intervention
6 décembre 2007
27 nov. 2007 à 20:10
27 nov. 2007 à 20:10
Ca ne marche pas : ça écrit que dans la première ligne.....
hervelot
Messages postés
535
Date d'inscription
mardi 18 septembre 2007
Statut
Membre
Dernière intervention
20 mars 2008
123
27 nov. 2007 à 20:24
27 nov. 2007 à 20:24
Oui c sur tu n'incrémentes pas ton i, il reste à 2
m-ln
Messages postés
7
Date d'inscription
lundi 26 novembre 2007
Statut
Membre
Dernière intervention
6 décembre 2007
27 nov. 2007 à 20:38
27 nov. 2007 à 20:38
Donc ça donnerait :
Sub date_preavis()
Dim c As Range
Dim delais2 As Date
'selection de la feuille contrats
Sheets("contrats").Select
i = 2
For Each c In Range(("AA" & i), Range("AA" & i).End(xlDown))
If Not IsNull(Range("N" & i).Value) Or Not IsNull(Range("O" & i).Value) Then
delais2 = Range("N" & i).Value - (Range("O" & i).Value * 30) 'pour convertir le mois en jours
Range("AA" & i).Value = delais2
If Date = delais2 Then
MsgBox ("Attention preavis pour " & Cells(i, 1).Value)
End If
End If
i = i + 1
Next
End Sub
est-ce correct ?
Sub date_preavis()
Dim c As Range
Dim delais2 As Date
'selection de la feuille contrats
Sheets("contrats").Select
i = 2
For Each c In Range(("AA" & i), Range("AA" & i).End(xlDown))
If Not IsNull(Range("N" & i).Value) Or Not IsNull(Range("O" & i).Value) Then
delais2 = Range("N" & i).Value - (Range("O" & i).Value * 30) 'pour convertir le mois en jours
Range("AA" & i).Value = delais2
If Date = delais2 Then
MsgBox ("Attention preavis pour " & Cells(i, 1).Value)
End If
End If
i = i + 1
Next
End Sub
est-ce correct ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
hervelot
Messages postés
535
Date d'inscription
mardi 18 septembre 2007
Statut
Membre
Dernière intervention
20 mars 2008
123
28 nov. 2007 à 05:12
28 nov. 2007 à 05:12
Ouais, C'est deja beaucoupo mieux