Colonnes liées d'une feuille à une aure

Résolu/Fermé
Viking58 Messages postés 186 Date d'inscription vendredi 5 décembre 2014 Statut Membre Dernière intervention 5 janvier 2018 - 30 août 2015 à 19:17
Viking58 Messages postés 186 Date d'inscription vendredi 5 décembre 2014 Statut Membre Dernière intervention 5 janvier 2018 - 1 sept. 2015 à 18:55
Bonsoir.
Ma question du jour:

Comment, de ma Feuil1, copier mes colonnes A et E sur ma Feuil2, avec, bien sur, un lien entre elles. A savoir: Si j'insère une ligne, des données sur ma Feuil1, que cela se reproduise sur ma Feuil2. (Et l'inverse, que si je modifie sur ma Feuil2, ceci se passe également sur ma Feuil1).

J'ai beaucoup cherché, testé, mais rien trouvé qui fonctionne.
La fonction Copier avec liens ne mets pas à jour ma Feuil2.
Relier les onglets des Feuil1 et Feuil2 avec "Maj" bloque la macro de mon bouton d'insertion de lignes de ma Feuil1.
Etc...

Merci et bonne semaine à toutes et tous.


3 réponses

Salim_Ali Messages postés 2 Date d'inscription dimanche 30 août 2015 Statut Membre Dernière intervention 31 août 2015
30 août 2015 à 21:04
enter le premier cod en sheet1 et le second ensheet2

Sub transfer_1_2()
lra11 = Sheet1.Cells(Rows.Count, 1).End(3).Row
lra15 = Sheet1.Cells(Rows.Count, 5).End(3).Row
Set myrg11 = Sheet1.Range("a1:a" & lra11)
Set myrg15 = Sheet1.Range("e1:e" & lra15)

lra21 = Sheet2.Cells(Rows.Count, 1).End(3).Row
lra25 = Sheet2.Cells(Rows.Count, 5).End(3).Row

Set myrg21 = Sheet2.Range("a1:a" & lra21)
Set myrg25 = Sheet2.Range("e1:e" & lra25)
myrg21.ClearContents
myrg25.ClearContents

myrg11.Copy Sheet2.Range("a1")
myrg15.Copy Sheet2.Range("e1")
End Sub
Sub transfer_2_1()
lra11 = Sheet1.Cells(Rows.Count, 1).End(3).Row
lra15 = Sheet1.Cells(Rows.Count, 5).End(3).Row
Set myrg11 = Sheet1.Range("a1:a" & lra11)
Set myrg15 = Sheet1.Range("e1:e" & lra15)

lra21 = Sheet2.Cells(Rows.Count, 1).End(3).Row
lra25 = Sheet2.Cells(Rows.Count, 5).End(3).Row

Set myrg21 = Sheet2.Range("a1:a" & lra21)
Set myrg25 = Sheet2.Range("e1:e" & lra25)
myrg11.ClearContents
myrg15.ClearContents

myrg21.Copy Sheet1.Range("a1")
myrg25.Copy Sheet1.Range("e1")
End Sub

0
Viking58 Messages postés 186 Date d'inscription vendredi 5 décembre 2014 Statut Membre Dernière intervention 5 janvier 2018 7
31 août 2015 à 14:00
Merci.
Mais il ne se passe rien...
A quoi correspond: myrg11, lra11, etc... ?
0
Viking58 Messages postés 186 Date d'inscription vendredi 5 décembre 2014 Statut Membre Dernière intervention 5 janvier 2018 7
31 août 2015 à 17:16
Je vais poser ma question autrement:

1 classeur
2 feuilles (Feuil1 et Feuil2)

Feuil1:
Colonne A: La date
Colonne D: La quantité

Je voudrais que les colonnes A et D se "clonent" sur la Feuil2.
Par formule ou par VBA.

Que quand je fasse n'importe quelle modif sur ces colonnes, elles se mettent à jour automatiquement sur la Feuil2.



Exemples:

Au dessus de la date 05/01/2015, j'insère une ligne.
Elle s'insère aussi en Feuil2.
Je mets la date du 04/01/2015:
La date se met aussi sur la Feuil2.

Cela peut paraitre simple, mais je ne trouve rien depuis des jours (du moins qui rien qui fonctionne).

Merci



0
Viking58 Messages postés 186 Date d'inscription vendredi 5 décembre 2014 Statut Membre Dernière intervention 5 janvier 2018 7
1 sept. 2015 à 18:55
J'ai sélectionné le A de ma colonne de la Feuil2.
Mis dans la formule "="
Je suis venu sur le A de ma colonne de la Feuil1.
J'ai obtenu: "=A:A"

Cela a l'air de fonctionner.
0