VBA+Erreur 400

steffy74 Messages postés 25 Date d'inscription   Statut Membre Dernière intervention   -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je débute en VBA et j'ai une erreur que je ne comprends pas; Je dois selection une colonne dans une feuille et la recopier dans une seconde feuille (tjs dans le même fichier) en la transposant pour qu'elle se transforme en ligne.
A priori ça ne devrait pas être trop compliqué mais j'ai une erreur 400 quand je sélectionne la cellule de la seconde feuille. J'ai essayé de l'appeler par plusieurs méthode mais aucune ne fonctionne...

Voici mon code :

    Dim wksSource As Worksheet
    Dim wksDest As Worksheet
    Set wksSource = ThisWorkbook.Sheets("question")
    Set wksDest = ThisWorkbook.Sheets("resultat")

     wksDest.Range("A" & nb_lg).Value = numUti  --> OK
      wksDest.Range("B" & nb_lg).Value = dateUti  --> OK

            wksSource.Range("D" & num_lg_to_copy & ":D" & num_lig_bloc).Select -->OK
            Application.CutCopyMode = False
           Selection.Copy
         wksDest.Range("C" & nb_lg).Select -->KO erreur 400
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True


Quelqu'un aurait-il une idée ??
Merci pour votre aide

1 réponse

Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Bonjour,

Peut être en mettant :

wksDest.Activate juste avant ta ligne d'erreur.

;o)
0