Synchronisation colonnes entre deux feuilles

  • Initiateur de la discussion Initiateur de la discussion tipiak
  • 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 !

tipiak

XLDnaute Nouveau
Bonjour à tous et avant tout merci à ceux qui pourront m'aider

Voila mon probleme,je voudrais synchroniser deux colonnes ,de deux feuilles differentes.

Si j'ecris des valeurs dans la colonne A de la feuille 1,elles s'ecrivent dans la colonne A de la feuille 2 ET ,je dis bien ET,si j'ecris des valeurs dans la colonne A de la feuille 2,elles s'ecrivent dans la colonne A de la feuille 1.
Si je modifie 1, l'autre se mette à jour automatiquement et inversement.

J'ai testé ca,qui marche bien MAIS que pour une cellule,et moi je voudrais que cette fonction soit active pour toutes les cellules de la colonne

Sur feuille 1

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$1" Then
  Sheets("Feuil2" ).Range("A1" ) = Target
 End If
 End Sub

Sur feuille 2

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$1" Then
  Sheets("Feuil1" ).Range("A1" ) = Target
 End If
 End Sub

Ca marcherait si je fais ca,mais je suis sur qu'il ya une autre solution plus simple,surtout qu'avec ma solution ,je vais avoir un paquet de lignes à ecrire

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$1" Then
 Sheets("Feuil2").Range("A1") = Target
 End If
 If Target.Address = "$A$2" Then
 Sheets("Feuil2").Range("A2") = Target
 End If
  If Target.Address = "$A$3" Then
 Sheets("Feuil2").Range("A3") = Target
 End If
 If Target.Address = "$A$4" Then
 Sheets("Feuil2").Range("A4") = Target
 End If
 If Target.Address = "$A$5" Then
 Sheets("Feuil2").Range("A5") = Target
 End If
 etc...
End Sub

Par avance merci de vos solutions. 😉

Fichier avec l'exemple cité au dessus en piece jointe
 

Pièces jointes

Re : Synchronisation colonnes entre deux feuilles

bonjour,

Peut-être code Feuille 1
Private Sub Worksheet_Change(ByVal Target As Range)
' Stop
If Not (Intersect(Target, Range("A:A")) Is Nothing) Then
a = Target.Address
With Sheets("Feuil2")
.Range(a) = Target.Value
End With
End If

End Sub


Code Feuille2
Private Sub Worksheet_Change(ByVal Target As Range)
' Stop
If Not (Intersect(Target, Range("A:A")) Is Nothing) Then
a = Target.Address
With Sheets("Feuil1")
.Range(a) = Target.Value
End With
End If

End Sub

a+
 
Re : Synchronisation colonnes entre deux feuilles

Bon je me suis emballé.Ca marche,c'est super mais j'ai simplifié mon exemple pour expliquer facilement.
J'essaie depuis tout à l'heure d'adapter mais j'y arrive pas.
En fait si j'ecris des valeurs dans la colonne A de la feuille 1,je veux qu'elles elles s'ecrivent dans la colonne G de la feuille 2 et ,si j'ecris des valeurs dans la colonne G de la feuille 2,elles s'ecrivent dans la colonne A de la feuille 1.
Si je modifie 1, l'autre se mette à jour automatiquement et inversement.
J'arrive pas à adapter ce que tu as proposé à mon cas.Desolé...
 
Re : Synchronisation colonnes entre deux feuilles

Feuil1

Private Sub Worksheet_Change(ByVal Target As Range)
' Stop
If Not (Intersect(Target, Range("A:A")) Is Nothing) Then
a = Target.Row
With Sheets("Feuil2")
.Range("G" & a) = Target.Value
End With
End If

End Sub

Feuil2


Private Sub Worksheet_Change(ByVal Target As Range)
' Stop
If Not (Intersect(Target, Range("G:G")) Is Nothing) Then
a = Target.Row
With Sheets("Feuil1")
.Range("A" & a) = Target.Value
End With
End If


End Sub

a+
 
- 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
14
Affichages
249
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
484
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
319
Retour