Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Mes codes ne fonctionnent pas


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Mes codes ne fonctionnent pas
    Bonjour,

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    Dim con As New SqlConnection("Data Source=STLDB3\STLDB;Initial Catalog=VISITEURS;Integrated Security=True")
            con.Open()
            Dim dellete As New SqlCommand
            Dim k As Integer
            k = InputBox("Entrez le Numéro Carte à suprimer")
            temptable.Rows[e.RowIndex].Delete()
                MsgBox("entrer une valeur")
                dellete.CommandText = "DELETE FROM visiteur WHERE Numéro_Carte=" & k & "'"
                dellete.Connection = con
                dellete.CommandType = CommandType.Text
                dellete.ExecuteNonQuery()
                MsgBox("Numéro suprimer")
            Else
                MsgBox("Rien suprimer")
            End If
            con.Close()
        End Sub

  2. #2
    Membre expert
    Bonjour,

    Faites du pas à pas avec la touche F8, vous verrez bien ce qui cloche.

    Les lignes avec "Msgbox" ne doivent pas contenir de parenthèses, exemple:
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    MsgBox "entrer une valeur"


    Cdlt