Discussion :

[nianko]

Bonjour,

Je n'ai pas fait de VBA depuis un bout de temps et je ne trouve pas ma reponse sur internet. J'obtiens l'erreur "type mismatch" avec le code ci-dessous. Je pnese qu'il s'agit d'un probleme avec le copy paste entre cells et range, mais je ne sais pas comment le corriger. Une idee?

Merci

Code :

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

1
2
3
4
5
6
7
8
9
 Sub Transpo()
Dim i, j As Integer
   i = Range("B4").CurrentRegion.Cells.Count
 
For j = 1 To i
        Sheets("X").Range("Tickers").Cells(j).Copy         
        Sheets(BR_list).Range("B" & (-2 + 4 * j)).PasteSpecial Paste:=xlPasteValues
    Next
End Sub

[AlainTech]

Bonjour,

Ce ne serait pas plutôt

Code :

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

Sheets("BR_list").Range("B" & (-2 + 4 * j)).PasteSpecial Paste:=xlPasteValues