Copier des cellules en fonction d'un numéro de ligne

[David590]

Bonjour à tous,

Je cherche à trouver comment ajouter les cellules d'une colonne vers une autre en fonction d'un numéro de ligne contenu dans une autre colonne

Je ne sais pas vraiment comment expliquer comme ca, j'ai donc fait un fichier exemple afin parfaitement clair

Merci d'avance

 

[Chris401]

Re : Copier des cellules en fonction d'un numéro de ligne

Bonjour

Sous réserve d'avoir compris ta demande :

Sub Ajoute()
For i = 11 To 100
On Error Resume Next
    With Sheets("Feuil1")
        If IsNumeric(.Range("H" & i)) Then
        Laligne = .Range("H" & i)
        Sheets("Feuil8").Range("AR" & Laligne) = Sheets("Feuil8").Range("AR" & Laligne) + .Range("D" & i)
        End If
    End With
Next i

End Sub

Cordialement
Chris

 

[David590]

Re : Copier des cellules en fonction d'un numéro de ligne

Bonjour Chris,

C'est exactement ce que je voulais

Merci beaucoup

David