Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 ma macro fonctionne et au bout de quelques ligne il buggue

M

miamidos

XLDnaute Nouveau
bonjour j'ai un souci avec la macro j arrive pas a trouver l erreur il fonctionne jusqu' a une certaine ligne puis il me mais la fenêtre de débogage des fois il Bugue a la ligne 35 mais après la ligne 54 la cet tout le temps pouvait vous m aider a trouver l erreur merci d avance que doit je faire ? et ici le fichier pour télécharger car il fait 2 Mo et trop volumineux pour le joindre en fichier je sait pas si je me suis bien expliquer j espère que oui merci a tous
 
Solution
et dire que des débutants suivent aveuglement ces tutos video merdiques sur youtube
on s’étonne après de les voir débarquer et poser des question qui ont la réponse en elle même

tu ajoute une ligne a ton TS le row c'est le row de la listrow.range.row un point c'est tout
VB: 
Sub addArticle()
With Sheets("bd").ListObjects(1).ListRows.Add
.Range.Resize(, 5) = Array(Now(), , article, nombre, prix)
msgbox "c'est la ligne " & .Range.Row
End With
End Sub
MAIS meme le contexte de ligne tu n'en a pas besoins
il te suffit de faire un resizer du ".range" au nombre de colonne voulue et de lui balancer un array
a part le msgbox vois tu un seul mot dans le code qui parlerait de ligne NIET!!!

les TS te simplifie la vie en terme d'utilisation...
Trier par date Trier par votes

Dranreb

XLDnaute Barbatruc
Bonjour.
Vous devriez supprimer toutes les lignes qui suivent le tableau. La dernière cellule réputée utilisée de la feuille "bd" est la T8728. Peut être y a-t-il dans toutes les cellule qui suivent le tableau jusqu'à celle là, quelque chose qui traine et empêche l'insersion d'une nouvelle ligne. À tout hasard quand l'erreur se produit essayez après abandon de l'exécution, d'insérer manuellement une nouvelle ligne dans le tableau (pas dans la feuille) peut être aurez vous un élément de réponse si là ça coince aussi …
 
Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc
Re
Je serais tenté de dire comme ROGER que les tableaux font mauvais ménage avec le VBA
On peut peut-être s'en passer
Pour cela peux-tu expliciter comment remplir la colonne Statut ?
ps: cela suppose également que les tableaux :Tableau2 et debdate ne sont pas utilisés ailleurs
 
Vote positif 0 Vote négatif
M

miamidos

XLDnaute Nouveau
je pense aussi comme Roger
la colonne statue est egale a la cellule k2 de la feuille3
Tableau2 et debdate non ils ne sont pas utiliser ailleurs
je cherche aussi de mon coter ca fait plus de 3 jours que je me prend la tête
en fait je fait comme il dit sur la video sauf que j ai mis des donnée en plus
tout en essayant de respecter les formules (( pas évident pour un novice ))
le lien de la video tuto du programme que j essais de personnaliser est ici
 
Vote positif 0 Vote négatif
M

miamidos

XLDnaute Nouveau
bonjour pierre jean les reçu cet les recompense et les envoi cet les unité que j envoi chaque unité a un prix le pris des reçu cet - et les envoi cet + y a peut etre des feuilles masquer faudrait les démasqué je les avais masquer pour une question d esthétique
 
Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc
La question est
Comment en colonne G les mots "recu" et "Envoi" aboutissent-ils en colonne G ?
Lien pour avoir le fichier:

DL.FREE.FR

Jusqu’à 28 Méga, 10Go d’espace disque, WiFi-MiMo, Ligne téléphonique, Appels illimités vers 70 destinations, 250 chaînes de télévision, Vidéo à la Demande
dl.free.fr
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
tu pourrais peut etre nous expliquer ceci
pourrais tu me dire a quoi sert ta recherche de cellule vide dans la plage dbdate
ta ligne qui vient d’être ajoutée est forcement vide
VB: 
Sub addArticle()
Dim dl As Long
Dim ligne As Range

Sheets("bd").ListObjects(1).ListRows.Add

[S]For Each ligne In Sheets(1).Range("dbdate")

If ligne = Empty Then
ligne = Now


ligne.Offset(0, 2) = article
ligne.Offset(0, 3) = nombre
ligne.Offset(0, 4) = prix

End If[/S]
Next ligne

End Sub
perso ceci suffit dans ton module1
VB: 
Sub addArticle()
With Sheets("bd").ListObjects(1).ListRows.Add
.Range.Resize(, 5) = Array(Now(), , article, nombre, prix)
End With
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

I
  • Question
XL 2016 Modification d'une ligne dans mon code
Réponses
2
Affichages
580
INFINITY100
I
C
  • Question
XL 2016 Macro affiche ### comme résultat de calcul des couleurs
Réponses
1
Affichages
532
job75
G
  • Question
Microsoft 365 filtrer / défiltrer insertion de ligne automatique - macro qui ne fonctionne pas ou de manière aléatoire
Réponses
4
Affichages
1 K
Grelune
G
W
  • Question
ma Macro en cours de fonctionnement saute vers une autre Macro (Worksheet_Change)
Réponses
5
Affichages
934
Dranreb
D
  • Question
Microsoft 365 Compléter un tableau de suivi automatiquement et bien compliqué :-)
Réponses
1
Affichages
1 K
herve62
L
  • Résolu(e)
XL 2019 Liaison de données Word Excel et "méthode range de l'objet global a échoué"
Réponses
12
Affichages
3 K
Staple1600
S
  • Question
Transposition et collage données
2 3
Réponses
43
Affichages
5 K
Sonia2020
S
N
  • Question
insertion d'un nombre variable de données dans une boucle
2
Réponses
17
Affichages
2 K
ninajams
N
  • Résolu(e)
XL 2016 A la première exécution de la macro, il manque un indice, mais pas après
2
Réponses
29
Affichages
2 K
xUpsilon
L
  • Question
Word Liaison de données Word Excel et "méthode range de l'objet global a échoué"
Réponses
6
Affichages
2 K
Lapinturbo
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…