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.

A voir également:

Colonnes liées d'une feuille à une aure
Déplacer une colonne excel - Guide
Supprimer une feuille word - Guide
Feuille de pointage excel - Télécharger - Tableur
Word colonnes indépendantes - Guide
Feuille a5 - Guide

3 réponses

Réponse 1 / 3

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

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

Réponse 2 / 3

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

Réponse 3 / 3

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.

Discussions similaires

Reporter valeur sur autre feuille avec critere

je veut créer des codes

Feuille de score belote

liste de noms par ordre alphabétique

Excel-ouvrir classeur sur une feuille précise

Discussions similaires

Newsletters