OVH Cloud OVH Cloud

Plusieur Tableaux regroupé en un

4 réponses
Avatar
Yassin
Bonjour,

Sous XL 03 je cherche à prendre le tableau1 de la feuille1 ( [A2:Ex]
avec un nombre de ligne qui varie chaque fois) et le tableau2 de la
feuille2 pour les mettre l'un après l'autre dans la feuille3. Le tout
soit par macro, soit en full-dynamique.

J'ai déjà essayé de nommer le tableau1 et 2 avec la formule
=DECALER(Données!$A$2;;;NBVAL(Données!$A:$E)-1) mais ça ne marche pas.

Merci d'avance de votre aide

Yassin

4 réponses

Avatar
Elliac
Bonjour,

Code à rattacher à la feuille 3 :
Private Sub Worksheet_Activate()
Range("a1").CurrentRegion.Clear
Sheets(1).Range("A1").CurrentRegion.Copy Range("a1")
Sheets(2).Range("A1").CurrentRegion.Copy Range("a1").End(xlDown)(2)
End Sub

Camille


Bonjour,

Sous XL 03 je cherche à prendre le tableau1 de la feuille1 ( [A2:Ex]
avec un nombre de ligne qui varie chaque fois) et le tableau2 de la
feuille2 pour les mettre l'un après l'autre dans la feuille3. Le tout
soit par macro, soit en full-dynamique.

J'ai déjà essayé de nommer le tableau1 et 2 avec la formule
ÞCALER(Données!$A$2;;;NBVAL(Données!$A:$E)-1) mais ça ne marche pas.

Merci d'avance de votre aide

Yassin



Avatar
Yassin
Bonjour,

Merci pour votre réponse rapide.

Malheureusement il me met l'erreur suivante :

Erreur d'exécution '9':
L'indice n'appartient pas à la sélection.

Merci d'avance de votre aide

Bonjour,

Code à rattacher à la feuille 3 :
Private Sub Worksheet_Activate()
Range("a1").CurrentRegion.Clear
Sheets(1).Range("A1").CurrentRegion.Copy Range("a1")
Sheets(2).Range("A1").CurrentRegion.Copy Range("a1").End(xlDown)(2)
End Sub

Camille


Bonjour,

Sous XL 03 je cherche à prendre le tableau1 de la feuille1 ( [A2:Ex]
avec un nombre de ligne qui varie chaque fois) et le tableau2 de la
feuille2 pour les mettre l'un après l'autre dans la feuille3. Le tout
soit par macro, soit en full-dynamique.

J'ai déjà essayé de nommer le tableau1 et 2 avec la formule
ÞCALER(Données!$A$2;;;NBVAL(Données!$A:$E)-1) mais ça ne marche pas.

Merci d'avance de votre aide

Yassin





Avatar
Elliac
Bonjour,

En prenant le problème à l'envers :
Private Sub Worksheet_Activate()
Range("a1").CurrentRegion.Clear
Sheets(1).Range("A50000").End(xlUp)(2).CurrentRegion.Copy Range("a1")
Sheets(2).Range("A50000").End(xlUp)(2).CurrentRegion.Copy
Range("a50000").End(xlUp)(2)
End Sub

Camille


Bonjour,

Merci pour votre réponse rapide.

Malheureusement il me met l'erreur suivante :

Erreur d'exécution '9':
L'indice n'appartient pas à la sélection.

Merci d'avance de votre aide

Bonjour,

Code à rattacher à la feuille 3 :
Private Sub Worksheet_Activate()
Range("a1").CurrentRegion.Clear
Sheets(1).Range("A1").CurrentRegion.Copy Range("a1")
Sheets(2).Range("A1").CurrentRegion.Copy Range("a1").End(xlDown)(2)
End Sub

Camille


Bonjour,

Sous XL 03 je cherche à prendre le tableau1 de la feuille1 ( [A2:Ex]
avec un nombre de ligne qui varie chaque fois) et le tableau2 de la
feuille2 pour les mettre l'un après l'autre dans la feuille3. Le tout
soit par macro, soit en full-dynamique.

J'ai déjà essayé de nommer le tableau1 et 2 avec la formule
ÞCALER(Données!$A$2;;;NBVAL(Données!$A:$E)-1) mais ça ne marche pas.

Merci d'avance de votre aide

Yassin








Avatar
Yassin
Bonjour,

Encore merci, ça fonctionne presque... Le premier tableau ce recopie
bien sur la troisième feuille.

Maintenant le truc c'est que le deuxième tableau commence à la ligne
96 et prends donc la ligne 96 du tableau2... Alors que je souhaiterais
qu'elle commence à la ligne 96 mais avec la ligne 2 du tableau...

D'avance merci

Cordialement

Yassin

Bonjour,

En prenant le problème à l'envers :
Private Sub Worksheet_Activate()
Range("a1").CurrentRegion.Clear
Sheets(1).Range("A50000").End(xlUp)(2).CurrentRegion.Copy Range("a1")
Sheets(2).Range("A50000").End(xlUp)(2).CurrentRegion.Copy
Range("a50000").End(xlUp)(2)
End Sub

Camille


Bonjour,

Merci pour votre réponse rapide.

Malheureusement il me met l'erreur suivante :

Erreur d'exécution '9':
L'indice n'appartient pas à la sélection.

Merci d'avance de votre aide

Bonjour,

Code à rattacher à la feuille 3 :
Private Sub Worksheet_Activate()
Range("a1").CurrentRegion.Clear
Sheets(1).Range("A1").CurrentRegion.Copy Range("a1")
Sheets(2).Range("A1").CurrentRegion.Copy Range("a1").End(xlDown)(2)
End Sub

Camille


Bonjour,

Sous XL 03 je cherche à prendre le tableau1 de la feuille1 ( [A2:Ex]
avec un nombre de ligne qui varie chaque fois) et le tableau2 de la
feuille2 pour les mettre l'un après l'autre dans la feuille3. Le tout
soit par macro, soit en full-dynamique.

J'ai déjà essayé de nommer le tableau1 et 2 avec la formule
ÞCALER(Données!$A$2;;;NBVAL(Données!$A:$E)-1) mais ça ne marche pas.

Merci d'avance de votre aide

Yassin