Discussion :

[fuine0069]

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.

[Invité]

Bonjour,

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

[riaolle]

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 ?

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

Qu'est-ce qui te fait dire cela ?

[fuine0069]

voici le code fonction qui me donne une erreur

Code :

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

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

[riaolle]

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 :

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

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

[fuine0069]

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