Besoin d aide sur code vba

Version imprimable

23/01/2011, 16h29
alexandrek

Besoin d aide sur code vba
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:

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
23/01/2011, 16h34
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 ?

1 pièce(s) jointe(s)

Code:

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

23/01/2011, 16h52
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
23/01/2011, 17h10
alexandrek

ok

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