Microsoft 365 add.range plante Excel

eric72 · 16 Novembre 2023

Bonjour à tous,
je rencontre un problème pour ajouter une ligne à un tableau à partir de Userform avec ce code:

VB:

With Sheets("Id").Range("TbId").ListObject
            .ListRows.Add.Range.Value = Array(TxtInit, TxtMdp, Abs(ChbEffectif), Abs(ChbAbsence), Abs(ChbSemType), Abs(ChbAmplitude), Abs(ChbNbparTranche), Abs(ChbPosteService), _
             Abs(ChbCptHres), Abs(ChbPoste), Abs(ChbService), Abs(ChbJrOuv), Abs(ChbPlanning), Abs(ChbSoldeCompteurhr), Abs(ChbPersPres), Abs(ChbPrepaSalaire))

la macro échoue de manière aléatoire et en plus Excel se ferme tout seul, ç'est pourtant une méthode relativement simple et pourtant!!!
Avez-vous une idée du pourquoi?
Merci beaucoup pour votre aide
Eric

fanch55 · 16 Novembre 2023

Bonjour,

Dans mon test, je n'arrive pas à faire planter le

With Sheets("Id").Range("TbId").ListObject

.ListRows.Add.Range.Value

Mais je plante allègrement dans le

With Range("TbEffectif").ListObject 'ajoute une ligne à TbEffectif

.ListRows.Add.Range.Value

car les formats de valeurs indiqués dans le Array ne sont pas valides pour les données ..

Rajoutez temporairement ces lignes de code avant ad.range.value pour vérifier les données avant l'ajout :

VB:

c = 0
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & TxtNom
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & TxtPrenom
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbPoste
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDate(datenaissance)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDbl(TxtNbHeure)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & ChbOui
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & TxtTaux
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & TxtInit
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & Abs(ObFixe)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & Abs(ObRotation)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDbl(NbSemRot)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemTypeFixe
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType1
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType2
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType3
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType4
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType5
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType6
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDate(DateDebut)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDate(DatedebutFixe)

eric72 · 16 Novembre 2023

fanch55 à dit:

Bonjour,

Dans mon test, je n'arrive pas à faire planter le

With Sheets("Id").Range("TbId").ListObject

.ListRows.Add.Range.Value

Mais je plante allègrement dans le

With Range("TbEffectif").ListObject 'ajoute une ligne à TbEffectif

.ListRows.Add.Range.Value

car les formats de valeurs indiqués dans le Array ne sont pas valides pour les données ..

Rajoutez temporairement ces lignes de code avant ad.range.value pour vérifier les données avant l'ajout :

VB:

