Re:=> DEMO UserForm Modif ou Ajout Enregistrement
Bonsoir BobJazz, le Forum
Je n'avais même pas vu 'Mag' ! Sorry, mais je ne sais pas si ça à voir avec le sujet de ce fil... Moi, ma spécialité c'est surtout les UserForms...
Là on dirait plutot que tu veux veux faire des calculs sur une feuille... Ce qui est loin encore d'un UserForm...
Je pense que ce Fil a été complet pour ton problème de départ, l'idée ici c'est d'
exposer sur un fil => un problème, pas de faire un Forum dans un Fil à lui tout seul...
Donc vu que c'est tout à fait une autre demande, je te conseille d'ouvrir un autre fil en expliquant clairement ton problème et tes besoins.
PS en commentaire pour mon avis, il faut coûte que coûte éviter les Select en VBA ....
Quelques conseils à la volée... pour te mettre sur la voie...
For Col = 9 To 20 '<<< Colonne de 'I' à 'AD'
If UCase(Cells(3, Col)) = UCase(Origine) Then
ANCIENSTOCK = Cells(3, Col).Value
End If
Next
Remplacera toute cette impressionnate série :
If Origine = 'AB' Then ActiveCell.Offset(0, -37).Select
If Origine = 'ab' Then ActiveCell.Offset(0, -37).Select
ETc ETc Etc........
De plus on écrit plus les Codes 'AB ANC AS' en dûr dans le Module, VBA les lit dynamiquement sur la ligne 3 de la Col...
Par ailleurs Ucase te gèrera les MAJ et min...
Et puis commence à essayer de déclarer tes Variables (c'est très important en VBA)
Dim ANCIENSTOCK As Integer
Bonne Nuit
[ol]@+Thierry[/ol]
Message édité par: _Thierry, à: 02/08/2005 22:51