XL pour MAC Copie automatique d'informations rédigées

mapomme

XLDnaute Barbatruc

Supporter XLD

• 6 Mai 2022

• #2

Bonjour @fayer007 ,

Acceptez-vous des macros en VBA ?

 

Vote positif 0 Vote négatif

F

fayer007

XLDnaute Junior

• 6 Mai 2022

• #3

Dans l'idéal je. préférais m'en passer mais s'il n'y a vraiment pas de solution alternative, pourquoi pas!

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 6 Mai 2022

• #4

Re,

Je ne vois pas trop comment se passer du VBA

• quand on change de personne dans la liste de validation, on affiche les valeurs de Feuil2 relatives à cette personne
• quand on modifie au moins une remarque dans Feuil1, on modifie les valeurs dans Feuil2 relatives à la personne de la liste de validation

Voir le fichier joint. Le code est dans le module de la feuille de codename Feuil1.

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligne&
   If Target.Address = Range("b3").Address Then
      ligne = Application.IfError(Application.Match(Range("b3"), Feuil2.Columns(1), 0), 0)
      If ligne = 0 Then
         Range("b8:b11").ClearContents
      Else
         Range("b8:b11") = Application.Transpose(Feuil2.Range("b1:e1").Offset(ligne - 1))
      End If
   ElseIf Not Intersect(Range("b8:b11"), Target) Is Nothing Then
      ligne = Application.IfError(Application.Match(Range("b3"), Feuil2.Columns(1), 0), 0)
      If Not ligne = 0 Then
         Feuil2.Range("b1:e1").Offset(ligne - 1) = Application.Transpose(Range("b8:b11").Value)
      End If
   End If
End Sub

 

Pièces jointes

• fayer007- P'tite BdD- v1.xlsm

  17.1 KB · Affichages: 6

Vote positif 0 Vote négatif

F

fayer007

XLDnaute Junior

• 6 Mai 2022

• #5

Merci pour ton retour. Cependant quand je modifie les remarques sur la feuille 1, j'ai une erreur 1004 qui s'affiche ensuite

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 6 Mai 2022

• #6

Re,

Il me faudrait le fichier où se produit l'erreur car chez moi, je n'ai pas d'erreur...

 

Vote positif 0 Vote négatif

F

fayer007

XLDnaute Junior

• 7 Mai 2022

• #7

Merci de ton retour. Je crois que je vais laisser tomber la macro. La transmission de mon fichier à d'autres personnes me fait craindre qu'elle ne pourront pas utiliser correctement le fichier que je souhaite créer

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 7 Mai 2022

• #8

Sur un nombre "limité" de personnes , une liaison est envisageable par simple formule, reste à connaitre l'utilisation finale du fichier. Une vue plus globale du fichier serait nécessaire.

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 7 Mai 2022

• #9

Bonjour à tous,

Je te propose cette formule

VB:

=DECALER(DECALER(Feuil2!$A$1;EQUIV(Feuil1!$B$3;Tableau1[Noms];0);1;;4);;$A8-1)

JHA

 

Pièces jointes

• Classeur2 (2).xlsx

  11.8 KB · Affichages: 3

Vote positif 0 Vote négatif

F

fayer007

XLDnaute Junior

• 7 Mai 2022

• #10

Merci pour vos retours

J'ai essayé de vous apporter des précisions concernant ce que je souhaite faire dans le fichier ci-dessous
Chaque personne doit réaliser des tests (1, 2, 3, 4) dont les résultats seront affichés en récapitulant sur la feuille 1
L'interprétation de ces tests est à indiquer dans les remarques pour chaque personne directement sur la feuille 1. Ces remarques doivent être reportées dans la feuille 2 automatiquement et être "sauvegardées" par la même occasion

JHA, concernant ta proposition, cela ne règle qu'en parti le problème. Quand je souhaite indiquer mes remarques dans la feuille 1, la formule s'enlève

 

Pièces jointes

• Classeur2.xlsx

  10.5 KB · Affichages: 1

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 7 Mai 2022

• #11

Bonjour à tous,

Désolé, je pensais que tu mettais les remarques en "Feuil2" et que tu voulais les retourner en "feuil 1".

Pour l'inverse, je pense qu'il te faut passer par du VBA.

JHA

 

Vote positif 0 Vote négatif