Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 
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
 
- 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
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…