Colonnes liées d'une feuille à une aure
Résolu
Viking58
Messages postés
186
Date d'inscription
Statut
Membre
Dernière intervention
-
Viking58 Messages postés 186 Date d'inscription Statut Membre Dernière intervention -
Viking58 Messages postés 186 Date d'inscription Statut Membre Dernière intervention -
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.
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
- Formule moyenne excel plusieurs colonnes - Guide
- Comment faire des colonnes sur word - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Bruler une feuille de laurier - Guide
3 réponses
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
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
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
Mais il ne se passe rien...
A quoi correspond: myrg11, lra11, etc... ?