Ligne à modifier dans un tableau

Version imprimable

24/07/2020, 06h56
raivig

2 pièce(s) jointe(s)

Ligne à modifier dans un tableau

Bonjour,
Je vais essayer d'être clair...
J'ai un tableau de joueurs (nom, équipe, etc..)
A moment donné, un joueur peut changer d'équipe.
Vu que la personne qui va procéder à cette modification de joueur n'est pas forcément habituée à intervenir dans ce genre de tableau,
je voudrais qu'elle se contente de modifier une cellule bien précise (feuille protégée bien entendu)

Voici le tableau et les explications... (un bon croquis étant mieux qu'un long discours)
et je joins le petit fichier excel encore plus facile...

D'avance, merci beaucoup pour votre aide

Bonjour,

Avec ceci en vba, réagit au changement de l'équipe

Pièce jointe 575750

le code dans le module de la feuille

Code:

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$R$9" Then
        Set j = Range("I6:I35").Find(Range("R5"))
        Range(Cells(j.Row, "I"), Cells(j.Row, "M")).Value = Range("T8:X8").Value
    End If
    Application.EnableEvents = True
End Sub

Cdlt

24/07/2020, 16h17
raivig

1 pièce(s) jointe(s)

Mis à jour

Grand merci pour ton aide...
J'ai mis la macro dans mon tableur mais ça ne fonctionne pas...
Le nouveau nom d'équipe n'est pas mis en place.

Vois svp la pic ci-jointe
Merci
24/07/2020, 19h03
ARTURO83

Bonsoir,

Citation:

J'ai mis la macro dans mon tableur mais ça ne fonctionne pas...
Le nouveau nom d'équipe n'est pas mis en place.

ça ne fonctionne pas, Que se passe -t_il exactement? citez des exemples qui ne fonctionnent pas

Avez-vous essayez le fichier joint? pour ma part il semble fonctionner correctement.

Dans l'attente de votre réponse.

Cdlt
24/07/2020, 19h24
raivig

1 pièce(s) jointe(s)

Ben.. il ne se passe rien.
Voyez le fichier joint... j'y ai mis la macro que vous m'avez donnée...

pièce jointe: update player.xlsm
Merci
25/07/2020, 03h06
Alex020181

Bonjour,

Vous avez mal positionné le code fourni.

Vous avez placé le code dans un nouveau module. Il faut que vous le mettiez dans le code de la feuille sur laquelle il doit agir (càd "3 - PLAYER").

Ensuite attention avec le code fourni. Il vous faut d'abord modifier le numéro du joueur en R5 avant de préciser sa nouvelle équipe en R9. C'est très important.
De façon automatique le code change "Name (Team)" du joueur dès que la valeur de R9 est modifiée. Donc si vous commencez par changer l'équipe avant de mettre le joueur alors c'est le joueur qui se trouve en R5 qui sera modifié.
25/07/2020, 06h17
raivig

pas grave, j'y arrive pas.
Je n'y connais rien dans ce langage.
Merci quand même
25/07/2020, 06h31
ARTURO83

Bonjour raivig,
Dans ma première réponse, juste au-dessus des lignes de code, j'avais bien préciser que, le code était à coller dans le module de la feuille (j'aurai dû mettre en caractères gras) et non pas dans un module standard, comme l'a rappelé Alex020181:salut:

Le fait de placer le code dans le module de la feuille active, crée ce qu'on appelle une "MACRO EVENEMENTIELLE", cette macro réagit en fonction de l'évènement choisi, et non pas à la demande en cliquant sur un bouton.
Ici, le nom de la macro évènementielle est "Worksheet_Change", et elle réagit à chaque changement de valeur de la cellule R9.

Quand vous faites ALT + F11 pour accéder à la fenêtre VBA, dans la partie gauche , faites un double-clic sur "Feui1(3-Player)" et collez le code dans la fenêtre de gauche. Supprimez le code du module1.
Pièce jointe 575815

Cdlt
25/07/2020, 09h21
raivig

1 pièce(s) jointe(s)

J'ai essayé de respecter scrupuleusement vos recommandations, rien n'y fait.
L'exemple que je vous avais transmis était un extrait et j'avais oublié certaines choses.

Là, je fais une copie d'écran, la macro est bien dans la feuille "MODIFY PLAYER"
j'ai vérifié les concordances des cellules...
je commence bien entedu dans l'ordre : choix du joueur puis modif nouvelle équipe

rien à faire.
Je n'y comprends rien...

Désolé mais vous aidez gentiment un novice en matière de Visual Basic
Si j'utilisais moi-même ce tableur j'aurais vite fait de faire un copier/coller des cellules T8:X8 vers la ligne prévue...
mais le problème est que quelqu'un d'autre risque d'utiliser ce tableau et de faire ces modif, et qui ne s'y connait très très peu sur excel... encore plus nul que moi...

En tout cas c'est gentil de m'aider, merci encore
25/07/2020, 09h28
ARTURO83

Regardez bien le nom du module tout en haut, on voit que c'est le module 5, je reprends ce que j'ai écrit précédemment en mettant en rouge ce que vous avez sûrement oublié de faire

Citation:

Quand vous faites ALT + F11 pour accéder à la fenêtre VBA, dans la partie gauche , faites un double-clic sur "Feui1(3-Player)" et collez le code dans la fenêtre de gauche. Supprimez le code du module1.

à part que ce n'est plus la feuille "Feuil(3-Player")" mais "Feuil15(MODIFY PLAYER)"

