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
 

pierrejean

XLDnaute Barbatruc
Bonjour Pierre02

Avec un petit fichier exemple (sans données confidentielles) on sera plus a l'aise pour t'aider
 

PIERRE02

XLDnaute Nouveau
Bonjour
le code fonctionne a merveille
maintenant j'aimerai l'adapter pour supprimer selon les mêmes critères
les lignes du
tableau.Pour par exemple en cas d'erreur de saisie d'un groupe pouvoir le supprimer et lui seul
merci de ton aide
 

Discussions similaires


Haut Bas