copie onglet A dans onglet B avec liaison des cellules

  • Initiateur de la discussion Initiateur de la discussion PIERRE02
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
685
Réponses
5
Affichages
825
Réponses
10
Affichages
627
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Retour