copie onglet A dans onglet B avec liaison des cellules

PIERRE02

XLDnaute Nouveau
Bonjour
Nouveau dans le forum et pas très expert en VBA j'ai un petit problème à vous soumettre
j'ai un code qui me permet de copier des lignes de composants situes sur un onglet qui comporte un tableau A
La macro sélectionne les lignes dont le montant est différent de 0 et les recopie a la dernière ligne d'un tableau B situé dans un onglet "prévisions"
Cette macro fonctionne parfaitement mais je souhaiterai que les lignes ainsi copiées soient en liaison avec le tableau d'origine
ci-dessous le code complet
merci de votre aide car je patauge depuis des jours

Public Sub CopieDansPrevisions()

Dim MC As Range

Set MC = ThisWorkbook.ActiveSheet.Range("B15")

Dim i, j As Integer

Dim compteuri, compteurj As Integer

Dim Tableau()

compteurj = 15

While MC.Value <> ""

Set MC = MC.Offset(1, 0)

compteuri = compteuri + 1

Wend

compteuri = compteuri - 1

ReDim Tableau(1 To compteuri, 1 To compteurj)

Set MC = ThisWorkbook.ActiveSheet.Range("A16")

For i = 1 To compteuri

For j = 1 To compteurj

Tableau(i, j) = MC.Value

Set MC = MC.Offset(0, 1)

Next j

Set MC = MC.Offset(1, -compteurj)

Next i

Set MC = ThisWorkbook.Worksheets("previsions").Range("A6")

While MC.Value <> ""

Set MC = MC.Offset(1, 0)

Wend

For i = 1 To compteuri

If Tableau(i, 10) <> 0 Then

For j = 1 To 8

MC.Value = Tableau(i, j)

Set MC = MC.Offset(0, 1)

Next j

Set MC = MC.Offset(1, -8)

End If

Next i
 

Discussions similaires

Statistiques des forums

Discussions
311 721
Messages
2 081 929
Membres
101 843
dernier inscrit
Thaly