vba - selection et suppression a l'aide de variable

Re : vba - selection et suppression a l'aide de variable

Salut,

Je ne suis pas un spécialiste des objets sur les feuilles, mais il me semble qu'un objet n'est pas associé à une ligne/colonne/cellule.

La seule solution que je vois, mais peut etre y'en a-t-il d'autre, ce serai que le numéro ou nom de l'objet soit concordant avec le numéro de la ligne, ainsi, tu pourrais les supprimer en spécifiant le nom de l'objet.

Mais je ne pense pas que cette solution soit tres pratique...

@+

Re : vba - selection et suppression a l'aide de variable

Merci d'avoir répondu rapidement,

Je ne sais pas si c'est important, mais les objets (Zones de liste, Cases a cocher) qui sont dans ma feuille ont été inséré par une macro que j'avais faite au par avant.
Dans cette macro , j'insère les objets dans les cellules en tant que "Objet Dessin Microsoft Office" (grace au clic droit/collage spécial).
Je ne sais pas si cet opération affecte un objet à une cellule; si c'est le cas j'ai de la chance, sinon... ben je vais encore avoir mal a la tete... 🙂

Voila l'essentiel de la macro que j'utilise à chaque fois que je veux rajouter des données à ma feuille. J'utilise toujours ce modèle pour mes nouvelles données.
Je voudrais donc pouvoir faire une macro qui efface les formules et objets générés par la macro ci dessous, mais que pour les lignes souhaitées....

Dsl, j'essaye d'etre le plus clair possible...

Sub essai()

i = Range("C1").Value

Range("C" & i).Select


ActiveSheet.DropDowns.Add(199, 186, 101, 16).Select
Selection.Cut
ActiveSheet.PasteSpecial Format:="Objet Dessin Microsoft Office", Link:= _
False, DisplayAsIcon:=False
With Selection
.ListFillRange = "Conditions!$A$2:$B$10"
.LinkedCell = ("D" & i)
.DropDownLines = 8
.Display3DShading = True
End With

'''''''

Range("F" & i).Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-5]="""","""",RC[-5]+VLOOKUP(RC[-2],Conditions!R2C[-4]:R10C[-3],2,FALSE))"

Range("G" & i).Select
ActiveCell.FormulaR1C1 = "=IF(RC[-6]="""","""",RC[-6]+30)"

''''''''

Range("H" & i).Select
ActiveSheet.CheckBoxes.Add(519, 185, 35, 18).Select
Selection.Cut
ActiveSheet.PasteSpecial Format:="Objet Dessin Microsoft Office", Link:= _
False, DisplayAsIcon:=False
With Selection
.Value = xlOff
.LinkedCell = ("I" & i)
.Display3DShading = True
End With
Selection.Characters.Text = "TA"


Range("H" & (1 + i)).Select
ActiveSheet.CheckBoxes.Add(519, 185, 35, 18).Select
Selection.Cut
ActiveSheet.PasteSpecial Format:="Objet Dessin Microsoft Office", Link:= _
False, DisplayAsIcon:=False
With Selection
.Value = xlOff
.LinkedCell = ("I" & (1 + i))
.Display3DShading = True
End With
Selection.Characters.Text = "VC"

"......"

End Sub

Re : vba - selection et suppression a l'aide de variable

re,

Je viens d'essayer ton code et les objets ne sont pas liés aux cellules, la preuves c'est que si tu essais de supprimer un ligne censée contenir un objet, la ligne est supprimée, mais l'objet reste.

Donc perso, je n'ai pas de solution à t'apporter...

@+

Re : vba - selection et suppression a l'aide de variable

Ok, je vais continuer a chercher de mon coté.

Merci d'avoir pris un peu de ton temps pour mon problème.
Bonne fin de journée.