excel et tableau de colonne

**totoche** · 08/01/2007, 15h16

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 :

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
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

**Vld44** · 08/01/2007, 15h19

à quel endroit l'erreur ?

**totoche** · 08/01/2007, 15h24

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

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

**Theocourant** · 08/01/2007, 15h54

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 VB :

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
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