excel et tableau de colonne

Version imprimable

A l'aide d'un petit .exe je dois copier (N:N) DANS (A:A) puis suprimmer N:N

Mon bout de code ne fonctionne pas
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim tabcol(5) As Variant tabcol(0) = "N:N" tabcol(1) = "I:I" tabcol(2) = "K:K" tabcol(3) = "M:M" tabcol(4) = "G:G" compt = 65 For i = 0 To UBound(tabcol) Columns(tabcol(i)).Select 'ICI Erreur Selection.Copy Columns(Chr(compt) & ":" & Chr(compt)).Select ActiveSheet.Paste Columns(tabcol(i)).Select Selection.Delete Shift:=xlToLeft compt = compt + 1 Next
J'ai l'erreur
Erreur défini par l'application ou par l'objet.
Merci de votre aide

08/01/2007, 15h19
Vld44

à quel endroit l'erreur ?
08/01/2007, 15h24
totoche

Bonjour & merci
je l'ai signalé dans le code:

Citation:

Columns(tabcol(i)).Select 'ICI Erreur

Bonjour,

Plutôt que de passer par "Columns", tu pourrais utiliser la méthode "Range" si tu te trouves bien dans Excel ...

Ou alors c'est que tu dis pas que tu utilises Excel ...

J'essaierais dans un premier temps ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim tabcol(5) As Variant
tabcol(0) = "N:N" 
tabcol(1) = "I:I" 
tabcol(2) = "K:K" 
tabcol(3) = "M:M" 
tabcol(4) = "G:G" 
compt = 65
 
With xlsApplication 'Appel de ton application Excel
    For i = 0 To UBound(tabcol)
        .ActiveSheet.Range(tabcol(i)).Select
        .Selection.Copy
        .ActiveSheet.Range(Chr(compt) & ":" & Chr(compt)).Select
        .ActiveSheet.Paste
        .ActiveSheet.Range(tabcol(i)).Select
        .Selection.Delete Shift:=xlToLeft
        compt = compt + 1
    Next
End With

+

Théo

08/01/2007, 15h55
SfJ5Rpw8
ton tabcol(5) n'est pas initialisé il est "vide.." ... modifie ta boucle :
Code:

1 2 For i = 0 To UBound(tabcol) -1
08/01/2007, 15h58
Theocourant
Citation:
Envoyé par bbil

ton tabcol(5) n'est pas initialisé il est "vide.." ... modifie ta boucle :

Code:

1 2 For i = 0 To UBound(tabcol) -1
Je l'avais pas vu celle-là
08/01/2007, 16h04
totoche

Merci là ça marche,
mais
le message d'erreur n'aurait pas du être indice en dehors de la plage??
08/01/2007, 16h16
Theocourant

Citation:

Envoyé par totoche

Merci là ça marche,
mais
le message d'erreur n'aurait pas du être indice en dehors de la plage??

Un petit clic sur :resolu: alors ???

+
Théo
08/01/2007, 16h30
SfJ5Rpw8

Citation:

Envoyé par totoche

Merci là ça marche,
mais
le message d'erreur n'aurait pas du être indice en dehors de la plage??

Pourquoi ..? l'indice est bien dans la plage... ! tu as écrit :

Code:

Dim tabcol(5) As Variant
08/01/2007, 16h42
totoche

:oops:
Mon i est = 0 d'habitude je le mets a 1...
Merci encore