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

David590 · 22 Décembre 2015

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 · 22 Décembre 2015

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

Bonjour

Sous réserve d'avoir compris ta demande :

Code:

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 · 22 Décembre 2015

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

Bonjour Chris,

C'est exactement ce que je voulais

Merci beaucoup

David

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

David590

XLDnaute Occasionnel

Pièces jointes

Chris401

XLDnaute Accro

David590

XLDnaute Occasionnel

Discussions similaires