Discussion :

[totoche]

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]

à quel endroit l'erreur ?

[totoche]

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

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

[Theocourant]

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

+

Théo

[SfJ5Rpw8]

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

Code :

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

1
2
For i = 0 To UBound(tabcol) -1

[Theocourant]

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

Code :

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

1
2
For i = 0 To UBound(tabcol) -1

Je l'avais pas vu celle-là

[totoche]

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