j'ai posé une question hier sur le forum, qu'il est inutile ici de
détailler, et j'ai eu plusieurs réponses, dont celle d'inscrire dans le
module d'une feuille le pgmme suivant:
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Not Intersect(Target, [a1,b1]) Is Nothing Then [a1,b1] = Target
> End Sub
Cela permet de lier deux cellules: lorsque j'écris qqch dans le cellule a1,
cela le recopit directement dans la cellule b1, et réciproquement.Et ca
marche très bien quand les deux cellules concernées appartieennnt à la même
feuille
J'aimerai savoir comment référencer mes cellules quand elles appartiennent à
deux feuilles diffréenres, voire deux classeurs différents!
Parce que dans mon prograzmme, au lieu de mettre [a1,b1], j'ai mis
[feuil1!a1,feuil2!b1], mais là ca ne marche ^plus du tout...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Vincnet.
Bonjour Cyril, Essaie avec le code suivant (à placer dans le module thisworkbook de ton classeur) :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.EnableEvents = False If (Sh Is ThisWorkbook.Worksheets("Feuil1") And Target.Address = Range("A1").Address) _ Or (Sh Is ThisWorkbook.Worksheets("Feuil2") And Target.Address = Range("A1").Address) Then ThisWorkbook.Worksheets("Feuil1").[A1] = Target ThisWorkbook.Worksheets("Feuil2").[A1] = Target End If Application.EnableEvents = True End Sub -- A+
V.
Bonjour à tous
j'ai posé une question hier sur le forum, qu'il est inutile ici de détailler, et j'ai eu plusieurs réponses, dont celle d'inscrire dans le module d'une feuille le pgmme suivant:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [a1,b1]) Is Nothing Then [a1,b1] = Target End Sub
Cela permet de lier deux cellules: lorsque j'écris qqch dans le cellule a1, cela le recopit directement dans la cellule b1, et réciproquement.Et ca marche très bien quand les deux cellules concernées appartieennnt à la même feuille
J'aimerai savoir comment référencer mes cellules quand elles appartiennent à deux feuilles diffréenres, voire deux classeurs différents!
Parce que dans mon prograzmme, au lieu de mettre [a1,b1], j'ai mis [feuil1!a1,feuil2!b1], mais là ca ne marche ^plus du tout...
Je pense que ce n'estg qu'un petit pb d'évriture!
Merci bp à tous par avance.
Bonjour Cyril,
Essaie avec le code suivant (à placer dans le module thisworkbook de ton
classeur) :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
If (Sh Is ThisWorkbook.Worksheets("Feuil1") And Target.Address =
Range("A1").Address) _
Or (Sh Is ThisWorkbook.Worksheets("Feuil2") And Target.Address =
Range("A1").Address) Then
ThisWorkbook.Worksheets("Feuil1").[A1] = Target
ThisWorkbook.Worksheets("Feuil2").[A1] = Target
End If
Application.EnableEvents = True
End Sub
--
A+
V.
Bonjour à tous
j'ai posé une question hier sur le forum, qu'il est inutile ici de
détailler, et j'ai eu plusieurs réponses, dont celle d'inscrire dans le
module d'une feuille le pgmme suivant:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1,b1]) Is Nothing Then [a1,b1] = Target
End Sub
Cela permet de lier deux cellules: lorsque j'écris qqch dans le cellule a1,
cela le recopit directement dans la cellule b1, et réciproquement.Et ca
marche très bien quand les deux cellules concernées appartieennnt à la même
feuille
J'aimerai savoir comment référencer mes cellules quand elles appartiennent à
deux feuilles diffréenres, voire deux classeurs différents!
Parce que dans mon prograzmme, au lieu de mettre [a1,b1], j'ai mis
[feuil1!a1,feuil2!b1], mais là ca ne marche ^plus du tout...
Bonjour Cyril, Essaie avec le code suivant (à placer dans le module thisworkbook de ton classeur) :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.EnableEvents = False If (Sh Is ThisWorkbook.Worksheets("Feuil1") And Target.Address = Range("A1").Address) _ Or (Sh Is ThisWorkbook.Worksheets("Feuil2") And Target.Address = Range("A1").Address) Then ThisWorkbook.Worksheets("Feuil1").[A1] = Target ThisWorkbook.Worksheets("Feuil2").[A1] = Target End If Application.EnableEvents = True End Sub -- A+
V.
Bonjour à tous
j'ai posé une question hier sur le forum, qu'il est inutile ici de détailler, et j'ai eu plusieurs réponses, dont celle d'inscrire dans le module d'une feuille le pgmme suivant:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [a1,b1]) Is Nothing Then [a1,b1] = Target End Sub
Cela permet de lier deux cellules: lorsque j'écris qqch dans le cellule a1, cela le recopit directement dans la cellule b1, et réciproquement.Et ca marche très bien quand les deux cellules concernées appartieennnt à la même feuille
J'aimerai savoir comment référencer mes cellules quand elles appartiennent à deux feuilles diffréenres, voire deux classeurs différents!
Parce que dans mon prograzmme, au lieu de mettre [a1,b1], j'ai mis [feuil1!a1,feuil2!b1], mais là ca ne marche ^plus du tout...
Je pense que ce n'estg qu'un petit pb d'évriture!
Merci bp à tous par avance.
anonymousA
bonjour,
ben déjà , je ne vois pas comment Intersect avec target pourrait donner quelque chose avec une feuille différente et à fortiori avec un fichier différent, sachat qu'on est dans une procédure evenementielle de feuille et que target appartient forcément à cette feuille.
. Si tu voulais donner à la cellule A1 d'un autre fichier la valuer de target alors, ca c'est facile, il suffit d'écrire workbooks("toto.xls").sheets("tata").range("A1")=target. Si c'est autre chose,précises ta question sur l'objectif souhaité
A+
Bonjour à tous
j'ai posé une question hier sur le forum, qu'il est inutile ici de détailler, et j'ai eu plusieurs réponses, dont celle d'inscrire dans le module d'une feuille le pgmme suivant:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [a1,b1]) Is Nothing Then [a1,b1] = Target End Sub
Cela permet de lier deux cellules: lorsque j'écris qqch dans le cellule a1, cela le recopit directement dans la cellule b1, et réciproquement.Et ca marche très bien quand les deux cellules concernées appartieennnt à la même feuille
J'aimerai savoir comment référencer mes cellules quand elles appartiennent à deux feuilles diffréenres, voire deux classeurs différents!
Parce que dans mon prograzmme, au lieu de mettre [a1,b1], j'ai mis [feuil1!a1,feuil2!b1], mais là ca ne marche ^plus du tout...
Je pense que ce n'estg qu'un petit pb d'évriture!
Merci bp à tous par avance.
bonjour,
ben déjà , je ne vois pas comment Intersect avec target pourrait donner
quelque chose avec une feuille différente et à fortiori avec un fichier
différent, sachat qu'on est dans une procédure evenementielle de feuille et
que target appartient forcément à cette feuille.
.
Si tu voulais donner à la cellule A1 d'un autre fichier la valuer de target
alors, ca c'est facile, il suffit d'écrire
workbooks("toto.xls").sheets("tata").range("A1")=target.
Si c'est autre chose,précises ta question sur l'objectif souhaité
A+
Bonjour à tous
j'ai posé une question hier sur le forum, qu'il est inutile ici de
détailler, et j'ai eu plusieurs réponses, dont celle d'inscrire dans le
module d'une feuille le pgmme suivant:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1,b1]) Is Nothing Then [a1,b1] = Target
End Sub
Cela permet de lier deux cellules: lorsque j'écris qqch dans le cellule a1,
cela le recopit directement dans la cellule b1, et réciproquement.Et ca
marche très bien quand les deux cellules concernées appartieennnt à la même
feuille
J'aimerai savoir comment référencer mes cellules quand elles appartiennent à
deux feuilles diffréenres, voire deux classeurs différents!
Parce que dans mon prograzmme, au lieu de mettre [a1,b1], j'ai mis
[feuil1!a1,feuil2!b1], mais là ca ne marche ^plus du tout...
ben déjà , je ne vois pas comment Intersect avec target pourrait donner quelque chose avec une feuille différente et à fortiori avec un fichier différent, sachat qu'on est dans une procédure evenementielle de feuille et que target appartient forcément à cette feuille.
. Si tu voulais donner à la cellule A1 d'un autre fichier la valuer de target alors, ca c'est facile, il suffit d'écrire workbooks("toto.xls").sheets("tata").range("A1")=target. Si c'est autre chose,précises ta question sur l'objectif souhaité
A+
Bonjour à tous
j'ai posé une question hier sur le forum, qu'il est inutile ici de détailler, et j'ai eu plusieurs réponses, dont celle d'inscrire dans le module d'une feuille le pgmme suivant:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [a1,b1]) Is Nothing Then [a1,b1] = Target End Sub
Cela permet de lier deux cellules: lorsque j'écris qqch dans le cellule a1, cela le recopit directement dans la cellule b1, et réciproquement.Et ca marche très bien quand les deux cellules concernées appartieennnt à la même feuille
J'aimerai savoir comment référencer mes cellules quand elles appartiennent à deux feuilles diffréenres, voire deux classeurs différents!
Parce que dans mon prograzmme, au lieu de mettre [a1,b1], j'ai mis [feuil1!a1,feuil2!b1], mais là ca ne marche ^plus du tout...
