message d'erreur macro

[skun]

Bonjour le forum,

Voilà, j'ai un soucil avec une macro, lors de son exécution, elle me lance un message d'erreur m'offrant les possibilités de "débuggé" ou "fin".

Si mon choix est débuggué, elle me met en jaune un bout du code.

Ce que je ne comprend pas, c'est que ma macro marche pourtant comme je le souhaite donc pourquoi ce message d'erreur qui m'embette un peu...?

La macro marchait super bien, jusqu'à ce que je décide de modifier un peu le placement de certains tableaux, suite à ca j'ai fait des petits changements sur le code, j'ai réussi à arriver à mes fins mise à part ce message d'erreur 🙁

La macro en question se trouve dans le fichier joint : feuill1
son nom: Private Sub CommandButton1_Click() (il y a un bouton "enregistrer" qui l'execute automatiquement, il se situe vers M1.)

Si quelqu'un pouvait m'éclairer sur le pourquoi du comment 😀 ce serait super.
je vous remercie d'avance


ps: j'ai essayé avec "On Error Resume Next" (que j'ai trouvé dans un fils similaire) avant le bout de code qui bug, ca n'affiche plus le message d'erreur, par contre, ca ne fonctionne plus pareil.. 🙁
Salutations

skun

 

[job75]

Re : message d'erreur macro

Bonjour skun, le forum,

La macro bloque bien sûr sur les 2 lignes suivantes :

Sheets(nomfeuille2).Cells(Lig, i - 1).Value = cellule.Offset(0, -1).Value
Sheets(nomfeuille2).Cells(Lig, i).Value = cellule.Offset(0, -2).Value

lorque que i (renvoyé par la fonction recherchemot) renvoie 0 (ou plus généralement si i < 2).

Vous pouvez mettre un test pour éviter cette valeur, ou faire autre chose, à vous de voir car je n'ai pas essayé de comprendre ce que fait la macro.

A+

 

[skoobi]

Re : message d'erreur macro

Bonjour,

Si mon choix est débuggué, elle me met en jaune un bout du code

la variable "i" fait à ce moment là 0 donc il fait une erreur sur la colonne:

Sheets(nomfeuille2).Cells(Lig, i - 1).Value = cellule.Offset(0, -1).Value

PS: suis à la bourre moi, bonjour job75.

 

[skun]

Re : message d'erreur macro

Bonjour job75 et skoobi,

merci à vous deux pour vos réponses.

le principe de cette macro crée par jp14 (merci encore )
est de:

*Recherche de la ligne avec la date indiquée
*Recherche de la colonne Qui contient le numéro du chauffeur.
*Le numéro doit correspondre à la colonne centrale.
*Ecriture des données dans la base de donnée chauffeur.

puis

Recherche de la ligne avec la date indiquée
Recherche de la colonne Qui contient le numéro du camion.
Le numéro doit correspondre à la colonne centrale.
Ecriture des données dans la base de donnée camion.

la première partie marche, c'est la 2eme qui ne marche pas.



Donc le problème vient de Sheets(nomfeuille2).Cells(Lig, i - 1).Value = cellule.Offset(0, -1).Value

C'est aussi ce que j'avais cru comprendre, cependant, comment la rendre "juste"? car cette ligne permet de situer l'emplacement de recherche et d'écriture par rapport à un point déterminé plus haut dans le code? (c'est en tout cas ce que j'avais compris) , et il n'y a qu'avec cette configuration (certes buggé 🙁 ) que la maccro écrit ce que je souhaite à l'emplacement voulue..

Je ne sais pas trop comment faire, ni comment créer un "test", je vais quand meme essayer à nouveau de bidouiller ^^
Cependant si quelqu'un à une idée je suis prenneur 🙂

salutations

skun

 

[skun]

Re : message d'erreur macro

re,
je repost car j'ai trouvé la solution à mon problème, avec de la chance 😱

j'ai juste inversé la place des lignes buggante, et ca a marché lol
j'ai pas tout compris 🙁 mais bon ca marche 😀

merci à vous !

A+ sur un autre fil !

salutations

skun