Renoyer valeur d'une cellule

Signaler
Messages postés
2
Date d'inscription
vendredi 5 mai 2006
Statut
Membre
Dernière intervention
11 avril 2007
-
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
-
Bonjour à tous,
je débute en VB et je suis bloquée avec une "funtion" qui marche dans un autre classeur.
Voilà le problème : dans le classeur 1, j'ai besoin de recopier une date qui est dans le classeur 2.
Dans le classeur 2, je cherche le 1° argument=NoOT (un numéro) dans (colonne 1), puis le 2° argument = type Doc (du texte) dans la colonne 2, je selectionne alors la date correspondante dans la même ligne mais en colonne 4. C'est cette date que je reporte dans mon classeur 1. voici ma funtion, mais je ne trouve pas où ça plante. le résultat est toujours # valeur
Quelqu'un peux m'aider.
Nota: j'ai rien trouvé sur le forum :
mon code :
Public Function DateDocParOT(TypeDoc As String, NoOT As Integer) As Integer
ligne = 2
DateDoc = 0
'-------------------------------------------
Workbooks("Checks.XLS").Sheets("Liste-doc").Cells(ligne, 1).Activate 'classeur 2
'
While ActiveCell.Value <> ""
'
    If ActiveCell.Value = NoOT Then
        If Workbooks("Checks.XLS").Sheets("Liste-doc").Cells(ligne, 2) = TypeDoc Then
           DateDoc = ActiveCell.Value
        End If
    End If
Wend
DateDocParOT = DateDoc
End Function

3 réponses

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Salut,

apparemment ta cellule ne change jamais, je mettrai ça :

While ActiveCell.Value <> ""
    If ActiveCell.Value = NoOT Then
        If Workbooks("Checks.XLS").Sheets("Liste-doc").Cells(ligne, 2) = TypeDoc Then
           DateDoc = ActiveCell.Value
        End If
    End If
    ActiveCell.Offset(1, 0).Select    '--> faut passer à la
cell suivante
Wend

~ <small>[code.aspx?ID=39466 Mortalino] ~
Colorisation automatique</small>

@++

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
  
Messages postés
2
Date d'inscription
vendredi 5 mai 2006
Statut
Membre
Dernière intervention
11 avril 2007

salut mortalino,
c'est vrai à la relecture je ne changeais pas de cellule, je viens de tester et .......zut, de zut,
tjs la réponse #valeur !!
ne serait-ce pas un pb de déclaration de variable ?
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Si tu dois traiter des dates, :
Public Function DateDocParOT(TypeDoc As String, NoOT As Integer) As <strike>Integer</strike>Date

Si c'est toujours pas bon, dis moi ce qui à dans la cellule (texte visible + texte dans barre de formule + format du texte)

@++

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~