Vba problème avec bouton
Résolu
jean300
Messages postés
374
Date d'inscription
Statut
Membre
Dernière intervention
-
jean300 Messages postés 374 Date d'inscription Statut Membre Dernière intervention -
jean300 Messages postés 374 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Quand je clique sur le seul bouton de la feuille, je bloque ici :
Je ne comprends pas pourquoi.
Merci de m'expliquer Svp
Quand je clique sur le seul bouton de la feuille, je bloque ici :
Je ne comprends pas pourquoi.
Merci de m'expliquer Svp
A voir également:
- Vba problème avec bouton
- Bouton reinitialisation pc - Guide
- Diagnostic bouton photo - Accueil - Outils
- Bouton on/off comment savoir ✓ - Forum Matériel & Système
- Symbole arrêt marche - Forum Word
- Réinitialiser chromecast sans bouton - Guide
8 réponses
Bonjour,
Il est possible que tu n'aies pas d'userform appelé "Userfom_Fiches".
Quel est le libellé et le code de l'erreur ?
Cordialement.
Daniel
Il est possible que tu n'aies pas d'userform appelé "Userfom_Fiches".
Quel est le libellé et le code de l'erreur ?
Cordialement.
Daniel
Bonjour Daniel et merci de me répondre
J'ai bien un Usf nommé UserForm_Fiches et me code erreur est 1004
J'ai bien un Usf nommé UserForm_Fiches et me code erreur est 1004
Mets ton classeur, sans données confidentielles sur cjoint.com, mon-partage.fr ou autre et poste le lien correspondant.
Daniel
Daniel
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Désolé
https://www.cjoint.com/c/HIhuZg6aUPb
https://www.cjoint.com/c/HIhuZg6aUPb
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, il y a plusieurs boutons, et ils me semblent tous bien fonctionner.
cependant, il y a une erreur sur la ligne redim suivante, probablement parce que tu n'as pas prévu la situation où personne ne serait déclaré dans la feuille "base".
je suggère de tester le fichier avant de le partager.
cependant, il y a une erreur sur la ligne redim suivante, probablement parce que tu n'as pas prévu la situation où personne ne serait déclaré dans la feuille "base".
Private Sub ChargeT() (...) ReDim T(1 To BaseNbLig - BaseLig0, 1 To 5)
je suggère de tester le fichier avant de le partager.
Bonjour Daniel, yg_be
Merci de me venir en aide
Le problème se situe sur la feuille Fiche
Merci de me venir en aide
Le problème se situe sur la feuille Fiche
Bonjour,
Apparemment, la feuille "Fiche" est protégée et tu essaies d'effacer le contenu des fiches au moment de l'affichage de l'userform. Tu dois déprotéger la feuille d'abord, ou déverrouiller les cellules concernées.
Il faut modifier la macro
J'ai ajouté Les lignes :
Si la feuille est protégée avec un mot de passe, il faut mettre :
Remplace XXX par le mot de passe.
Daniel
Apparemment, la feuille "Fiche" est protégée et tu essaies d'effacer le contenu des fiches au moment de l'affichage de l'userform. Tu dois déprotéger la feuille d'abord, ou déverrouiller les cellules concernées.
Il faut modifier la macro
Private Sub ClearFiches()
Dim i, Décalage As Integer
Dim Lig, Col As Integer
Sheets(FicheNomFeuille).Unprotect
For Décalage = 0 To 30 Step 30
For i = LBound(TCellsFiche) To UBound(TCellsFiche)
Lig = Range(TCellsFiche(i)).Row
Col = Range(TCellsFiche(i)).Column
Sheets(FicheNomFeuille).Cells(Lig, Col + Décalage).Value = ""
If TBaseColFiche(i) = BaseColTéléphoneMaison _
Or TBaseColFiche(i) = BaseColTéléphonePortable _
Or TBaseColFiche(i) = BaseColTéléphoneBureau Then
Sheets(FicheNomFeuille).Cells(Lig, Col).Font.Color = 0
Sheets(FicheNomFeuille).Cells(Lig - 1, Col + 4 + Décalage).Value = ""
Sheets(FicheNomFeuille).Cells(Lig - 1, Col + 4 + Décalage).Font.Color = 0
End If
Next i
Next Décalage
Sheets(FicheNomFeuille).Protect
End Sub
J'ai ajouté Les lignes :
Sheets(FicheNomFeuille).Unprotect Sheets(FicheNomFeuille).Protect
Si la feuille est protégée avec un mot de passe, il faut mettre :
Sheets(FicheNomFeuille).Unprotect "XXX" Sheets(FicheNomFeuille).Protect "XXX"
Remplace XXX par le mot de passe.
Daniel