c = 0
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & TxtNom
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & TxtPrenom
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbPoste
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDate(datenaissance)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDbl(TxtNbHeure)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & ChbOui
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & TxtTaux
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & TxtInit
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & Abs(ObFixe)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & Abs(ObRotation)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDbl(NbSemRot)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemTypeFixe
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType1
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType2
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType3
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType4
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType5
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType6
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDate(DateDebut)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDate(DatedebutFixe
[/QUOTE]

eric72 · 16 Novembre 2023

fanch55 à dit:

Bonjour,

Dans mon test, je n'arrive pas à faire planter le

With Sheets("Id").Range("TbId").ListObject

.ListRows.Add.Range.Value

Mais je plante allègrement dans le

With Range("TbEffectif").ListObject 'ajoute une ligne à TbEffectif

.ListRows.Add.Range.Value

car les formats de valeurs indiqués dans le Array ne sont pas valides pour les données ..

Rajoutez temporairement ces lignes de code avant ad.range.value pour vérifier les données avant l'ajout :

VB:

c = 0
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & TxtNom
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & TxtPrenom
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbPoste
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDate(datenaissance)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDbl(TxtNbHeure)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & ChbOui
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & TxtTaux
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & TxtInit
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & Abs(ObFixe)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & Abs(ObRotation)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDbl(NbSemRot)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemTypeFixe
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType1
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType2
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType3
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType4
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType5
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType6
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDate(DateDebut)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDate(DatedebutFixe)

Bonjour Fanch55
Non ça ne plante pas c'est juste que j'ai retiré les obligations de remplir tous les champs du haut, si vous remplissez tous les champs du haut ca fonctionne.
C'est avec le TbId que ça plante mais c'est aléatoire (1/2, 1/5 ou une fois sur 10)
Je ne comprends pas

eric72 · 16 Novembre 2023

fanch55 à dit:

Bonjour,

Dans mon test, je n'arrive pas à faire planter le

With Sheets("Id").Range("TbId").ListObject

.ListRows.Add.Range.Value

Mais je plante allègrement dans le

With Range("TbEffectif").ListObject 'ajoute une ligne à TbEffectif

.ListRows.Add.Range.Value

car les formats de valeurs indiqués dans le Array ne sont pas valides pour les données ..

Rajoutez temporairement ces lignes de code avant ad.range.value pour vérifier les données avant l'ajout :

VB:

c = 0
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & TxtNom
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & TxtPrenom
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbPoste
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDate(datenaissance)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDbl(TxtNbHeure)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & ChbOui
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & TxtTaux
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & TxtInit
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & Abs(ObFixe)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & Abs(ObRotation)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDbl(NbSemRot)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemTypeFixe
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType1
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType2
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType3
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType4
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType5
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CbSemType6
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDate(DateDebut)
c = c + 1: Debug.Print Left([TbEffectif].ListObject.ListColumns(c), 20) & "=" & CDate(DatedebutFixe)

Ah j'avais oublié de vous dire, de plus je ne peux pas savoir d'ou vient le problème puisqu'il m'éjecte...

TooFatBoy · 16 Novembre 2023

Bonjour,

Ton problème doit venir d'une donnée dont il est impossible de calculer la valeur absolue.

eric72 à dit:
Ah j'avais oublié de vous dire, de plus je ne peux pas savoir d'ou vient le problème puisqu'il m'éjecte...

Il suffit de vérifier la valeur de chacune des 16 données avant que ça plante. 😉

eric72 · 16 Novembre 2023

TooFatBoy à dit:
Bonjour,

Ton problème doit venir d'une donnée dont il est impossible de calculer la valeur absolue.

Il suffit de vérifier la valeur de chacune des 16 données avant que ça plante. 😉

Bonjour TooFatBoy,
je pense que tu as raison mais comment je peux vérifier puisqu'il m'ejecte directement, il ferme Excel

TooFatBoy · 16 Novembre 2023

eric72 à dit:
comment je peux vérifier puisqu'il m'ejecte directement, il ferme Excel

TooFatBoy à dit:
Il suffit de vérifier la valeur de chacune des 16 données avant que ça plante. 😉

eric72 · 16 Novembre 2023

Il y a deux textbox et des checkbox coché ou non que j'exporte avec abs(checkbox).
Comment puis je faire pour les vérifier avant???

TooFatBoy · 16 Novembre 2023

TooFatBoy à dit:
Ton problème doit venir d'~~une donnée dont il est impossible de calculer la valeur absolue~~.

Je viens de regarder le code dans ton classeur, et ça ne devrait pas venir de ça puisque ce ne sont que cases à cocher.

A tout hasard, essaye toutefois de remplacer abs(xxx) par xxx*1 ou par --xxx.

TooFatBoy · 16 Novembre 2023

eric72 à dit:
Comment puis je faire pour les vérifier avant???

Tu mets un point d'arrêt sur l'instruction qui plante, et au moment où l'exécution s'arrête tu regardes la valeur de chacune des données.

Je crois que tu as mis le nom de la feuille dans laquelle se trouve le TS "TbId". Tu peux le supprimer pour ne garder que ceci :

VB:

    With Range("TbId").ListObject  ' Ajoute une ligne à TbId

ps : à mon avis le With ne sert à rien ici. 😉

eric72 · 16 Novembre 2023

TooFatBoy à dit:
Tu mets un point d'arrêt sur l'instruction qui plante, et au moment où l'exécution s'arrête tu regardes la valeur de chacune des données.

Je crois que tu as mis le nom de la feuille dans laquelle se trouve le TS "TbId". Tu peux le supprimer pour ne garder que ceci :

VB:

With Range("TbId").ListObject ' Ajoute une ligne à TbId

Les textbox renvoient la bonne valeur, et les checkbox vrai ou faux, donc normal
Le problème c'est que le beug est aléatoire, alors comment faire?

Dranreb · 16 Novembre 2023

Bonsoir.
Il serait prudent de spécifier dans l'Array les propriétés des objets dont vous voulez y spécifier les valeurs, parce que sinon, normalement il y met les objets eux mêmes !

TooFatBoy · 16 Novembre 2023

eric72 à dit:
Les textbox renvoient la bonne valeur, et les checkbox vrai ou faux, donc normal
Le problème c'est que le beug est aléatoire, alors comment faire?

Es-tu vraiment sûr que c'est sur cette instruction que ça t'éjecte ???

eric72 · 16 Novembre 2023

Dranreb à dit:
Bonsoir.
Il serait prudent de spécifier dans l'Array les propriétés des objets dont vous voulez y spécifier les valeurs, parce que sinon, normalement il y met les objets eux mêmes !

Bonsoir Dranreb,
Merci pour votre réponse mais je ne comprends pas bien ce que vous voulez me dire!!!

Effectuez une recherche sur Excel Downloads...

Microsoft 365 add.range plante Excel

eric72

XLDnaute Accro

Pièces jointes

eric72

fanch55

XLDnaute Barbatruc

eric72

XLDnaute Accro

eric72

XLDnaute Accro

eric72

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

eric72

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

eric72

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

eric72

XLDnaute Accro

Dranreb

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

eric72

XLDnaute Accro

Nous accordons de l'importance à votre vie privée