Microsoft 365 Enregistrer des donner d'une colone automatiquement

[saggigo]

Bonjour à tous,
J’espère que vous allez bien avec le confinement et que tous vos proches vont bien.

Voila je viens avec un fichier excel "saggigo" et j'aimerais bien avoir ce qui suit:
Je suis dans la feuille "Valeurs" je choisi dans la cellule: A2 = Test1 et que je met dans Jour1 (la cellule B2) une valeur X, qu'elle soit reportée sur la feuille "ressources" suivant le tableau mentionné.
Et si je choisi dans A2= Test2 et dans B2 une valeur Y, qu'elle soit mentionnée dans le tableau ressources

Ainsi j'aurais un remplissage suivant ce que des jours dans ressources suivant mon choix de test1 ou 2 ou 3 ...etc.

Je vous remercie pour votre support et aide et prenez soin de vous.

 

[Phil69970]

Bonjour Saggio, le forum

En fonction de ce que j'ai compris
Dans ton fichier je n'ai pas trouvé cette feuille !

la feuille "Valeurs"

Cordialement

 

[sousou]

Bonjour
Si j'ai bien compris
quelque chose comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 2 And Target.Column > 1 Then Exit Sub
l = Sheets("ressources").Columns(1).Find(Target.Parent.Cells(Target.Row, 1)).Row
c = Sheets("ressources").Rows(1).Find(Target.Parent.Cells(1, Target.Column)).Column
Sheets("ressources").Cells(l, c) = Target.Value
End Sub

 

[saggigo]

Bonjour Saggio, le forum

En fonction de ce que j'ai compris
Dans ton fichier je n'ai pas trouvé cette feuille !

Cordialement

En fait c'est le contraire, j'aimerais de la feuille 1 (valeurs) renseigner le tableau dans la feuille ressources

P.S j'ai corrigé le nom de la feuille

 

[saggigo]

Bonjour
Si j'ai bien compris
quelque chose comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 2 And Target.Column > 1 Then Exit Sub
l = Sheets("ressources").Columns(1).Find(Target.Parent.Cells(Target.Row, 1)).Row
c = Sheets("ressources").Rows(1).Find(Target.Parent.Cells(1, Target.Column)).Column
Sheets("ressources").Cells(l, c) = Target.Value
End Sub

Bonjour Sousou,
Je te remercie pour le code il est super. sauf que à chaque fois que je change dans la liste déroulante de test1 vers test2, dans mon tableau (ressources) il y a des colonnes qui s'ajoutent.

 

[sousou]

Et il est ou le code?

 

[Phil69970]

Bonjour Saggio, sousou, le forum

Essaye cela...

Cordialement

 

[saggigo]

Et il est ou le code?

Oups... voila

 

[sousou]

Remplace comme ceci
If Target.Row <> 2 Or Target.Column = 1 Then Exit Sub

 

[saggigo]

Remplace comme ceci
If Target.Row <> 2 Or Target.Column = 1 Then Exit Sub

Bonjour Sousou;
Je te remercie pour ton aide, c'est parfait. par contre on viens de me dire qu'il faudra inversé les linges et les colonnes. voir "feuille 3" et "ressources 2". j'ai essayé avec le code et en bidouillant un peu mais ca n'a pas marché.

Peux-tu s'il te plait m'aider encore une fois.

 

[sousou]

Bonjour
Voici le code de la feuil3 si je ne me suis pas trompé.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Or Target.Row = 1 Then Exit Sub
l = Sheets("Ressources 2").Columns(1).Find(Target.Parent.Cells(Target.Row, 1)).Row
c = Sheets("Ressources 2").Rows(1).Find(Target.Parent.Cells(1, Target.Column)).Column
Sheets("Ressources 2").Cells(l, c) = Target.Value
End Sub

 

[saggigo]

Bonjour
Voici le code de la feuil3 si je ne me suis pas trompé.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Or Target.Row = 1 Then Exit Sub
l = Sheets("Ressources 2").Columns(1).Find(Target.Parent.Cells(Target.Row, 1)).Row
c = Sheets("Ressources 2").Rows(1).Find(Target.Parent.Cells(1, Target.Column)).Column
Sheets("Ressources 2").Cells(l, c) = Target.Value
End Sub

Merci beaucoup Sousou,
Il fonctionne super, sauf qu'en introduisant la derniere valeur, il me sort un message de debogage sur la ligne:
l = Sheets("Ressources 2").Columns(1).Find(Target.Parent.Cells(Target.Row, 1)).Row

 

[sousou]

Ca marcherai mieux si tu ajoutais une jour 6 dans ta feuille ressource

 

[saggigo]

Ca marcherai mieux si tu ajoutais une jour 6 dans ta feuille ressource

Salut Sousou,
Désolé mais comme je n'ai pas compris le programme je ne savais pas ce qui n'allait pas. aussi je remarqué que le fichier est figé, je ne peux changer les cellules jours (les renommer) ou bien comment faire si je veux ajouter des colonnes;

Peux-tu s'il te plaît rendre le fichier plus personnalisable: possibilité de changer les noms des cellules, d'ajouter des colonnes ( d'autres listes déroulantes) et des lignes.

Voici le format a garder

Merci beaucoup Sousou et encore désole de trop t’en demander

 

[sousou]

Bonjour.
Pour pouvoir te répondre, il faudrait plus de détail sur ton fonctionnement.
ajouter des colonnes, Des lignes où,comment, pourquoi?
Mes réponses étaient purement techniques.
Sans une compréhension plus intelligente de ta problématique, on risque de tourner en rond