Pièce jointe 575821
25/07/2020, 10h16
raivig

Bon, je vous ai assez fait perdre de temps comme ça.
Je n'y arrive pas.
J'abandonne.

Merci encore
25/07/2020, 10h18
ARTURO83

Mais non, faut pas abandonner. il faut persévérer au contraire et essayer de comprendre ce qui ne va pas.
Pouvez-vous déposer votre fichier, remplacez les données confidentielles par des valeurs bidons?
25/07/2020, 14h58
raivig

1 pièce(s) jointe(s)

Mon cher Arturo....
j'ai fini par tomber par hasard sur la solution.
Je m'obstinais à soit créer un bouton pour lancer la macro, soit de cliquer sur le bouton "Executer" et ça nemarchait pas.

Ensuite plus tard seulement je me suis rendu compte que la maise à jour se faisait simplement en mettant à jour la case R9
Je n'en revenais pas.
Il m'a fallu du temps pour comprendre le principe et le fonctionnement.

A présent, suite à des manip de nul... je n'ai plus rien lorsque je fais alt+F11
je ne vois plus mes fenêtres...

Quelle galère, suis vraiment nul dans ce domaine
En tout cas merci, si je retrouve ces fenêtre dans le alt+F11 je crois que ça fonctionnera super.
Merci encore
25/07/2020, 15h18
ARTURO83

Citation:

Je m'obstinais à soit créer un bouton pour lancer la macro, soit de cliquer sur le bouton "Executer" et ça nemarchait pas.
Ensuite plus tard seulement je me suis rendu compte que la maise à jour se faisait simplement en mettant à jour la case R9
Je n'en revenais pas.

J'avais pourtant avoir tout bien expliqué dans le post #8

Citation:

Le fait de placer le code dans le module de la feuille active, crée ce qu'on appelle une "MACRO EVENEMENTIELLE", cette macro réagit en fonction de l'évènement choisi, et non pas à la demande en cliquant sur un bouton.
Ici, le nom de la macro évènementielle est "Worksheet_Change", et elle réagit à chaque changement de valeur de la cellule R9.

**********************************************************************************************************

Citation:

A présent, suite à des manip de nul... je n'ai plus rien lorsque je fais alt+F11
je ne vois plus mes fenêtres...

récupérez le code sur le dernier fichier fourni toujours disponible dans les posts précédents, copiez et collez-le dans le fichier ou vous avez tout perdu.
25/07/2020, 17h52
jcf64

Essai

Bonjour ARTURO83, raivig et le forum

Cela fonctionne bien

bonne continuation

jc
26/07/2020, 05h10
raivig

Oui... suis bien content. Cette petite macro fonctionne à présent.
et exactement comme je voulais.
Dernière petite chose: je souhaite protéger la feuille
est t'il possible d'y ajouter un ordre de déprotection au début, puis reprotéger à la fin...? avec code bien entendu.

Si pas possible, c'est pas grave.
En tout cas en énorme merci.

Bonjour,

Voici un proposition, ce n'est pas une protection absolue car elle peut être contournée par un bidouilleur.
Copiez le code suivant dans le module "ThisWorkbook", mot de passe utilisé "raivig", mettez ce que vous voulez?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveSheet.Protect Password:="raivig", DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub Private Sub Workbook_Open() Essai: mdp = Application.InputBox("Mot de passe", "Entrer le mdp") If mdp <> "raivig" Then MsgBox "Mdp incorrect", vbCritical GoTo Essai Else ActiveSheet.Unprotect "raivig" End If End Sub
Faire un double-clic sur "ThisWorkBook" et coller le code dans la fenêtre de droite
Pièce jointe 575852

Cdlt

26/07/2020, 06h03
raivig

1 pièce(s) jointe(s)

Merci pour cet ajout de protection de feuille...

Malheureusement... je viens de découvrir un problème (pas énorme) mais il peut être embêtant...
Tout se passe super bien...
Par contre si je veux modifier le joueur numéro 1... après avoir cliqué sur la cellule "R9"
étrangement il remplace les valeurs de la ligne 15 (c'est à dire que je n'ai plus le joueur #10
et le joueur John.W figure en double.

Il n'y a qu'avec ce joueur que ça se passe comme ça. Les autres pas de problème.
J'ai vérifié, re-vérifié le code macro... là, je nage...

Je suis vraiment désolé de revenir comme ça à la charge... et j'admire votre patience.
26/07/2020, 06h22
ARTURO83

Bonjour,

Exact, petite négligence de ma part

Remplacez la ligne suivante dans le module de la feuille "Feuil15(MODIFY PLAYER)"

Code:

Set j = Range("I6:I35").Find(Range("R5"))

par

Code:

Set j = Range("I6:I35").Find(Range("R5"), lookat:=xlWhole)

Cdlt
26/07/2020, 07h02
raivig
Super... merci.
je n'appelle pas ça une négligence...
Rome ne s'est pas construite en un jour non-plus.

Etant donné que cette liste est appelée à s'allonger, j'ai modifié la commande (c'est un détail que je n'avais pas précisé au départ)
Code:

1 2 Set j = Range("I6:I69").Find(Range("R5")) par Set j = Range("ordre").Find(Range("R5"))
J'ai nommé la colonne "ordre", ainsi les nouveaux joueurs sont inclus...
J'ai vérifié en ajoutant des nouveaux joueurs... ça fonctionne correctement.

En tout cas, mille merci
Bien cordialement
Rainier