Bouton modifier en mode xlsheethidden

Bonjour,

Je rencontre un petit soucis,

J'ai un bouton modifier sur une feuille (Accueil), pour modifier des informations sur une base de donnée se trouvant sur une autre feuille (BdAgents) en xlsheethidden.
à chaque je modifie une donnée,

• il me renvoi sur la page BdAgents en mode xlsheetvisible.
• il me signal une erreur (With Sheets("BdAgents").Select) en mode xlsheethidden

Je sais que le souci est ".select", mais j'aurai besoin de votre aide s'il vous plait pour m'aider à réussir ce code.

Merci d'avance

Private Sub ButtonModifier_Click()

Dim dl As Integer

If Range("Tableau1").Item(1, 1) <> "" Then dl = Range("Tableau1").Rows.Count + 1 Else dl = 1
   With Sheets("BdAgents").Select
   dl = Cbx_Agents.ListIndex + 6
   If MsgBox("Confirmez-vous la modification ?") = vbYesNo Then

Else

        Range("c" & dl) = Txt_tete.Value
        Range("d" & dl) = Txt_Cou.Value

    MsgBox ("Modification Effectuée !!")

End If
    End With

Unload Me

End Sub

Bonjour Jacko, bonjour le forum,

Je ne comprends pas ton code... Tu définis dl au début puis la redéfinis quelque lignes plus bas ?!...

à chaque je modifie une donnée,

Ça aussi c'est pas très clair...

Si j'ai à peu près compris, essaie comme ça :

Private Sub ButtonModifier_Click()
Dim dl As Integer

With Sheets("BdAgents")
    .Visible = True
    .Select
    dl = Cbx_Agents.ListIndex + 6
    If MsgBox("Confirmez-vous la modification ?") = vbYes Then
        .Range("c" & dl).Value = Txt_tete.Value
        .Range("d" & dl).Value = Txt_Cou.Value
        MsgBox ("Modification Effectuée !!")
    End If
    .Visible = False
End With
Unload Me
End Sub

T'as pas peur de gaver l'utilisateur avec tant de messages ?...

Bonjour Thauthème,

à chaque je modifie une donnée,

erreur de frappe, "à chaque fois je modifie une donnée"

Merci pour la méthode .visible=false qui permet la modification en mode xlsheethidden.

Je ne comprends pas ton code... Tu définis dl au début puis la redéfinis quelque lignes plus bas ?!...

j'intègre les données dans un tableau.

Est-ce qu'il n'y a pas une autre alternative pour remplacer la ligne ".select" ?

Re,

Essaie comme ça :

Private Sub ButtonModifier_Click()
Dim O As Worksheet
Dim dl As Integer

Set O = Worksheets("BdAgents")
O.Visible = True
dl = Cbx_Agents.ListIndex + 6
If MsgBox("Confirmez-vous la modification ?") = vbYes Then
    O.Range("c" & dl).Value = Txt_tete.Value
    O.Range("d" & dl).Value = Txt_Cou.Value
    MsgBox ("Modification Effectuée !!")
End If
O.Visible = False
Unload Me
End Sub