Programmation VB sous Excel; pvez-vs m'aider?

aristideman Messages postés 35 Statut Membre -  
 Sylvain -
Qui peut m'aider à utiliser VB sous excel?
J'ai vraiment des difficultés.
Les Fonctions; comment les utilisées?
je peux créer un petit objet mais je ne sais pas à quoi ça sert?

Ect. .....

Merci déjà pour votre aide.
A voir également:

1 réponse

Réponse 1 / 1
Sylvain
 
Bonjour,

Il faudrait que ta question soit plus spécifique. C'est difficile de t'aider pour une question aussi large.

Exemple de procédure en VBA: 
Sub Mail_Small_Text_CDO()
    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    '    Dim Flds As Variant
 
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
 
    strbody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2" & vbNewLine & _
              "This is line 3" & vbNewLine & _
              "This is line 4"
 
    With iMsg
        Set .Configuration = iConf
        .To = "info@here.com"
        .CC = ""
        .BCC = ""
        .From = """SISL"" <info@here.com>"
        .Subject = "Important message"
        .TextBody = strbody
        .Send
    End With
 
    Set iMsg = Nothing
    Set iConf = Nothing
End Sub


et voici une 2e procédure qui appelle simplement la premiere: 

Sub CallFunction
     Mail_Small_Text_CDO
End Sub


Si tu veux vraiment vraiment utiliser une fonction, remplace "Sub" par "Function" dans l'exemple précédent. Un fonction peut retourner une valeur.

Par exemple, voici une fonction qui teste la version de Windows: 
Private Function IsWinNT4Plus() As Boolean

  'returns True if running Windows NT4 or later
   Dim osv As OSVERSIONINFO

   osv.OSVSize = Len(osv)
   If GetVersionEx(osv) = 1 Then
      IsWinNT4Plus = (osv.PlatformID = VER_PLATFORM_WIN32_NT) And _
                     (osv.dwVerMajor >= 4)
   End If
End Function


La valeur retournée es de type boolean (true/false).

Dans Excel, pour appeler une fonction, tu peux utiliser une Macro, et lui associer "executecode" et le nom de ta fonction. Tu peux aussi associer ton code à un bouton...

En espérant que ça va t'aider...

Sylvain
Groupe Conseil Lartis Inc.
Développeur Acomba
www.lartis.com
0