XL 2019 Insertion image

[GUERET]

Bonsoir,
l'euro vient de commencer et, avec l'aide de la communauté, j'ai créé ce tableau qui me pose juste un souci en feuille finale.
J'y ai inséré le logo jpeg de l'euro mais, à chaque modif, ce logo se barre. Je suis allé dans les propriétés de l'image pour la fixer mais...chou blanc. C'est la 1ère fois que je tombe sur problème.
D'avance, merci
https://mon-partage.fr/f/3qAoYzjo/

 

[fanch55]

Bonjour,
Quand on insère une image, elle se nomme "Picture n" mais est présentée en français comme "Image n".
Ce sont de faux amis .
Prenez l'habitude de renommer immédiatement une image insérée, vous pourrez par la suite la cibler précisément .

 

[GUERET]

Ah zut !
Merci pour cette aide, je viens d'apprendre encore quelque chose

 

[GUERET]

Bonsoir, je suis désolé mais même en renommant l'image, en changeant d'image rien n'y fait. Dès que je fais une modif, elle disparaît.

 

[fanch55]

Bonjour,
Avez-vous pensé à modifier également votre code ?

Sub Supprimer_Image()
On Error Resume Next
For s = 1 To Sheets.Count
If Sheets(s).Name = "8ème de finale" Or Sheets(s).Name = "Quart de finale" Or Sheets(s).Name = "Demi-finale" Then
Sheets(s).Select
ActiveSheet.DrawingObjects.Delete
ElseIf Sheets(s).Name = "Finale" Then
Sheets(s).Select
For i = 1 To ActiveSheet.Shapes.Count
If ActiveSheet.Shapes(i).Name <> "Image 2" Then ActiveSheet.Shapes(i).Delete
Next i
End If
Next s
End Sub

 

[GUERET]

Bonjour,
Tout d'abord, la VBA ce n'est pas ma tasse de thé donc je fais avec les moyens du bord
Je viens de tester ton code en faisant un copier-coller pour être sûr de ne pas me tromper et j'obtiens le même résultat. J'insère bien l'image dans la feuille "Finale" au dessus du cadre des résultats et, dès que saisis une opération dans la feuille "Phase de groupe", mon image disparaît comme par magie. J'y perds mon latin surtout que c'est la 1ère fois que je tombe sur ce genre de situation.

Cordialement

 

[fanch55]

Je traduis le code en le résumant , cela donne :

Si le nom de la feuille est "Finale":

Pour tous les objets de la feuille:​

Si le nom de l'objet est différent de "Image 2" alors détruire objet ​

Dans le cas initial, l' image s'appelait "Picture 2" et était donc détruite .

Dans le cas suivant, vous renommez l' image en "?????" mais elle n'est toujours pas égale à "Image 2", donc elle est détruite.

IL faut donc modifier le code en y précisant le nom de l' image :
If ActiveSheet.Shapes(i).Name <> "nom de ton image" Then ActiveSheet.Shapes(i).Delete

 

[GUERET]

Ah ignorance quand tu nous tiens.
Merci encore pour cette aide et maintenant, je vais me la pêter

Cordialement

 

[GUERET]

Bonjour,
je reviens avec mon fichier qui me cause problème lors des tris automatiques.
En effet, ils se font uniquement pour les groupes A et B mais pas du tout pour les groupes C-D-E-F et cela fausse tous mes résultats à venir . J'ai été aidé pour la VBA .

Cordialement
https://mon-partage.fr/f/1qeCEHOx/

 

[fanch55]

OK, c'est dans quelle feuille les tris automatiques ?

 

[GUERET]

OK, c'est dans quelle feuille les tris automatiques ?

Dans la feuille "Phase de groupe"

 

[GUERET]

C'est à partir de cette feuille que toutes les autres découlent. Si les résultats sont faux, tout le reste ne tient plus la route.
Cordialement

 

[fanch55]

Oki, qui fait la mise à jour des colonnes E-F ? car cela provoque bien le tri ...

 

[GUERET]

Le tri se fait en colonne T à l'affichage des scores et ce de L à S ce qui permet la mise à jour des résultats qui déterminent l'ordre d'arrivée repris ensuite dans la feuille "8ème de finale" d'où l'importance de ce tri. Si je n'ai pas le bon ordre, mon tableau tombe à l'eau. Ce que je ne comprends pas, ça fonctionne bien pour certains groupes et pas pour d'autre et pourtant le code VBA doit être le même à moins qu'il y ait une petite subtilité que je n'ai pas vu.

 

[fanch55]

Je n'ai pas la réponse à ma question : qui fait la mise à jour des colonnes E-F (les scores)?
c'est manuel ou un automatisme qui ne me saute pas aux yeux ?