vba - selection et suppression a l'aide de variable

[carlito86]

Bonjour a vous,

Après un bon moment passé a essayer de trouver une solution, je me résous a demander de l'aide...

Je vous explique mes soucis... :

Je dispose dans une feuille excel de nombreuses données, formules, ainsi que de contrôles de formulaires ( Zones de liste déroulantes , et Cases à cocher).
J'essaye en vain de créer une macro qui supprimerait les données, formules, et contrôles de formulaires de 3 lignes, précisées dans une cellule.

Je m'explique, j'ai trouvé le moyen de supprimer tout cela ( avec : ActiveSheet.DrawingObjects.Delete ) , mais cette fonction supprime ce qu'il y dans toute la page, et non pas juste dans les lignes demandées.

L'idée était donc d'utiliser une variable précisée manuellement ,en cellule H1 par exemple, qui indiquerait a la macro quelles seraient les lignes concernées ( exemple: si H1=5, les lignes concernées seraient 5,6,7 - si H1=10, les lignes concernées seraient seraient 10,11,12).

Si quelqu'un a une proposition, je suis preneur...

Merci par avance

 

[porcinet82]

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...

@+

 

[carlito86]

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

 

[porcinet82]

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...

@+

 

[carlito86]

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.