Discussion :

[facteur]

Bonjour

Je reviens vers vous concernant un code VBA Excel que j'aimerais améliorer.
Cette amélioration concerne une variable.
J'ai essayé avec un select case et if mais en vain

J'ai un tableau Excel avec une date de début et une date de fin (cf photo ci dessous).
J'alimente donc ces deux cellules et je lance mon code qui va exécuter une requête qui elle même va exécuter une procédure stockée.

Je souhaiterais rajouter une ligne de code qui stipule que si je n'ai pas de date de fin (en B3) alors la variable datefin de mon code VBA récupère la date du lendemain sinon datefin ( ligne en reouge dans mon code ci dessous).

Merci d'avance de votre aide.

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
22
23
24
Sub variable()
……………………….
Set cm = New ADODB.Command

  With cm
    .ActiveConnection = cn
    .CommandText = sql
    .CommandTimeout = 0 
    .CommandType = adCmdStoredProc 
  
DateDeb = CDate(Format(Sheets("Feuill1").Range("B2").Value2, "yyyy-mm-dd")) + CDate(Format(Sheets("Feuill1").Range("C2").Value2, "hh:mm:ss"))

datefin = CDate(Format(Sheets("Feuill1").Range("B3").Value2, "yyyy-mm-dd")) + CDate(Format(Sheets("Feuill1").Range("C3").Value2, "hh:mm:ss"))

‘si datefin est vide alors date du lendemain sinon datefin  

    .Parameters.Append .CreateParameter("DateDeb", adDate, adParamInput, 7, DateDeb 
    .Parameters.Append .CreateParameter("DateFin", adDate, adParamInput, 7, datefin) 
   
  End With
  Set rs = cm.Execute()

……………………………………………
End sub

[78chris]

Bonjour

un

Code :

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

iif(B3<>"",B3,B2+1)

devrait le faire

A tester

Code :

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

datefin = CDate(Format(Sheets("Feuill1").iif(Range("B3").value<>"",Range("B3").value,Range("B2").value+1), "yyyy-mm-dd"))

[facteur]

Bonjour 78chris
Avant tout merci de te pencher sur ma prblématique.
J'ai donc essayé ta solution et j'ai un message d'erreur sur la ligne de code

Code :

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

datefin = CDate(Format(Sheets("Feuill1").iif(Range("B3").value<>"",Range("B3").value,Range("B2").value+1), "yyyy-mm-dd"))

[facteur]

j'ai modifier ta ligne de code

Code :

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

datefin = CDate(Format(Sheets("Feuill1").iif(Range("B3").value<>"",Range("B3").value,Range("B2").value+1), "yyyy-mm-dd"))

en ceci

Code :

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

datefin = CDate(IIf(Sheets("Feuill1").Range("B3").Value <> "", Range("B3").Value, Range("B2").Value + 1))

et ca marche. mais je me demande pourquoi en retirant le format le code me donne quand meme la date du lendemain en "yyyy-mm-dd" ?

[Tête de chat]

Bonjour,

Attention, si tu as de la chance, Sheets("SchemaTPGD") est la feuille active et ça marcher (et tant qu'à faire vire la première référence, sinon il faudrait écrire

Code :

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

datefin = CDate(IIf(Sheets("SchemaTPGD").Range("B3").Value <> "", Sheets("SchemaTPGD").Range("B3").Value, Sheets("SchemaTPGD").Range("B2").Value + 1))

Ce que personnellement j'écrirais :

Code :

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

1
2
3
4
 
With ThisWorkBook.Sheets("SchemaTPGD")
     datefin = CDate(IIf(.Range("B3").Value <> "", .Range("B3").Value, .Range("B2").Value + 1))
End With

[facteur]

Super merci Chris
Je ferme la discussion

[78chris]

RE

Attention...
Ce que personnellement j'écrirais :

Code :

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

1
2
3
4
 
With ThisWorkBook.Sheets("SchemaTPGD")
     datefin = CDate(IIf(.Range("B3").Value <> "", .Range("B3").Value, .Range("B2").Value + 1))
End With

Tu as raison j'ai été un peu vite en besogne.