fichier excel instable

Version imprimable

Voir 40 message(s) de cette discussion en une page

bonjour a tous,

mon fichier n'arrete pas de planter
et en plus lorsqu'il veux bien fonctionner, à la validation, il me colle des information dans des feuilles non voulue (la feuille "c12")

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
 
' ouverture fichier
Private Sub UserForm_Initialize()
' activez les sources de menu déroulant
Sheets("tarif").Select
Range("d1:g9").Select
Selection.ClearContents
c12ref1.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref2.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref3.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref4.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref5.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref6.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref7.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref8.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref9.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
End Sub
 
 
'saisie du nom
Private Sub boxnom_AfterUpdate()
Sheets("recap commande").Select
Range("a65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = boxnom.Value
End Sub
 
                        'EVENEMENT POUR CHAQUE SELECTION DE REF
Private Sub c12ref1_Change()
Sheets("tarif").Select
Dim rech1 As String
Dim plage As Range, c As Range
rech1 = c12ref1.Value
Set plage = Worksheets("tarif").UsedRange
    With plage
             Set c = .Find(What:=rech1, LookAt:=xlPart)
                If Not c Is Nothing Then
                    Range("f1").Value = c.Offset(0, 1).Value
                        c12p1.Value = c.Offset(0, 1).Value
                        Range("e1").Value = rech1
                End If
    End With
End Sub
 
                          ' evenement sur changement quantité
Private Sub q1_Change()
Dim total1 As Double
Range("g1").Value = Val(q1)
t1.Value = Range("h1").Value
End Sub
 
'vérification du total
Private Sub CommandButton3_Click()
totalg = Range("h10").Value
Sheets("recap commande").Select
Range("a65536").End(xlUp).Select
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("tarif").Range("h10").Value
End Sub
' validation
Private Sub CommandButton1_Click()
Dim numdl As String, i As Integer
Sheets("tarif").Select
numdl = Range("e65536").End(xlUp).Row
For i = 1 To numdl
Range("d" & i).Value = boxnom.Value
Next i
 
' transfert sur la feuille de commande
If c12.Value = True Then calibre_12
If c16.Value = True Then calibre_16
If c20.Value = True Then calibre_20
 
Unload UserForm1
End Sub

et le code pour les transferts sur la feuille de commande

Code:

1
2
3
4
5
6
7
8
9
 
Sub calibre_12()
Sheets("tarif").Select
Range("d1:h9").Copy
Sheets("c12").Select
Range("a65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End Sub

On ne t'a pas déjà dit 100fois d'éviter les .select?
Code:

1 2 3 4 5 6 7 8 9 Sub calibre_12() Sheets("tarif").Select Range("d1:h9").Copy Sheets("c12").Select Range("a65536").End(xlUp).Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste End Sub
Bon en plus tu utilise activesheet.past et non activecell.paste
Code:

1 2 3 4 Sub calibre_12() Sheets("tarif").Range("d1:h9").Copy Sheets("c12").Range("a65536").End(xlUp).Offset(1, 0).Paste End Sub
mieux sans passer par le prese papier
Code:

1 2 3 Sub calibre_12() Sheets("tarif").Range("d1:h9").Copy Sheets("c12").Range("a65536").End(xlUp).Offset(1, 0) End Sub
Après j'ai du mal a te répondre tu dis qu'il te colle des information non voulu. Je ne sais pas ce que tu veux mais je sais que lui fait ce que tu lui dis. Et comme nous tu ne nous dis rien de plus.

10/07/2009, 11h17
ouskel'n'or
Déjà tu peux simplifier
Code:

1 2 3 Sub calibre_12() Sheets("tarif").Range("d1:h9").Copy Sheets("c12").Range("A" & range("a65536").End(xlUp).row).Offset(1, 0) End Sub
Ton range("a65536").End(xlUp) que je n'ai jamais utilisé tel quel) me gène un peu... Et là je n'ai aucun pb ;)

donc je m'applique à eviter le select

du coup le code que j'ai mis à l'origine

Code:

1
2
3
4
5
6
7
8
 
'saisie du nom
Private Sub boxnom_AfterUpdate()
Sheets("recap commande").Select
Range("a65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = boxnom.Value
End Sub

n'est pas terrible
j'essaie de le changer

j'ai fait 3 essais raté

Code:

1
2
3
4
5
6
7
 
 
boxnom.Value.Copy Sheets("recap commande").Range("a65536").End(xlUp).Offset(1, 0)
 
Sheets("recap commande").Range("a65536").End(xlUp).ActiveCell.Offset(1, 0) = boxnom.Value
 
Sheets("recap commande").Range("a65536").End(xlUp).Offset(1, 0).Copy boxnom.Value

si vous avez le truc qui me manque ?

10/07/2009, 13h37
fgiambelluco

Bonjour
La syntaxe 2 me semble bonne, si ce n'est qu'il manque, peut être le, .Value sur le Offset.

Code:

Sheets("recap commande").Range("a65536").End(xlUp).ActiveCell.Offset(1, 0).Value = boxnom.Value

--------------
Frédéric
http://www.access-developpement.com

j'ai trouvé ou le programme chagrine

j'ai modifié le code de la sorte
Code:

1 2 3 4 Sub calibre_12() Sheets("tarif").Range("d1:h9").Copy Sheets("c12").Range("a65536").End(xlUp).Offset(1, 0) End Sub
et lorsque dans la partie validation
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub CommandButton1_Click() Dim numdl As String, i As Integer Dim calibre As Variant Sheets("tarif").Select numdl = Range("e65536").End(xlUp).Row For i = 1 To numdl Range("d" & i).Value = boxnom.Value Next i If c12.Value = True Then calibre_12 If c16.Value = True Then calibre_16 If c20.Value = True Then calibre_20 Unload UserForm1 End Sub
il doit activer une des 3 macro (calibre_12, calibre_16, calibre_20)
ça le perturbe et il me signale une erreur dans ce code
(je met que la ligne signélé en jaune)
Code:

1 2 3 4 Private Sub c12ref1_Change() Set c = .Find(What:=rech1, LookAt:=xlPart) End Sub
il me met erreur d'execution 1004

par contre si je n'execute pas la macro calibre_12 directement dans la validation, mais après cout j'obtien un bon résultat avec aucune erreur de copie

10/07/2009, 18h41
ouskel'n'or

La syntaxe que je t'ai indiquée, qui n'est pas la même que celles de Krovax ou de bosk1000, fonctionne.
Si chez toi elle ne fonctionne pas c'est que tu n'as pas le bon nom de feuille, que la feuille où tu colles est protégée ou que le classeur contenant la feuille est fermée ou que... Bref, ce n'est pas le code.
Commence par régler ce problème, pour les autres nous verrons ensuite.
Ta façon de procéder ne nous facilite pas la tâche pour t'aider, les problèmes se règlent un par un et l'un après l'autre ;)
La programmation demande de la méthode, les essais/erreurs/corrections ne sont pas de mise sinon on ne s'en sort pas. :(
Bonne chance dans tes recherches
10/07/2009, 20h11
bosk1000
pour le code de la boxnom j'ai réussi
cela donne
Code:

1 2 3 4 5 Private Sub boxnom_AfterUpdate() Range("d1").Value = boxnom.Value Sheets("tarif").Range("d1").Copy Sheets("recap commande").Range("a65536").End(xlUp).Offset(1, 0) End Sub
j'ai juste tricher en mettant la valeur dans une cellule de la feuille active
et ensuite en la mettant la ou je desirais
c'est pas parfait, mais au moins ça ne plante plus du tout

le dernier problème (et au passage j'ai bien intégré d'éviter les selects, je vous le promet (krovax, ouskel'n'or)
la j'ai bien progressé de ce coté)
c'est l'utilisation des macro calibre_12, calibre_16 et calibre_20, qui font planter le programme si je les utilise dans le processus complet, alors que si je les lance à part j'ai aucun souci
et le bug se situe
Code:

1 2 Set c = .Find(What:=rech1, LookAt:=xlPart)
10/07/2009, 21h28
ouskel'n'or

Citation:

Envoyé par ousk' qui l'a dit...

Si chez toi elle ne fonctionne pas c'est que tu n'as pas le bon nom de feuille

Tiens, voilà que j'avais raison...
Pour ton second pb il serait nécessaire que tu mettes tout ton code. L'erreur peut avoir plusieurs origines. Si tu as vraiment mis ce que tu as mis à 13h39 alors tu as vraiment une erreur :aie:
Mets tout don code ;)
A+
11/07/2009, 00h05
bosk1000

1 pièce(s) jointe(s)

je met directement le programme
le bug survient lorsque sur le formulaire (il n'y en a qu'un) je clique sur valider après avoir cocher l'un des 3 boutons d'option (qui declanche après avoir cliqué sur validé une macro)
merci pour votre aide

je met tout le code si quelqu'un voit la raison pour laquelle excel plante

pour le formulaire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
 
' ouverture fichier
Private Sub UserForm_Initialize()
' activez les sources de menu déroulant
Sheets("tarif").Select
'Range("d1:g9").Select
'Selection.ClearContents
Range("d1:g9").ClearContents
 
c12ref1.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref2.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref3.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref4.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref5.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref6.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref7.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref8.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref9.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
End Sub
'saisie du nom
Private Sub boxnom_AfterUpdate()
'Me.boxnom.Value.Copy Sheets("recap commande").Range("a65536").End(xlUp).Offset(1, 0)
'Sheets("tarif").Range("d1").Copy Sheets("recap commande").Range("a65536").End(xlUp).Offset(1, 0)
Sheets("recap commande").Select
Range("a65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = boxnom.Value
End Sub
                        'EVENEMENT POUR CHAQUE SELECTION DE REF
 
Private Sub c12ref1_Change()
Sheets("tarif").Select
Dim rech1 As String
Dim plage As Range, c As Range
rech1 = c12ref1.Value
Set plage = Worksheets("tarif").UsedRange
    With plage
             Set c = .Find(What:=rech1, LookAt:=xlPart)
                If Not c Is Nothing Then
                    Range("f1").Value = c.Offset(0, 1).Value
                        c12p1.Value = c.Offset(0, 1).Value
                        Range("e1").Value = rech1
                End If
    End With
End Sub
 
                          ' evenement sur changement quantité
Private Sub q1_Change()
Dim total1 As Double
Range("g1").Value = Val(q1)
t1.Value = Range("h1").Value
End Sub
'vérification du total
Private Sub CommandButton3_Click()
totalg = Range("h10").Value
Sheets("recap commande").Select
Range("a65536").End(xlUp).Select
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Sheets("tarif").Range("h10").Value
End Sub
' validation
Private Sub CommandButton1_Click()
Dim numdl As String, i As Integer
 
Sheets("tarif").Select
numdl = Range("e65536").End(xlUp).Row
For i = 1 To numdl
Range("d" & i).Value = boxnom.Value
Next i
Unload UserForm1
End Sub
'annulation
Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

et les macro avec les boutons :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Option Explicit
Sub calibre_12()
Sheets("tarif").Range("d1:h9").Copy Sheets("c12").Range("a65536").End(xlUp).Offset(1, 0)
Sheets("recap commande").Select
End Sub
Sub calibre_16()
Sheets("tarif").Range("d1:h9").Copy Sheets("c16").Range("a65536").End(xlUp).Offset(1, 0)
Sheets("recap commande").Select
End Sub
Sub calibre_20()
Sheets("tarif").Range("d1:h9").Copy Sheets("c20").Range("a65536").End(xlUp).Offset(1, 0)
Sheets("recap commande").Select
End Sub
Sub commande()
Load UserForm1
UserForm1.Show
End Sub

16/07/2009, 16h54
ouskel'n'or

Décourageant !

Citation:

Sheets("recap commande").Select
Range("a65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = boxnom.Value

Sans les select :

Code:

Sheets("recap commande").Range("a65536").End(xlUp).Offset(1, 0) = boxnom.Value

Je ne sais pas toi mais moi je préfère la seconde version :cry:

Tu ne dis pas (plus ?) où le code plante, c'est embêtant ! ;)
16/07/2009, 18h28
bosk1000
oui, oups je l'avais pas changé, sorry...

auparavant j'avais mis des bouton d'option, je sélectionnait un des bouton, et au moment ou je cliquait sur CommandButton1, un message d'erreur qui cible en jaune :
erreur d'exécution 1004
Code:

1 2 Set c = .Find(What:=rech1, LookAt:=xlPart)
donc j'ai mis 3 bouton sur la feuille excel que je sélectionne après avoir validé.
et là ça passe
assez étrange,comme en fait le code est plus long, j'ai en fait 9 fois la fonction "rech" et l'erreur prend en compte le dernier "rech" qui est actif
donc faut il que dans la validation je stop le "rech" actif à ce moment là et comment ?
17/07/2009, 12h47
ouskel'n'or

Citation:

donc j'ai mis 3 bouton sur la feuille excel que je sélectionne après avoir validé.
et là ça passe
assez étrange,comme en fait le code est plus long, j'ai en fait 9 fois la fonction "rech" et l'erreur prend en compte le dernier "rech" qui est actif
donc faut il que dans la validation je stop le "rech" actif à ce moment là et comment ?

8O Tu as compris ce que tu as mis ? Où qu'elle est la fonction Rech ? :calim2:
17/07/2009, 13h02
bosk1000
Citation:

Envoyé par ouskel'n'or

8O Tu as compris ce que tu as mis ? Où qu'elle est la fonction Rech ? :calim2:

j'ai due mal m'exprimé
je ressitue

avant, j'avais mis trois bouton d'option, ceux-ci me permettais de declancher l'une des trois macros (calibre_12.16 ou 20), cette fonction se déclenchait lorsque je cliquait sur le CommandButton1, et à la suite de cela j'avais l'erreur

mais pour pouvoir avancé, j'ai modifié de sorte que lorsque je valide, je me retrouve à la fin sur la feuille "tarif", et la j'ai mis 3 bouton pour déclencher l'une des 3 macros.

donc pour revenir à l'erreur, ce formulaire me permet de selectionner jusqu'a 9 référence (j'ai mis 9 zone de liste modifiable) qui sont alimenté par un rowsource, qui me permette ensuite de chercher la référence selectionné dans la feuille grace à :
Code:

1 2 Set c = .Find(What:=rech2, LookAt:=xlPart)
et rech est une variable qui va de 1 à 9 (une pour chaque zone de liste)
et si je selectionne 3 référence l'érreur ciblera la ligne avec le code ci dessus mais pour rech3 au lieu de rech2

donc voila pourquoi, afin d'eviter l'erreur, j'ai mis les choix du calibre après avoir validé mon formulaire, plutôt que de mettre ce choix dans le formulaire.
Mais s'il existe un moyen de le faire fonctionner c'est mieux
17/07/2009, 13h29
ouskel'n'or

Je veux bien regarder mais là, je reprends au début car je ne comprends pas ce que tu fais. Ex :

Citation:

c12ref1.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref2.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
c12ref3.RowSource = "tarif!a1:n" & Range("tarif!a65536").End(xlUp).Row
... etc.

Celà veut-il dire que tu as les mêmes infos dans tes neuf listes ?
A quoi celà te sert-il ? A sélectionner plusieurs articles de la liste ? Sais-tu que la multi-sélection est possible avec une seule liste ?
Commençons par là...
Tu dis
A+
17/07/2009, 13h35
bosk1000

en fait je fait un bon de commande ou je selectionne jusqu'a 9 articles

donc avec ce code j'initialise mes 9 zones de liste pour qu'ils me proposent les référence
je ne connais pas d'autre methode pour permettre a plusieurs zone de liste dêtre renseigné

comme tu le vois les référence sont sur la colonne a, et j'ai donc 9 zone de liste ( c12ref1 à c12ref9)
17/07/2009, 13h55
ouskel'n'or

Jète un oeil dans les propriétés des listes à "multiselect"

Citation:

Envoyé par l'aide en ligne (extrait)

MultiSelect, propriété
Indique si l'objet permet plusieurs sélections.

et regarde une des manières de l'exploiter à "Listindex"

Citation:

Envoyé par l'aide en ligne (extrait)

Si vous utilisez la propriété MultiSelect pour créer un contrôle ListBox permettant plusieurs sélections, la propriété Selected du contrôle ListBox (plutôt que la propriété ListIndex) identifie les lignes sélectionnées. La propriété Selected est un tableau ayant le même nombre de valeurs que le nombre de lignes du contrôle ListBox. Pour chaque ligne de la zone de liste, la propriété Selected contient la valeur True si la ligne est sélectionnée, et False si elle ne l'est pas.

Mais la FAQ ou les tutos ont certainement ça dans leurs placards, tu devrais y jeter un oeil.
Dans tous les cas on n'utilise pas 9 listes identiques pour réaliser de la multi-sélection... Une seule suffit.
Je te laisse regarder ;)

si je comprend bien, tu me propose d'utiliser plutot une seule zone de liste (listbox1) et d'utiliser dans un premier temps le multiselect pour choisir toutes les références qui m'interesse
Code:

1 2 3 4 5 6 7 8 Private Sub UserForm_Initialize() ListBox1.ColumnHeads = True 'en tete de colone ListBox1.ColumnCount = 2 ' nombre de colone a afficher/n°comm/produit/nom/type/marque/ref/pvht/eco taxe/ttc ListBox1.ColumnWidths = "70,80" ListBox1.RowSource = "tarif!a2:i" & Range("tarif!a65536").End(xlUp).Row ' etendue de la liste a fficher ListBox1.MultiSelect = fmMultiSelectMulti End Sub
est-ce par là que tu veux que je cherche ?

sinon en gardant mes 9 zone de liste j'ai reussi cela :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 Option Explicit Dim Ws As Worksheet Dim NbLignes As Integer ' ouverture fichier Private Sub UserForm_Initialize() ' activez les sources de menu déroulant 'Définit la feuille contenant les données Set Ws = Worksheets("tarif") 'Définit le nombre de lignes dans la colonne A NbLignes = Ws.Range("A65536").End(xlUp).Row 'Remplissage du ComboBox1 Alim_Combo 1 Alim_Combo 2 Alim_Combo 3 Alim_Combo 4 Alim_Combo 5 Alim_Combo 6 Alim_Combo 7 Alim_Combo 8 Alim_Combo 9 Range("d1:g9").ClearContents End Sub 'Procédure pour alimenter les ComboBox Private Sub Alim_Combo(CbxIndex As Integer, Optional Cible As Variant) Dim j As Integer Dim Obj As Control 'Définit le ComboBox à remplir Set Obj = Me.Controls("ComboBox" & CbxIndex) 'Supprime les anciennes données Obj.Clear 'alimente le Combobox initial (Combobox1) If CbxIndex > 0 Then 'Boucle sur les lignes de la colonne A (à partir de la 2eme ligne) For j = 2 To NbLignes Obj = Ws.Range("A" & j) 'Remplit le ComboBox sans doublons If Obj.ListIndex = -1 Then Obj.AddItem Ws.Range("A" & j) Next j End If Obj.ListIndex = -1 End Sub
qui me permet d'alimenter mes 9 zones de liste. Et j'ai vue que cette méthode servait aussi a remplir des zone de liste en cascade, donc je pourrais à partir de cette méthode, choisir ma référence dans une première zone de liste et dans une autre box faire apparaitre le prix et je n'aurais plus qu'ensuite mettre la quantité celle la me parait pas mal, suffit que j'arrive a appliquer cette méthode 8O

donc j'ai 2 options bien différente
mais dans la suite des opérations, comme je veux indiquer la quantité commandé pour chaque référence choisis je ne vois pas comment procédé avec la première méthode.
donc si tu peux m'aiguiller vers laquelle des 2 options je dois rester, car après je pars vers trop d'information a glaner

donc au final dois-je partir sur une seule listebox ou plusieurs zone de liste selon toi ? :calim2:

18/07/2009, 15h53
ouskel'n'or

Pour ma part j'utiliserais une autre méthode qui me permettrait d'afficher en même temps le libellé de l'article, la quantité disponible, le prix par quantité, etc. Les listes en cascade, c'est utile dans certains cas spécifiques mais jusque là de tes explications, je ne vois pas.
Tu as ici un fichier joint comme exemple d'utilisation d'un userform et de simples textbox. Utilise l'ascenseur de l'userform pour te déplacer dans la feuille de calculs
Dans cet exemple les données sont modifiables mais ce n'est rien de les verrouiller. Simplement, il permet de se balader dans une feuille de calculs et, avec une simple modif, de permettre la sélection de tout ce que tu veux. Tu as déjà un bouton de validation dans ton appli (je crois) Il suffirait de l'ajouter.
Juste une idée.
Une autre idée consisterait à utiliser une liste multi-colonnes... l'avantage étant, comme dans le cas précédent, qu'une sélection dans une colonne permet de connaître le contenu de toutes les autres.
Ce ne sont pas les méthodes qui manquent.
Teste les différentes méthodes et quand tu auras "reconnu" ta meilleure idée... on pourra t'aider à la peaufiner ;)
A+

Voir 40 message(s) de cette discussion en une page