Discussion :

[lps02]

Bonjour le Forum

Mon probleme :
Dans un classeur excel 2007, j'ai un nombre variable de feuilles.
Je souhaite faire un code vba me permettant de consolider les feuilles choisies par une listbox (multiselect) sachant que les cellules sont toujours les mêmes.

Je bloque sur le code suivant qui me renvoie toujours des erreurs de type 9 ou autres.

pouvez vous m'aider?

Mon code :

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
Private Sub LBChoix_Change()
Dim MaListe As String, i As Byte, sh As Worksheet, n As Byte
MaListe = ""
With Me.LBChoix
 
        For i = 0 To .ListCount - 1
 
            If .Selected(i) Then
            MaListe = MaListe & fmChoixFeuille.LBChoix.List(i) & "!R8C22:R16C42" & ","
            End If
 
        Next i
 
  End With
 
End Sub
 
Private Sub CmdValid_Click()
 
 
Sheets("Saisie (2)").Range("U8").Consolidate Sources:=MaListe, Function:=xlSum, TopRow:=True, LeftColumn _
            :=True, CreateLinks:=False
 
End Sub

Bien cordialement

[nibledispo]

Bonjour,

Il aurait été bon de préciser sur quelle ligne se produit l'erreur.

Faute de pouvoir faire un essai (pas de fichier joint) cela ne convient-il pas ?

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
Private Sub LBChoix_Change()

Dim MaListe As String, i As Byte, sh As Worksheet, n As Byte
MaListe = ""

With Me.LBChoix
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            MaListe = MaListe & .List(i) & "!R8C22:R16C42" & ","
        End If
    Next i
End With
 
End Sub

Par ailleurs :
- à la dernière sélection la "," ne sera-t-elle pas de trop ?
- je me demande si "with Me.LBChoix" n'est pas superflu dans la mesure où "private sub LBchoix_change" indique clairement où se situe l'action.

Cordialement,

[Docmarti]

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
 
Dim MaListe As String
 
Private Sub LBChoix_Change()
Dim  i As Byte, sh As Worksheet, n As Byte
MaListe = ""
With Me.LBChoix
 
        For i = 0 To .ListCount - 1
 
            If .Selected(i) Then
            MaListe = MaListe & fmChoixFeuille.LBChoix.List(i) & "!R8C22:R16C42" & ","
            End If
 
        Next i
 
  End With
 
End Sub
 
Private Sub CmdValid_Click()
 
 
Sheets("Saisie (2)").Range("U8").Consolidate Sources:=MaListe, Function:=xlSum, TopRow:=True, LeftColumn _
            :=True, CreateLinks:=False
 
End Sub

Bien cordialement[/QUOTE]

Bonjour lps02.

Pour commencer, tu dois sortir la déclaration Dim MaListe As String de la procédure et la mettre en tête du module, afin qu'elle soit visible dans les autres procédures du module.

Cordialement

Docmarti

[Invité]

Code :

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

 MaListe = MaListe & fmChoixFeuille.LBChoix.List(i) & "!R8C22:R16C42" & ","

il y a toujours une virgule en trop!

Code :

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

1
2
Next i
MaListe =left(MaListe ,len(MaListe )-1)

ou

Code :

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

1
2
3
4
5
If MaListe = "" Then
    MaListe =  fmChoixFeuille.LBChoix.List(I) & "!R8C22:R16C42"
Else
    MaListe = MaListe & "," & fmChoixFeuille.LBChoix.List(I) & "!R8C22:R16C42"
End If

[nibledispo]

Bonjour Robert,

Je vois que tu confirmes un de mes doutes.

Faute d'avoir un fichier pour essai sans lequel je suis incapable d'affirmer quoi que ce soit, peux-tu me dire si mon autre remarque est juste ou pas ?

Cordialement,

[Invité]

"with Me.LBChoix" n'est pas une erreur tu propose

Code :

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

with LBChoix

qui marche également. j'aime mieux une déclinaison total qui permet de mieux définir de quoi on parle. le deux sont bon!

[lps02]

Bonjour à vous et merci pour vos réponses aussi rapide.

Hélas toujours probleme.
Renvoi d'une erreur 1004 reference de consolidation non valide à la ligne :

Code :

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

1
2
Sheets("Saisie (2)").Range("U8").Consolidate Sources:=MaListe, Function:=xlSum, TopRow:=True, LeftColumn _
            :=True, CreateLinks:=False

Je recherche une solution vers un tableau pour la source type MonTableau () que je mettrai en reference.
Ce tableau serait rempli par ma listbox à partir des onglets choisis auquels j'ajouterai les référence de cellules.

Possible??

[lps02]

Docmarti,

Merci de ton aide. j'ai juste modifié le code pour la zone à consolider. Il faut garder la même zone que les onglets à consolider pour une consolidation par legne identiques. sinon tout se fait sur la même ligne.

Mon code :

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
Dim MaListe() As Variant
Private Sub UserForm_Initialize()
 
Dim s As Object
 
  For Each s In ActiveWorkbook.Sheets
  If s.Name <> "Parametres" And s.Name <> "Page" Then
    Me.LBChoix.AddItem s.Name
    End If
  Next s
  Me.LBChoix.ListIndex = -1
 
End Sub
 
 
 
 
Private Sub LBChoix_Change()
Dim i As Byte, sh As Worksheet, n As Byte
ReDim MaListe(0)
With Me.LBChoix
 
 
 
            For i = 0 To .ListCount - 1
            If .Selected(i) Then
 
            MaListe(UBound(MaListe)) = fmChoixFeuille.LBChoix.List(i) & "!R8C21:R16C42"
            ReDim Preserve MaListe(UBound(MaListe) + 1)
            End If
 
        Next i
 
  End With
 
End Sub
 
Private Sub CmdValid_Click()
 
 ReDim Preserve MaListe(UBound(MaListe) - 1)
Sheets("Saisie (2)").Range("U8:AP16").Consolidate Sources:=MaListe(), Function:=xlSum, TopRow:=True, LeftColumn _
            :=True, CreateLinks:=False
 
End Sub
Private Sub CmdQuit_Click()
Unload Me
 
End Sub

Bien cordialement et merci encore Docmarti.

lps02

[Docmarti]

Merci de l'info lps02.

C'est une fonction que je ne connaissais pas.

J'ai trouvé une excellente description de la marche à suivre

http://excel.developpez.com/faq/?page=Feuille#Consolider

Et un exemple très clair

http://www.excel-easy.com/examples/consolidate.html

Amicalement

Docmarti