Microsoft 365 Va et vient entre 2 cellules

JBL07

XLDnaute Occasionnel
Bonjour le Forum,

Après recherches, j'ai reporté un code trouvé sur ce forum en tentant de l'appliquer à un classeur ( ci-dessous, totalement simplifié )

Je souhaite entre 2 feuilles établir un va et vient sur 2 cellules, qui ferait que si je change la date dans la cellule A, elle s'applique à la B, et inversement

Hélas, ça ne semble pas fonctionner : il y a une demande de débogage sur la cellule qui reçoit la copie de la nouvelle date, quel que soit le sens de la tentative

Si quelqu'un peut m'aider à comprendre ??
Merci !
 

Pièces jointes

  • Classeur Va et vient.xlsm
    120.2 KB · Affichages: 7

fanfan38

XLDnaute Barbatruc
Bonjour
Petite Erreur ou tu utilise le nom de la feuille sheets("Catégories")
ou tu utilise la référence de la feuille sheets(Feuil12) dans ce cas tu ne mets pas de "
A+ François
 

Pièces jointes

  • Classeur Va et vient.xlsm
    111.1 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re JBL, bonjour Fanfan,
Ou encore plus simple ( à mes yeux ), nommer les deux cellules concernées. Dans ce cas plus besoin de faire référence aux feuilles et de savoir où elles se trouvent. Qui plus est, ces cellules peuvent être bougées sans conséquence ( ajout de colonnes, de lignes ) :
VB:
[DateCat] = target.Value
et
[DateAccueil] = target.Value
 

Pièces jointes

  • Classeur Va et vient (V2).xlsm
    110.7 KB · Affichages: 1

patricktoulon

XLDnaute Barbatruc
bonjour
Petite Erreur ou tu utilise le nom de la feuille sheets("Catégories")
ou tu utilise la référence de la feuille sheets(Feuil12) dans ce cas tu ne mets pas de "
avec le codename tu met même pas sheets(..) d'ailleurs

mais bon je vois que l'on parle de L16 alors que c'est I18 sur "Acceuil"
perso je regroupe les 2 events feuille_change dans le thisworkbook
VB:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Select Case Sh.Name
    Case "acceuil": If Target.Address(0, 0) = "I18" Then Application.EnableEvents = False: Feuil12.[B5] = Target
    Case "Catégories": If Target.Address(0, 0) = "B5" Then Application.EnableEvents = False: Feuil5.[I18] = Target
    End Select
    Application.EnableEvents = True
End Sub
et je vire le code event change des deux feuilles
;)
 

Discussions similaires

Haut Bas