[VBA] Condition SI dans une macro Résolu

Question

Bonjour à tous,

Me revoila... (Oh non, pas encore lui)  :p

Je me disais, que je pourrais avoir peut-être de l'aide sur cette fonction, qui as pour but de tester la valeur dans la cellule, et de retourner une autre valeur si cette valeur est égale à datecreation, auteurs, titres... etc... :

Cependant, il me retourne toujours (dans la cellule) "#NOM?!"   ... Donc, si vous pouviez m'aider ! 

J'espère avoir été asser explicite   

Merci beaucoup !!!!   

Code : VB.NET

Option Explicit
Dim valeur As String
Dim datecreation As String
Dim auteurs As String
Dim Titres As String
Sub get_wss_properties(valeur)
If valeur = datecreation Then GoTo date_creation
Else
    If valeur = auteurs Then GoTo auteur
    Else
        If valeur = Titres Then GoTo Titres
        Else
        ActiveCell.Value = "Inserez autre chose"
End Sub
Sub date_creation()
ActiveCell = ActiveWorkbook.BuiltinDocumentProperties("creation date")
ActiveCell.NumberFormat = "dd/mm/yyyy"
End Sub
Sub auteur()
ActiveCell = ActiveWorkbook.BuiltinDocumentProperties("author")
End Sub
Sub Titre()
ActiveCell = ActiveWorkbook.BuiltinDocumentProperties("Title")
End Sub


Configuration: Windows 7 / Chrome 21.0.1180.89

michel_m · Answer

Bonjour, 

pourquoi VB.NET ? 
 
  
 Michel

oylan · Answer

Voila, j'ai modifier mon code comme ceci :

Option Explicit
Dim A As String
Dim datecreation As String
Dim auteurs As String
Dim Titr As String
Function get_wss_properties(A)
If A = "datecreation" Then
    date_creation
    ElseIf A = "auteurs" Then
            auteur
        ElseIf A = "Titr" Then
                Titre
End If
        ActiveCell.Value = "coucou"
End Function
Sub date_creation()
        ActiveCell = ActiveWorkbook.BuiltinDocumentProperties("creation date")
        ActiveCell.NumberFormat = "dd/mm/yyyy"
End Sub
Sub auteur()
ActiveCell = ActiveWorkbook.BuiltinDocumentProperties("author")
End Sub
Sub Titre()
ActiveCell = ActiveWorkbook.BuiltinDocumentProperties("Title")
End Sub



Mais maintenant j'obtiens un "#VALEUR?" 

Que faire ?

Le Pingou · Answer

Bonjour,
Vous dites : Mais maintenant j'obtiens un "#VALEUR?"
A quel endroit !

Le Pingou · Answer

Bonjour,
C'est vraiment étonnant, si vous appliquez exactement la réponse obtenu (MichD-11.sept.2012) (pas de michel_m .... Salutations) sur [Codes-Sources] vous récupérez les informations désirez.
Ou il y a un autre problème !

Le Pingou · Answer

Bonjour,
Une chose est sûre, le code telsque vous l'avez posté, je l'ai testé et il ne fonctionne pas du tout, il donne erreur sur erreur .... !
Par contre je répète que le code proposé sur Codes-Sources est OK.
La suite sans moi.

eriiic · Answer

Bonjour, 

Dim A As String
 Si ta cellule contient une date au format excel ou un nombre tu auras #VALEUR! 

Et pourquoi faire des sub ?
Autant mettre la ligne de code dans le if et les elseif

eric 
  
Jamais tu ne répondras à un mp non sollicité... 
Bon, ça c'est fait.

michel_m · Answer

Bonjour 

fonction personnalisée 

Function get_wss_properties(propriete As String) As String
 With ActiveWorkbook
     Select Case propriete
          Case "date création"
               get_wss_properties = Format(.BuiltinDocumentProperties("creation date"), "dd/mm/yy")
          Case "auteur"
               get_wss_properties = .BuiltinDocumentProperties("author")
          Case "titre"
               get_wss_properties = .BuiltinDocumentProperties("Title")
          Case Else
               get_wss_properties = "??????"
     End Select
End With
End Function  
  
 Michel

[VBA] Condition SI dans une macro

7 réponses

Discussions similaires

Newsletters