Bonjour,
Je suis en train d'essayer d'automatiser un traitement. J'ai plus de 600 colonnes, je souhaite les réunir en une seule, en les mettant les unes sous les autres.
Sous VBA, si je l'inscris de la manière suivante :
*********************************
Sub boucle()
Dim n As Integer
For n = 2 To 6 'mettre le nombre de mots max à la place de 622
Call copier_termes
Next n
End Sub
Sub copier_termes()
'
' copier_termes Macro
'
'
Sheets("transpose_txt_EnsQ").Select
Cells(6, n).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TF-IDF observation").Select
Cells(6, 1).Select
Selection.Insert Shift:=xlDown
End Sub
*****************************
J'ai une erreur d’exécution 1004, sur " Cells(6, n).Select"
Si je remplace n par le numéro de la colonne, le code fonctionne, mais je ne souhaite pas l'ecrire plus de 600 fois.
Est ce que quelqu'un peut m'aider à comprendre l'origine de mon erreur ?
Par avance, merci.
Sébastien
Je suis en train d'essayer d'automatiser un traitement. J'ai plus de 600 colonnes, je souhaite les réunir en une seule, en les mettant les unes sous les autres.
Sous VBA, si je l'inscris de la manière suivante :
*********************************
Sub boucle()
Dim n As Integer
For n = 2 To 6 'mettre le nombre de mots max à la place de 622
Call copier_termes
Next n
End Sub
Sub copier_termes()
'
' copier_termes Macro
'
'
Sheets("transpose_txt_EnsQ").Select
Cells(6, n).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("TF-IDF observation").Select
Cells(6, 1).Select
Selection.Insert Shift:=xlDown
End Sub
*****************************
J'ai une erreur d’exécution 1004, sur " Cells(6, n).Select"
Si je remplace n par le numéro de la colonne, le code fonctionne, mais je ne souhaite pas l'ecrire plus de 600 fois.
Est ce que quelqu'un peut m'aider à comprendre l'origine de mon erreur ?
Par avance, merci.
Sébastien