Discussion :

[alexandrek]

Bonjour,

Voila je veux copier une plage contenant un tableau nommée ; TICKET de la feuille("AAA") a une feuille dont le nom varie la feuille(Nom)

code :

Code :

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

1
2
Dim TICKET As Range ' plage définie et nommée dc un objet range'
Set TICKET = Sheets(Nom).Range("A1:E17") 'Si je comprends bien on met juste l'adresse de destination

Etant débutant peut etre je me trompe ... il me renvoie un message d erreur
L'indice n appartient pas à la selection

Merci d avance

[casefayere]

Bonjour,

ta variable "nom" est bien déclarée ? est-elle Public, en haut d'un module ? a t'elle reçu une valeur ? est'elle déclarée en string ?

[alexandrek]

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
Sub TransfData()
'
' TransfData Macro
'
'   Création nouvelle page avec le numero du deal
 
Dim Nom As Integer    ' nombre entier, pas un objet Range
Dim MaFeuille As Worksheet
Dim MaNewFeuille As Worksheet
Set MaFeuille = Sheets("Botter")
Nom = Sheets("botter").Range("D5").Value
 
'On verifie que le nom n'existe pas déjà
On Error Resume Next 'en cas d'erreur, on continu sans generer d'erreur
Set MaNewFeuille = Sheets(Nom)
On Error GoTo 0 'on réactive la gestion d'erreur
'On verifie si la variable a obtenu un objet ou non
'If Not MaNewFeuille Is Nothing Then Exit Sub 'Si elle existe déjà on quitte
 
'Sinon on continu
'Add retourne un objet Worksheet, que tu recupere dans MaNewFeuille
Set MaNewFeuille = Sheets.Add(After:=Sheets(Sheets.Count))
 
'Renome la nouvelle feuille
MaNewFeuille.name = Nom
 
 
'   Creation tab et mise en page
 
Dim TICKET As Range
Set TICKET = Sheets(Nom).Range("A1:E17")

.....

Le ticket est une plage contenant un tableau par contre mais il ne se copie pas en faite

voila le fichier

[casefayere]

Vérifies la valeur de "nom" quand tu débogues

je n'étudie pas ton code mais dans ton post une déclares "nom" en integer", sur ton fichier, il est déclaré en string

[alexandrek]

dsl petite erreur ds mon post mais c est bien déclaré en String

j'ai réussi à passer par un autre code pour réaliser l'action désirée

merci