Q
QD
Guest
Salut, j'ai un blem.
J'ai ce code
Et il me dis que j'ai une erreur de type incompatibilité sur la ligne Sheet3.Range('A' + der).Value = cellule.Value
Je penses que c'est du fait que je peux pas concatener 'A' et der.
Seulement je vois pas du tout comment faire autrement.
Quelqu'un peut me dire comment je dois m'y prendre?
Merci d'avance
J'ai ce code
Code:
Dim der As Integer
Dim cellule As Range
For Each cellule In Range('B2:B201')
If cellule.Value = 0 Then
Else
der = Sheet3.Range('A:A').End(xlDown).Row + 1
Sheet3.Range('A' + der).Value = cellule.Value
End If
Next cellule
Et il me dis que j'ai une erreur de type incompatibilité sur la ligne Sheet3.Range('A' + der).Value = cellule.Value
Je penses que c'est du fait que je peux pas concatener 'A' et der.
Seulement je vois pas du tout comment faire autrement.
Quelqu'un peut me dire comment je dois m'y prendre?
Merci d'avance