Beug excel
Fermé
steph62880
Messages postés
13
Date d'inscription
dimanche 11 mai 2014
Statut
Membre
Dernière intervention
13 mai 2014
-
11 mai 2014 à 20:52
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 - 13 mai 2014 à 10:41
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 - 13 mai 2014 à 10:41
A voir également:
- Beug excel
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
- Mise en forme conditionnelle excel - Guide
8 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
11 mai 2014 à 21:43
11 mai 2014 à 21:43
Bonjour,
Il doit y avoir un problème.
Il doit y avoir un problème.
steph62880
Messages postés
13
Date d'inscription
dimanche 11 mai 2014
Statut
Membre
Dernière intervention
13 mai 2014
11 mai 2014 à 21:56
11 mai 2014 à 21:56
Oui, mais je n'arrive pas a identifier le problème, je viens de remarquer qu'en supprimant manuellement une ligne ou en l'ajoutant il ne répond pas non plus
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
11 mai 2014 à 22:09
11 mai 2014 à 22:09
Bonsoir,
Bizarre que cela vienne d'Excel, je pense plutôt du code qui plante Excel, redémarre ton ordi et essaye de supprimer et insérer des lignes manuellement, si tu as des codes au démarrage dans la Thiswokbook neutralise les avant de relancer ton PC. Si manuellement le problème est corrigé au démarrage copie dans un post ton code ou joint le fichier anonymisé avec ce lien
https://www.cjoint.com/
Bizarre que cela vienne d'Excel, je pense plutôt du code qui plante Excel, redémarre ton ordi et essaye de supprimer et insérer des lignes manuellement, si tu as des codes au démarrage dans la Thiswokbook neutralise les avant de relancer ton PC. Si manuellement le problème est corrigé au démarrage copie dans un post ton code ou joint le fichier anonymisé avec ce lien
https://www.cjoint.com/
steph62880
Messages postés
13
Date d'inscription
dimanche 11 mai 2014
Statut
Membre
Dernière intervention
13 mai 2014
11 mai 2014 à 22:48
11 mai 2014 à 22:48
Dans thisworkbook je n'ai rien du tout.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
steph62880
Messages postés
13
Date d'inscription
dimanche 11 mai 2014
Statut
Membre
Dernière intervention
13 mai 2014
11 mai 2014 à 23:42
11 mai 2014 à 23:42
Voici le lien créer : https://www.cjoint.com/?DElxPgew4Av
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
12 mai 2014 à 10:00
12 mai 2014 à 10:00
Bonjour,
Excel n'est pas mis en cause, mais plutôt un problème de taille causé par la multitude de formules et codes qu'il faudrait revoir, un exemple dans les propriétés de l'onglet état tu as ce code qui n'est lié à aucun bouton
Private Sub CommandButton1_Click()
Sheets("index").Activate
End Sub
de même dans les propriétés de ta feuille Index/Private Sub CommandButton1_Click()
tu peux simplifier chaque appel d'userform, exemple cette partie
If Password = "12031984" Then
UserForm9.Show
ElseIf Password = "18071987" Then
UserForm9.Show
ElseIf Password = "12121988" Then
UserForm9.Show
remplacé par cette simple ligne
If Password = "18071984" Or Password = "18071987" Or Password = "18071988" Then UserForm9.Show
idem pour chaque groupe ce qui va sérieusement alléger ce code.
autrement l'ajout ou la suppression de ligne se fait, mais très lentement si tu ne touche pas ton fichier. Dans un premier temps il serait bon de revoir tous tes codes pour les rendre plus lisible ainsi que tes formules et as tu besoin d'autant de feuille ?
Excel n'est pas mis en cause, mais plutôt un problème de taille causé par la multitude de formules et codes qu'il faudrait revoir, un exemple dans les propriétés de l'onglet état tu as ce code qui n'est lié à aucun bouton
Private Sub CommandButton1_Click()
Sheets("index").Activate
End Sub
de même dans les propriétés de ta feuille Index/Private Sub CommandButton1_Click()
tu peux simplifier chaque appel d'userform, exemple cette partie
If Password = "12031984" Then
UserForm9.Show
ElseIf Password = "18071987" Then
UserForm9.Show
ElseIf Password = "12121988" Then
UserForm9.Show
remplacé par cette simple ligne
If Password = "18071984" Or Password = "18071987" Or Password = "18071988" Then UserForm9.Show
idem pour chaque groupe ce qui va sérieusement alléger ce code.
autrement l'ajout ou la suppression de ligne se fait, mais très lentement si tu ne touche pas ton fichier. Dans un premier temps il serait bon de revoir tous tes codes pour les rendre plus lisible ainsi que tes formules et as tu besoin d'autant de feuille ?
steph62880
Messages postés
13
Date d'inscription
dimanche 11 mai 2014
Statut
Membre
Dernière intervention
13 mai 2014
Modifié par steph62880 le 13/05/2014 à 00:25
Modifié par steph62880 le 13/05/2014 à 00:25
Bonjour,
Avec la liste de code juste en dessous le "or" Password ne fonctionne pas .
Voici la liste:
If Password = "1912" And Sheets("aptitudes").Range("x3") = "OUI" Then
Sheets("feuil19").Range("a1") = "1912"
ElseIf Password = "6564" And Sheets("aptitudes").Range("x4") = "OUI" Then
Sheets("feuil19").Range("a1") = "6564"
ElseIf Password = "6564" And Sheets("aptitudes").Range("x4") = "OUI" Then
Sheets("feuil19").Range("a1") = "6564"
UserForm10.Show
ElseIf Password = "6564" And Sheets("aptitudes").Range("x4") = "OUI" Then
Sheets("feuil19").Range("a1") = "6564"
UserForm10.Show
ElseIf Password = "10058" And Sheets("aptitudes").Range("x5") = "OUI" Then
Sheets("feuil19").Range("a1") = "10058"
UserForm10.Show
ElseIf Password = "12724" And Sheets("aptitudes").Range("x6") = "OUI" Then
Sheets("feuil19").Range("a1") = "12724"
UserForm10.Show
ElseIf Password = "12784" And Sheets("aptitudes").Range("x7") = "OUI" Then
Sheets("feuil19").Range("a1") = "12784"
UserForm10.Show
ElseIf Password = "11048" And Sheets("aptitudes").Range("x8") = "OUI" Then
Sheets("feuil19").Range("a1") = "11048"
UserForm10.Show
ElseIf Password = "13333" And Sheets("aptitudes").Range("x9") = "OUI" Then
Sheets("feuil19").Range("a1") = "13333"
UserForm10.Show
ElseIf Password = "13592" And Sheets("aptitudes").Range("x10") = "OUI" Then
Sheets("feuil19").Range("a1") = "13592"
UserForm10.Show
ElseIf Password = "13749" And Sheets("aptitudes").Range("x11") = "OUI" Then
Sheets("feuil19").Range("a1") = "13749"
UserForm10.Show
ElseIf Password = "14097" And Sheets("aptitudes").Range("x12") = "OUI" Then
Sheets("feuil19").Range("a1") = "14097"
UserForm10.Show
ElseIf Password = "14096" And Sheets("aptitudes").Range("x13") = "OUI" Then
Sheets("feuil19").Range("a1") = "14096"
UserForm10.Show
ElseIf Password = "x" And Sheets("aptitudes").Range("x14") = "OUI" Then
Sheets("feuil19").Range("a1") = "0"
UserForm10.Show
ElseIf Password = "x" And Sheets("aptitudes").Range("x15") = "OUI" Then
Sheets("feuil19").Range("a1") = "0"
UserForm10.Show
ElseIf Password = "x" And Sheets("aptitudes").Range("x16") = "OUI" Then
Sheets("feuil19").Range("a1") = "0"
UserForm10.Show
ElseIf Password = "x" And Sheets("aptitudes").Range("x17") = "OUI" Then
Sheets("feuil19").Range("a1") = "0"
UserForm10.Show
ElseIf Password = "13202" And Sheets("aptitudes").Range("x18") = "OUI" Then
Sheets("feuil19").Range("a1") = "13202"
UserForm10.Show
Cordialement
Avec la liste de code juste en dessous le "or" Password ne fonctionne pas .
Voici la liste:
If Password = "1912" And Sheets("aptitudes").Range("x3") = "OUI" Then
Sheets("feuil19").Range("a1") = "1912"
ElseIf Password = "6564" And Sheets("aptitudes").Range("x4") = "OUI" Then
Sheets("feuil19").Range("a1") = "6564"
ElseIf Password = "6564" And Sheets("aptitudes").Range("x4") = "OUI" Then
Sheets("feuil19").Range("a1") = "6564"
UserForm10.Show
ElseIf Password = "6564" And Sheets("aptitudes").Range("x4") = "OUI" Then
Sheets("feuil19").Range("a1") = "6564"
UserForm10.Show
ElseIf Password = "10058" And Sheets("aptitudes").Range("x5") = "OUI" Then
Sheets("feuil19").Range("a1") = "10058"
UserForm10.Show
ElseIf Password = "12724" And Sheets("aptitudes").Range("x6") = "OUI" Then
Sheets("feuil19").Range("a1") = "12724"
UserForm10.Show
ElseIf Password = "12784" And Sheets("aptitudes").Range("x7") = "OUI" Then
Sheets("feuil19").Range("a1") = "12784"
UserForm10.Show
ElseIf Password = "11048" And Sheets("aptitudes").Range("x8") = "OUI" Then
Sheets("feuil19").Range("a1") = "11048"
UserForm10.Show
ElseIf Password = "13333" And Sheets("aptitudes").Range("x9") = "OUI" Then
Sheets("feuil19").Range("a1") = "13333"
UserForm10.Show
ElseIf Password = "13592" And Sheets("aptitudes").Range("x10") = "OUI" Then
Sheets("feuil19").Range("a1") = "13592"
UserForm10.Show
ElseIf Password = "13749" And Sheets("aptitudes").Range("x11") = "OUI" Then
Sheets("feuil19").Range("a1") = "13749"
UserForm10.Show
ElseIf Password = "14097" And Sheets("aptitudes").Range("x12") = "OUI" Then
Sheets("feuil19").Range("a1") = "14097"
UserForm10.Show
ElseIf Password = "14096" And Sheets("aptitudes").Range("x13") = "OUI" Then
Sheets("feuil19").Range("a1") = "14096"
UserForm10.Show
ElseIf Password = "x" And Sheets("aptitudes").Range("x14") = "OUI" Then
Sheets("feuil19").Range("a1") = "0"
UserForm10.Show
ElseIf Password = "x" And Sheets("aptitudes").Range("x15") = "OUI" Then
Sheets("feuil19").Range("a1") = "0"
UserForm10.Show
ElseIf Password = "x" And Sheets("aptitudes").Range("x16") = "OUI" Then
Sheets("feuil19").Range("a1") = "0"
UserForm10.Show
ElseIf Password = "x" And Sheets("aptitudes").Range("x17") = "OUI" Then
Sheets("feuil19").Range("a1") = "0"
UserForm10.Show
ElseIf Password = "13202" And Sheets("aptitudes").Range("x18") = "OUI" Then
Sheets("feuil19").Range("a1") = "13202"
UserForm10.Show
Cordialement
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
13 mai 2014 à 10:41
13 mai 2014 à 10:41
Re,
l'inputbox alimente une seule cellule feuille nommée feuil19 cellule A1, tu peux simplifier le code en nommant la cellule A1 feuil19 par exemple Passw, ce qui va sérieusement simplifier et alléger le code "Sheets("feuil19").Range("a1")" sera remplacé par [Passw] de même dans cette cellule A1 feuil19 à la place de saisir dans le code le matricule avec une marge d'erreur il suffit de retourner ta variable de l'inputbox Password
ce qui simplifie ta ligne de code à
Password = "13202" And Sheets("aptitudes").Range("x18") = "OUI" Then [Passw] = Password
ceci dit, le code de ton dernier post pourrait se limiter à
Password = InputBox("N° de Matricule", "", "Matricule")
If Password = "1912" And Sheets("aptitudes").Range("x3") = "OUI" Or _
Password = "6564" And Sheets("aptitudes").Range("x4") = "OUI" Or _
Password = "10058" And Sheets("aptitudes").Range("x5") = "OUI" Or _
Password = "12724" And Sheets("aptitudes").Range("x6") = "OUI" Or _
Password = "12784" And Sheets("aptitudes").Range("x7") = "OUI" Or _
Password = "11048" And Sheets("aptitudes").Range("x8") = "OUI" Or _
Password = "13333" And Sheets("aptitudes").Range("x9") = "OUI" Or _
Password = "13592" And Sheets("aptitudes").Range("x10") = "OUI" Or _
Password = "13749" And Sheets("aptitudes").Range("x11") = "OUI" Or _
Password = "14097" And Sheets("aptitudes").Range("x12") = "OUI" Or _
Password = "14096" And Sheets("aptitudes").Range("x13") = "OUI" Or _
Password = "13202" And Sheets("aptitudes").Range("x18") = "OUI" Then
[Passw] = Password
UserForm10.Show
End If
If Password = "x" And Sheets("aptitudes").Range("x14") = "OUI" Or _
Password = "x" And Sheets("aptitudes").Range("x15") = "OUI" Or _
Password = "x" And Sheets("aptitudes").Range("x16") = "OUI" Or _
Password = "x" And Sheets("aptitudes").Range("x17") = "OUI" Then
[Passw] = "0"
UserForm10.Show
End If
l'inputbox alimente une seule cellule feuille nommée feuil19 cellule A1, tu peux simplifier le code en nommant la cellule A1 feuil19 par exemple Passw, ce qui va sérieusement simplifier et alléger le code "Sheets("feuil19").Range("a1")" sera remplacé par [Passw] de même dans cette cellule A1 feuil19 à la place de saisir dans le code le matricule avec une marge d'erreur il suffit de retourner ta variable de l'inputbox Password
ce qui simplifie ta ligne de code à
Password = "13202" And Sheets("aptitudes").Range("x18") = "OUI" Then [Passw] = Password
ceci dit, le code de ton dernier post pourrait se limiter à
Password = InputBox("N° de Matricule", "", "Matricule")
If Password = "1912" And Sheets("aptitudes").Range("x3") = "OUI" Or _
Password = "6564" And Sheets("aptitudes").Range("x4") = "OUI" Or _
Password = "10058" And Sheets("aptitudes").Range("x5") = "OUI" Or _
Password = "12724" And Sheets("aptitudes").Range("x6") = "OUI" Or _
Password = "12784" And Sheets("aptitudes").Range("x7") = "OUI" Or _
Password = "11048" And Sheets("aptitudes").Range("x8") = "OUI" Or _
Password = "13333" And Sheets("aptitudes").Range("x9") = "OUI" Or _
Password = "13592" And Sheets("aptitudes").Range("x10") = "OUI" Or _
Password = "13749" And Sheets("aptitudes").Range("x11") = "OUI" Or _
Password = "14097" And Sheets("aptitudes").Range("x12") = "OUI" Or _
Password = "14096" And Sheets("aptitudes").Range("x13") = "OUI" Or _
Password = "13202" And Sheets("aptitudes").Range("x18") = "OUI" Then
[Passw] = Password
UserForm10.Show
End If
If Password = "x" And Sheets("aptitudes").Range("x14") = "OUI" Or _
Password = "x" And Sheets("aptitudes").Range("x15") = "OUI" Or _
Password = "x" And Sheets("aptitudes").Range("x16") = "OUI" Or _
Password = "x" And Sheets("aptitudes").Range("x17") = "OUI" Then
[Passw] = "0"
UserForm10.Show
End If
11 mai 2014 à 21:54