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
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