Problème code + message erreur

Version imprimable

Voir 40 message(s) de cette discussion en une page

1 pièce(s) jointe(s)

re
il faut commencer par le début sinon ca durer des plombes
donc pour commencer on va se passer du userform
essaie cette sub dans un module standard sans ouvrir ton userform

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
sub test()
 
Dim MonArticle As ListRow
 
        Set MonArticle = Sheets("Articles").ListObjects(1).ListRows.Add       
 
        'On ajoute les articles au tableau de la feuille "Articles"
 
        With MonArticle
 
            .Range(1, 1) ="0006"
            .Range(1, 2) = "pas lui l'autre"
            .Range(1, 4) = "titi"
            .Range(1, 5) = "toto"
            .Range(1, 6) = 25
            .Range(1, 7) = 0.2
            .Range(1, 8) = 10
            .Range(1, 11) =5
            .Range(1, 13) = "Active"
 
        End With
 
        Set MonArticle = Nothing
End Sub

edit:
bon ben je viens de tester ca plante donc l'userform n'est pas en cause mais bien la methode add

Pièce jointe 466623

14/04/2019, 10h32
Vba14

Citation:

Envoyé par patricktoulon

re
en effet sur 2007 32 bits a part un scintillement des shapes bouton sur sheet ca fonctionne

par contre sur 2013 bits j'ai bien l'erreur et même pire j'ai un whitescreen suivi d'un crash total d'Excel avec fermeture

C'est exactement mon problème, il me jette méchamment d'Excel et en plus lorsque j'ouvre de nouveau mon fichier, je perd mes formats nombres dans les colonnes G, J, K, ils devraient être au format comptabilité.
14/04/2019, 10h36
Vba14

Patrick,

J'ai testé ton code, pas de message d'erreur et le tableau se remplit bien. Je me suis réjouis trop vite...ça plante
14/04/2019, 10h39
Vba14

Citation:

Envoyé par Eric KERGRESSE

Le code fonctionne correctement chez moi (Excel 2010).

Avez-vous essayé une 2ème saisie car en général c'est là que ça coince...
14/04/2019, 11h10
patricktoulon

re

re
bon de toute facon je viens de tester sur un autre fichier la fonction listrows.add et elle fonctionne avec 2013 32 bits ( tu m'a fait douter)

j'ai donc tout viré userform et module dans ton fichier ,j'ai verifié la protection

et j'ai tenté un activesheet.listobjects(1).listrows.add c'est pas la peine ca plante

conclusion ton fichier est certainement corrompu tu sais ce que ca veut dire

c'est pas la peine d'aller plus loin refait tout dans un fichier vierge
14/04/2019, 11h37
Vba14

ça c'est pas une bonne nouvelle :ouin: :arf:

pu.... une semaine de boulot pour rien, je suis dégouté. Et qu'est-ce qui a pû provoquer ça ???
14/04/2019, 11h47
Vba14

Patrick,

Je peux récupérer ton code "Onglet" sans problème ???
14/04/2019, 12h16
Invité

Citation:

Envoyé par Vba14

Avez-vous essayé une 2ème saisie car en général c'est là que ça coince...

J'ai fait 4 saisies d'affilé, tout est correct.
14/04/2019, 12h33
Vba14

Citation:

Envoyé par Eric KERGRESSE

J'ai fait 4 saisies d'affilé, tout est correct.

Bon eh bien chez moi ça plante. C'est à ne rien comprendre.

Je vais refaire mon fichier comme suggéré par Patrick.

Merci beaucoup à tous d'avoir participé à cette discussion et pour votre aide.
Amicalement
René
14/04/2019, 13h44
patricktoulon

re
Citation:

Envoyé par Vba14

Patrick,

Je peux récupérer ton code "Onglet" sans problème ???

oui sans problème je t'ai expliqué déjà
1. met ton fichier sur le bureau
2. change son extension en ".zip"
3. ouvre l'archive en doublecliquant dessus
4. extract le dossier "customui" sur ton bureau
5. extract sur ton bureau le _rel
6. ferme l'archive
7. créé un nouveau fichier xlsm sauve le sur le bureau
8. change lui son extention en "zip"
9. double clique l'archive souvre
10. fait glisser le dossier customui et le _rel (précédemment récupérés) dedans
11. remet l'extension ".xlsm"
2d solution
sinon plus simple si tu a customui editor
tu ouvre un fichier neuf et tu colle le code des deux customui.xml provenant du dossier custom ui précédemment récupéré et save: le _rel se fera tout seul

3° solution
sinon ben ....c'est simple tu récupère la version qui t'a convenu dans ta discussion précédente ma fois:ptdr:
14/04/2019, 14h25
Vba14

Merci Patrick,

J'ai relu nos précédents échanges et j'avais retenu la méthode. J'ai CustomUI, donc je ne devrais pas rencontrer de problème particulier.
Je ferais ça quand j'aurai tout mis en place dans mon fichier.

Je suis en plein dedans. Par contre j’aurai bien voulu connaître la cause de tout ce beau bazars.
14/04/2019, 15h03
patricktoulon

re

pour ca il faudrait remonter l'historique de ce fichier et verifier chaque versions
mais je suppose que quand tu développe tu ne ne fait pas de sauvegarde des versions précédentes alors tu saura jamais ne t'attarde pas la dessus
17/04/2019, 22h58
Vba14

Bonsoir à tous,

J'ai presque terminé de refaire mon fichier. Il me manque encore quelques éléments dont un système de protection de feuilles et déprotection, changement de mot de passe, tout ça géré par un formulaire.
Amicalement
René

Voir 40 message(s) de cette discussion en une page