Discussion :

[roch2a]

Bonjour à toutes et tous

une nouvelle fois je me tourne vers vous pour m'aider à résoudre un problème en vba

Voilà mon soucis se situe sur cette ligne en rouge

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim DernLigne1 As Long
DernLigne1 = Range("A" & Rows.Count).End(xlUp).Row
Dim maPlageDynamiq As Range
    Dim DernLigneDynamiq As Long, DernColonneDynamiq As Integer
    'dernière ligne colonne L
    DernLigneDynamiq = Sheets("Feuil2").Range("L" & Rows.Count).End(xlUp).Row - 1  'ne selectionne pas la ligne total général ni les entêtes
    'dernière colonne ligne 6
    DernColonneDynamiq = Sheets("Feuil2").Cells(6, Cells.Columns.Count).End(xlToLeft).Column  'dernière colonne du tableau croisé dynamique
    Set maPlageDynamiq = Sheets("Feuil2").Range(Cells(6, 12), Cells(DernLigneDynamiq, DernColonneDynamiq))
maPlageDynamiq.Select

pour info je dois basculer plusieurs fois entre ma feuil1 et ma feuil2 de mon classeur actif

j'ai un code erreur 1004

Merci de votre aide précieuse.

[Invité]

Bonjour,

A tester :

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
 
Sub Test()
 
Dim MaPlageDynamique As Range
Dim DerniereLigneDynamique As Long, DerniereColonneDynamique As Long
 
    On Error GoTo FinTest
 
    With Sheets("Feuil2")
 
        'dernière ligne colonne L
        DerniereLigneDynamique = .Range("L" & .Rows.Count).End(xlUp).Row - 1 'ne selectionne pas la ligne total général ni les entêtes
        DerniereColonneDynamique = .Cells(6, .Columns.Count).End(xlToLeft).Column 'dernière colonne du tableau croisé dynamique
        If DerniereLigneDynamique >= 6 And DerniereColonneDynamique >= 12 Then
           Set MaPlageDynamique = .Range(.Cells(6, 12), .Cells(DerniereLigneDynamique, DerniereColonneDynamique))
        Else
           GoTo FinTest
        End If
    End With
 
    With MaPlageDynamique
 
         Debug.Print MaPlageDynamique.Address
 
    End With
 
    GoTo FinTest
 
FinTest:
 
 Set MaPlageDynamique = Nothing
 
End Sub

Il est inutile de sélectionner l'aire une fois définie.

Sinon, à regarder si cela peut vous aider : excel-travail-zones-nommees-tcd-vba

[Menhir]

j'ai un code erreur 1004

On peut connaitre le message de l'erreur ou ça fait partie de l'énigme ?

[Marc-L]

Bonjour !

Set maPlageDynamiq = Sheets("Feuil2").Range(Cells(6, 12), Cells(DernLigneDynamiq, DernColonneDynamiq))

Erreur classique de débutant oubliant de préciser la feuille de chaque objet cellule
surtout quand la feuille de calculs n'est pas celle active !

      Set maPlageDynamiq = Range([Feuil2!L6], Sheets("Feuil2").Cells(DernLigneDynamiq, DernColonneDynamiq))   …

___________________________________________________________________________________________________________

     Merci de cliquer sur en bas à droite de chaque message ayant aidé puis sur pour clore cette discussion …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[roch2a]

Bonjour !

Erreur classique de débutant oubliant de préciser la feuille de chaque objet cellule
surtout quand la feuille de calculs n'est pas celle active !

      Set maPlageDynamiq = Range([Feuil2!L6], Sheets("Feuil2").Cells(DernLigneDynamiq, DernColonneDynamiq))   …

___________________________________________________________________________________________________________

     Merci de cliquer sur en bas à droite de chaque message ayant aidé puis sur pour clore cette discussion …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Merci beaucoup ça marche !