Programmation vba

Résolu

seboui Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention - 16 août 2013 à 18:59

bonjour, je dois réaliser du codage vba pour un travail informatique mais je ne sais pas comment définir les variable pour qu'elles soient prisent en compte.

Comment faire pour que mes champs "datefindelocation" et "datedebutdelocation" soit mes valeurs utilisées dans la formule?

Sub ContratDeLocation()
'
' ContratDeLocation Macro
'
' Touche de raccourci du clavier: Ctrl+z
'

Dim DateDebutDeLocation As Date
Dim DateFinDeLocation As Date
DateFinDeLocation = ?
DateDebutDeLocation= ?

ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = InputBox("Entrez la date du début de la location", "Date de début de location")
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = InputBox("Entrez la date de fin de location", "Date de fin de location")

If (DateFinDeLocation - DateDebutDeLocation) <= 1 Then
ActiveCell.Offset(0, 1).Value = "45euro"
ElseIf (DateFinDeLocation - DateDebutDeLocation) >= 2 And (DateFinDeLocation - DateDebutDeLocation) <= 3 Then
ActiveCell.Offset(0, 1).Value = "40euro par jour"
ElseIf (DateFinDeLocation - DateDebutDeLocation) >= 4 And (DateFinDeLocation - DateDebutDeLocation) <= 6 Then
ActiveCell.Offset(0, 1).Value = "35euro par jour"
Else: ActiveCell.Offset(0, 1).Value = "25euro par jour"
End If
End Sub

Afficher la suite

A voir également:

Programmation vba
Application de programmation - Guide
Excel compter cellule couleur sans vba - Guide
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Mkdir vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention 155

coucou,

rempalce ton code par celui-ci :

Sub ContratDeLocation()
'
' ContratDeLocation Macro
'
' Touche de raccourci du clavier: Ctrl+z
'

Dim DateDebutDeLocation As Date
Dim DateFinDeLocation As Date

ActiveCell.Offset(0, 1).Select
DateDebutDeLocation = InputBox("Entrez la date du début de la location (sous le format jj/mm/aaaa)", "Date de début de location")
Do While Not IsDate(DateDebutDeLocation)
a = MsgBox("La valeur renseignée n'est pas une date !", vbOKOnly, "Erreur de saisie")
DateDebutDeLocation = InputBox("Entrez la date du début de la location", "Date de début de location")
Loop
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = DateDebutDeLocation
ActiveCell.Offset(0, 1).Select
DateFinDeLocation = InputBox("Entrez la date de fin de location (sous le format jj/mm/aaaa)", "Date de fin de location")
Do While Not IsDate(DateFinDeLocation)
a = MsgBox("La valeur renseignée n'est pas une date !", vbOKOnly, "Erreur de saisie")
DateFinDeLocation = InputBox("Entrez la date de fin de location", "Date de début de location")
Loop

ActiveCell.Offset(0, 1).Select
ActiveCell.Value = DateFinDeLocation

If (DateFinDeLocation - DateDebutDeLocation) <= 1 Then
ActiveCell.Offset(0, 1).Value = "45euro"
ElseIf (DateFinDeLocation - DateDebutDeLocation) >= 2 And (DateFinDeLocation - DateDebutDeLocation) <= 3 Then
ActiveCell.Offset(0, 1).Value = "40euro par jour"
ElseIf (DateFinDeLocation - DateDebutDeLocation) >= 4 And (DateFinDeLocation - DateDebutDeLocation) <= 6 Then
ActiveCell.Offset(0, 1).Value = "35euro par jour"
Else: ActiveCell.Offset(0, 1).Value = "25euro par jour"
End If
End Sub

seboui

merci beaucoup mélanie :)

melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention 155

mets le en resolu si c'est bon stp

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires