Discussion :

[nirvana4483]

Bonjour à tous,
j'aurais besoin d'une petite aide que je sais sera très facile pour vous :-)

mon souhait:
je désire supprimer ma photo "NA avec les 2 traits rouge de la page 2" présent sur la page 2, à la condition que ma case Y11 de la page 1 est coché en l'occurence avec un X majuscule.
Si case non cochée donc cellule Y11= vide, on ne fait rien.

Voir photo

En gros,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
si Y11 = "X" then
Sheets("page 2").Select
ActiveSheet.Shapes.Range(Array("Picture 2")).Select
Selection.Delete
 
et si Y11 = rien ... on fait rien

Désolé je sais que c'est un truc bateau mais je trouve pas, merci pour votre aide :-)

[Theze]

Bonjour,

Teste ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If Sheets("page 1").Range("Y11").Value = "X" Then Sheets("page 2").Shapes("Picture 2").Delete

[nirvana4483]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
If Sheets("page 1").Range("Y11").Value = "X" Then
 
Sheets("page 2").Select
 
ActiveSheet.Shapes.Range(Array("Picture 2")).Select
 
Selection.Delete
 
ActiveSheet.Shapes.Range(Array("Picture 2")).Select
 
Selection.Delete
 
End If

J'ai réussi comme ceci, j'ai effectué 2 fois la même commande "delete"... je ne sais pas pourquoi sinon cela ne fonctionne pas...Mais le principal est que cela fonctionne comme je voulais au final :-) Merci pour l'aide