fonction vba vérification date et nom

Bonjour,

dans un fichier de gestion de flotte automobile, je cherche à gérer les conducteurs d'un véhicule.
dans mon fichier excel j'ai les deux premières colonnes qui définissent le nom et prénom du conducteur actuel du véhicule,
puis une série de colonnes qui définissent le véhicule.
puis enfin j'ai un historique des conducteurs avec nom/prénom/roule avec le véhicule depuis le/jusqu'au (et ce x6 conducteurs possibles)

mon but est que dans la colonne "conducteur actuel du véhicule" au début de mon fichier soit affiché le conducteur actuel selon l'historique des conducteurs.
difficulté 1 : lorsque à date d'aujourd'hui il n'y a pas de conducteur, il doit être stipulé "libre"
difficulté 2 : lorsqu'il n'y a pas de date de fin mais qu'il existe une date de début et qu'elle est antérieure à aujourd'hui alors il faut mettre le nom du conducteur sinon "reservé"

j'ai d'abord tenté de passer par les fonctions si/et/ou en excel, mais c'est à rallonge et j'ai des erreurs lorsqu'il n'y a pas de dates
puis j'ai tenté de créer une fonction vba mais on dirait qu'il ne gère pas très bien les range.offset

merci d'avance de votre aide la dessus.

Bonjour,

Pourrais-tu montrer le code que tu as déjà essayé de mettre en place pour voir où tu en es ?

Bonjour,
La description de ton problème manque un peu de visuel. A quoi ressemble ton classeur (copies d'écrans) ? Quel est ton code actuel ? Quelle(s) erreur(s) rencontres-tu ?

Citation:

---

on dirait qu'il ne gère pas très bien les range.offset

---

Qu'est-ce qui te fait dire cela ?

voici le code fonction qui me donne une erreur

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function verifnom(nom As Range) As String   Application.Volatile   If nom.Offset(0, 33) <> "" Then nom = nom.Offset(0, 31)   Else nom = "faux"   End If   End Function

---

Pièce jointe 297472

A priori, il n'y a pas de problème avec Offset.
Quelle est la cellule nom que tu indiques lorsque tu appliques la fonction?
Tu ne renvoie rien avec ta fonction, il serait plus logique que ta fonction soit de la forme :

Code:

---

1 2 3 4 5 6 7 8

Function verifnom(nom As Range) As String Application.Volatile If nom.Offset(0, 33).Value <> "" Then verifnom = nom.Offset(0, 31).Value Else verifnom = "faux" End If End Function

---

merci riaolle
effectivement j'avais confondu le système fonction avec un sub.
il me remet bien une valeur ( pas la bonne mais j'adapterai)
avec ca je peux déjà continuer dans mon code avec mes imbrications de si/et/ou etc