If then else

G

gonz19

XLDnaute Occasionnel

• 11 Mai 2016

• #2

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+

 

Vote positif 0 Vote négatif

S

serir

Guest

• 11 Mai 2016

• #3

Re : If then else

non ça n'a pas marché

 

Vote positif 0 Vote négatif

G

gonz19

XLDnaute Occasionnel

• 11 Mai 2016

• #4

Re : If then else

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

Code:

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

 

Vote positif 0 Vote négatif

S

serir

Guest

• 11 Mai 2016

• #5

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

 

Dernière modification par un modérateur: 11 Mai 2016

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 11 Mai 2016

• #6

Re : If then else

Bonjour,

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

P.

 

Vote positif 0 Vote négatif

S

serir

Guest

• 12 Mai 2016

• #7

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.

 

Vote positif 0 Vote négatif