Microsoft 365 Va et vient entre 2 cellules

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Janvier 2021

• #2

Bonjour JBL,
HiHiHi
Vous avez simplement oublié de renommer les feuilles. Dans le VBA, Il y avait encore Feuil1 Feuil2 au lieu de Accueil et Catégories.
En PJ c'est rectifié.

 

Pièces jointes

• Classeur Va et vient.xlsm

  110.7 KB · Affichages: 7

Vote positif 0 Vote négatif

Solution

J

JBL07

XLDnaute Occasionnel

• 31 Janvier 2021

• #3

Pfffff oh la la...
Un grand merci sylvanu

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 31 Janvier 2021

• #4

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: 4

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 31 Janvier 2021

• #5

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: 3

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 31 Janvier 2021

• #6

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 "

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

J

JBL07

XLDnaute Occasionnel

• 31 Janvier 2021

• #7

On en apprends tous les jours !
Merci pour les différentes solutions, celle de patricktoulon étant trop complexe pour moi
La première fonctionnant très bien, je ne touche plus à rien dans mon classeur

Merci à vous

 

Vote positif 0 Vote négatif