Discussion :

[manufer]

Bonjour à tous,

Alors voilà mon souci,

J'ai une image


C'est une croix que je place dans une cellule. Je souhaite qu'au click sur celle-ci,

la ligne toute entière se supprime.

De plus il faut que les croix s'ajoutent dès que la cellule de la colonne voisine est pleine.
exemple: si en B2 il y a une valeur, alors une croix en A2 doit apparaitre.

L'image a été téléchargé sur le net.
cette image ne doit pas être stocké dans le bureau mais dans le classeur, ainsi cela fonctionnera pour toute personne recevant mon classeur par mail.

Je ne sais même pas par quoi commencer, avez vous des pistes SVP ?

[manufer]

Donc je reviens sur ce sujet,

J'ai pu avancer légèrement,

voilà ce que j'ai fais:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
Sub imagesupp()
Dim sh As Shape
 
'On nomme la croix qui se trouve dans la feuille 3
Sheets("Feuil3").Pictures(1).Name = "suppression"
'On la copie
Pictures(1).Copy
'Création d'une boucle pour coller
For ligne = 3 To 40000
'Pour chaque ligne vide colonne 2 de la feuille 5
If Sheets("Feuil5").Cells(ligne, 2).Value = "" Then
'On colle l'image (la croix)
Sheets("Feuil5").Paste
End If
Next
End Sub

Le problème que je rencontre pour le moment c'est je ne parviens pas à positionner l'image dans les cellules de la première colonne après le collage.

quelqu'un sait comment faire svp ?

[manufer]

Salut à tous,

Je vois que mon problème en intéresse beaucoup,

donc je continue.

J'ai copier coller une image sur plusieurs ligne (toujours de croix) symbolisant la suppression de lignes.

je lui ai affecté une macro:

Code :

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

1
2
3
Sub delt()
Rows([A2:A40000].Find(Shape).Row).EntireRow.Delete
End Sub

Quelle que soit la ligne sur laquelle se trouve la croix, c'est toujours la ligne 2 qui est supprimée.

Savez vous comment faire svp pour que ce soit la ligne ou se trouve la croix qui soit supprimé ?

[Marc-L]

Bonjour,

avec la propriété   Caller   récupérer le nom de l'objet appelant et ainsi

il est aisé d'en déduire sa position via par exemple les propriétés   TopLeftCell   et   Row   …     (cf aide VBA interne)

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[manufer]

ça ne fonctionne pas comme je veux.

La première image est stocké en feuil3 cellule A1,

Je copie et colle cette cellule vers Feuil5 colonne A (plusieurs cellules de cette colonne),

Code :

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

1
2
3
ligne = Sheets("Feuil5").Shapes(Application.Caller).TopLeftCell.Row
colonne = Sheets("Feuil5").Shapes(Application.Caller).TopLeftCell.Column
MsgBox "N°Colonne " & colonne & " - " & "N°Ligne " & ligne

Si je click sur l'image en A9 feuil5 dans laquelle il y a cette image et à qui j'ai attribué cette macro,

j'obtiens N°Colonne 1 - N°Ligne 1. Ce qui est faux. Je devrai obtenir N°Colonne 1 - N°Ligne 9

Avez des pistes svp ?

[manufer]

Je le met pour clôturer cette discussion,

Cela fonctionne comme voulu et si ça peut être utile:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Sub testf()
'Dim sh As Worksheet
Dim img As Object
Dim cell As Range
 
'On supprime les images présente dans la feuille
Sheets("Feuil2").Shapes.SelectAll
Selection.Delete
'boucle sur les ligne de 1 à 15 (pour l'exemple)
For ligne = 1 To 15
'Condition = 2ème colonne de chaque ligne est vide, condition 2= 1ère colonne de chaque ligne est vide
    If Sheets("Feuil2").Cells(ligne, 2).Value <> "" And Sheets("Feuil2").Cells(ligne, 1).Value = "" Then
    'On va chercher l'image en feuille 1, Copier / coller vers feuille 2
    Sheets("Feuil1").Cells(1, 1).Copy Sheets("Feuil2").Cells(ligne, 1)
    End If
Next
End Sub
 
Sub ikol()
'On active la feuille 2 pour travailler dessus
Sheets("Feuil2").Activate
 
   With ActiveSheet.Shapes(Application.Caller)
      sAdresse = .TopLeftCell.Address     'Adresse de la cellule associée (dans la colonne A)
      sNom = .Name                        'nom de la forme
   End With
 
'Affectation des variable "ligne" et "colonne"
ligne = Sheets("Feuil2").Shapes(Application.Caller).TopLeftCell.Row
colonne = Sheets("Feuil2").Shapes(Application.Caller).TopLeftCell.Column
'On supprime la ligne de l'image sur laquelle on click
Rows(ligne).EntireRow.Delete
End Sub