Bloquage code VBA

[Simons]

Salut,

J'avais commencé il y a un moment déja un fichier pour créer des bordereaux.. avec des données diverses et variées (expéd, dest, transporteur....). Il dormait dans un coin et je viens de remettre la main dessus. Il en était resté ou je l'avais laissé c'est à dire sur un bug !!!
Le voici :

http://cjoint.com/?jdr6NX2Rly

Le principal bug est lors de la création d'un nouveau bordereau la macro tourne en boucle...

Si vous avez quelques minutes pour y jeter un oeil c'est sympa.

 

[Cousinhub]

Re : Bloquage code VBA

Bonjour,

tout d'abord :

Sub UserForm_Initialize()

au lieu de :

Sub UserForm1_Initialize()

Ensuite :

.Caption = Sheets("liste").Range("a65536").End(xlUp).Value

au lieu de :

.Caption = Sheets("liste").Range("a65536").End(xlUp).Row.Value

Et enfin :
(Si c'est le premier numéro, sinon, incrémente de +1

With Label10
.Font.Bold = True
.Caption = IIf(Not IsNumeric(Sheets("liste").Range("a65536").End(xlUp).Value), 1, Sheets("liste").Range("a65536").End(xlUp).Value + 1)
End With

Pour commencer.....

 

[Simons]

Re : Bloquage code VBA

salut BHBH, Le forum,

J'ai bien renommé Userform1_initialize (maintenant Userform_initialize) mais j'ai un autre problème.. Sur ma feuille 1 maintenant le code correspondant au clic sur la création Userform est surligné et le message d'erreur est :"erreur de compilation, sub ou fonction non définie".. Pas moyen non plus de changer le caption de ce userform.....😡😡😡

 

[Cousinhub]

Re : Bloquage code VBA

Bonjour, regarde le fichier en cjoint, si ce n'est que pour l'initialisation, j'ai modifié un peu celle-ci.
dis-moi si cela fonctionne

http://cjoint.com/?jdtLO5J5YB

 

[Simons]

Re : Bloquage code VBA

Nickel,

Merci beaucoup pour ton aide.

Je vais essayer d'avancer un peu je reviens si problème ou besoin.

 

[Simons]

Re : Bloquage code VBA

Salut le forum,

J'ai encore un soucis. Cette fois ci avec la validation de l'USF1. Apparement c'est le label10 qui pose problème...
http://cjoint.com/?jeoun8Lwxb
Un coup de main serait le bienvenu.

 

[Cousinhub]

Re : Bloquage code VBA

Bonjour Simons,
regarde à ce niveau :

L = .Range("A65536").End(xlUp).Row + 1
.Range("A " & L) = Label10
.Range("B " & L) = Label11

Tu as un espace entre A et " et entre B et "


L = .Range("A65536").End(xlUp).Row + 1
.Range("A" & L) = Label10
.Range("B" & L) = Label11

C'est mieux

 

[Simons]

Re : Bloquage code VBA

Oui c'était tout bête... Merci pour ton aide.

 

[Simons]

Re : Bloquage code VBA

J'ai encore quelques pépins..
1° Lors de la validation de mon bordereau les info vont bien se coller sur la feuille liste mais pas sur la feuille matrice au lieu de ca les infos sont copiées sur la feuille menu pourtant dans mon code je note bien feuille matrice😕😕.

2° J'ai du mal avec mon code pour supprimer les bordereaux 🙄 si quelqu'un(e) veux bien y jeter un oeil ce serait sympa.

Je vous remet le fichier la ou il en est.
http://cjoint.com/?jeuiCuTADk

Merci d'avance.

 

[THE CAT 2007]

Re : Bloquage code VBA

Bj,

faire une recherche dans le code des modules et des userforms

sur "menu" et "matrice" le nom des feuilles à problème

mettre un stop avant chaque action dans les feuilles, çà devrait pièger le bug.

Des boutons validation, il y en a à la pelle dans les userforms et sur la feuille excel il n'y en a pas .....

Cà serait sympa de préciser lequel on presse ( quel userform ou bouton excel) quand il y a le problème, çà aiderait à dépanner...

 

[Cousinhub]

Re : Bloquage code VBA

Bonsoir,
regarde le fichier joint

quelques erreurs (celles dont je me souviens....)

With Worksheets("liste")
L = .Range("A65536").End(xlUp) + 1 => veut rien dire
With Worksheets("liste")
L = .Range("A65536").End(xlUp).Row + 1 =>OK

_________________________________

With Worksheets("matrice")
Range("d1") = UserForm1.Label10
Range("C2") = UserForm1.Label11
Range("b20") = UserForm1.ComboBox3
Range("g20") = UserForm1.ComboBox4
End With

A quoi sert With ?

With Worksheets("matrice")
.Range("d1") = UserForm1.Label10
.Range("C2") = UserForm1.Label11
.Range("b20") = UserForm1.ComboBox3
.Range("g20") = UserForm1.ComboBox4
End With

Comme ça c'est mieux (le point (.) sert à relier le Range avec la Sheets (entre autre)

_______________________

Et bien d'autres, je te laisse le loisir de comparer ton fichier avec celui joint

PS : étant supporter, je peux joindre des fichiers plus gros (je ne fais pas de pub, mais....bien utile)

 

[Simons]

Re : Bloquage code VBA

Salut the cat, le forum,
Re merci Bhbh,

Encore une fois je bloque sur des erreurs toutes bêtes..
Merci beaucoup pour ton aide précieuse.