If then else

[serir]

Bonjour ,

Je voulais calculer la durée d'encaissement entre deux dates s'il y a un autre encaissement si non la date en D1 moins la date d'encaissement.
j'ai le message " erreur d’exécution 1004 erreur définie par l'application ou par l'objet "

Merci pour votre aide.

 

[gonz19]

Re : If then else

bonjour,

Lors du débogage la ligne erreur est bien set duree= cells(RowNum,3).
RowNum est un variable que tu définie a la ligne suivante

je suis pas sur que la suite du code fonctionne même aprés rectification de ce problème.

a+

 

[serir]

Re : If then else

non ça n'a pas marché

 

[gonz19]

Re : If then else

ta ligne if me parait pas logique
Je ne comprend pas exactement t'es attende

If Cells(RowNum + 1, 1) = Cells(RowNum, 1) And Cells(1, 4) >= Cells(RowNum + 1, 2) Then

 

[serir]

Re : If then else

Désolé le code est (changer la date en jaune 31/12/2014) et ça marche

Sub IfDuration()
Dim RowNum As Integer
RowNum = 2
Do While Not (IsEmpty(Cells(RowNum, 1)))
If Cells(RowNum + 1, 1) <> Cells(RowNum, 1) And Cells(1, 4) >= Cells(RowNum, 2) Then
Cells(RowNum, 3) = Cells(1, 4) - Cells(RowNum, 2)
ElseIf Cells(RowNum + 1, 1) = Cells(RowNum, 1) And Cells(1, 4) >= Cells(RowNum + 1, 2) Then
Cells(RowNum, 3) = Cells(RowNum + 1, 2) - Cells(RowNum, 2)
Else: Cells(RowNum, 3) = """"
End If
RowNum = RowNum + 1
Loop
End Sub

 

[gosselien]

Re : If then else

Bonjour,

pas compris le but exact moi...
tu peux expliquer un peu plus ?

P.

 

[serir]

Re : If then else

Bonjour ,

Le but c'est de calculer en vba la durée pour laquelle le même client achète encore une fois chez le même vendeur (durée entre premier achat et le deuxième puis entre deuxième et troisième et ainsi de suite) et en fin (un autre calcul dont le code n'est pas encore réalisé ) la durée moyenne pour l'ensemble des clients.

Merci pour votre participation.