Discussion :

[Guiggs]

Bonjour,

J'avais une macro qui fonctionnait bien sous Excel 2007 mais lorsque j'ai utilisé la macro sous Excel 2010 elle ne fonctionnait plus.

J'ai le message d'erreur suivant :

Erreur de compilation :
Membre de méthode ou de données introuvable

Voilà ma macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub test()
 
Sheets("LISTE").Select
 
If ActiveCell <> "" And ActiveCell.Row > 2 Then
 
    Mesval = Mesval = Array("Titre1", "Genre1", "Anne1", "Duree1", "Possession1")
 
    MaLig = ActiveCell.Row
 
    For i = 0 To UBound(Mesval)
 
         Saisir.Controls(Mesval(i)).Text = Sheets("Liste").Cells(MaLig, i + 2)
 
    Next
 
    Saisir.CommandButton1.Visible = True
 
    Saisir.Valid.Visible = False
 
    Saisir.Show
 
Else
 
    MsgBox "Selectionner une fiche !"
 
End If
 
    'Sheets("FEUILLE DE SAISIE").Select
 
End Sub
 
 
 
Sub EcritUSF(Arg1)
 
Sheets("LISTE").Select
 
Mesval = Array("Titre1", "Genre1", "Annee1", "Duree1", "Possession1")
 
For i = 0 To UBound(Mesval)
 
    Sheets("Liste").Cells(Arg1, i + 1) = Saisir.Controls(Mesval(i)).Text
 
Next
 
Unload Saisir
 
Sheets("Menu").Select
 
End Sub

Pourriez-vous m'aider à faire fonctionner ma macro sur Excel 2010 svp ?

[unparia]

Bonjour
1) Que veut dire cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mesval = Mesval = Array("Titre1", "Genre1", "Anne1", "Duree1", "Possession1")

?

Je doute fort que cette ligne de "code" passait "auparavant", hein . ..
2)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sheets("LISTE").Select
 
If ActiveCell <> "" And ActiveCell.Row > 2 Then

Outre le fait que l'on travaille directement avec les objets Excel à traiter et non à coups de Select, etc ...
-----Tu sélectionnes une feuille ... Bon ... mais quelle en est la cellule active ?
------ toujours spécifier la propriété utilisée (ActiveCelle.QUOI ?
commence par cela !

[Guiggs]

Salut, Oui effectivement j'ai écrit un Mesval en trop.
Cette ligne dit que les valeurs que je vais saisir seront créé dans un tableau.

Je comprend pas pourquoi ma commandButton1 ne fonctionne plus ?

Cordialement,
Guiggs

[Guiggs]

Salut,

Ma cellule active est la première ligne vide de mon tableau.

Cordialement,
Guiggs