Erreur de compatibilité de valeur

[QD]

Salut, j'ai un blem.
J'ai ce 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

 

[michel_m]

Bonsoir,

Au lieu de :
range('A'+ der)

tu peux écrire;
cells(der,1)
ou
range('A'&der)

Bonne soirée

Michel

 

[MichelXld]

bonjour

tu peux faire un essai en remplaçant + par &

Sheet3.Range('A' & der).Value = cellule.Value


bonne soiree
MichelXld

 

[MichelXld]

bonsoir Michel

...;o)

 

[michel_m]

Salut Michel !


Bonne soirée et bon WE
Michel

 

[QD]

Yes ça marche merci