Suppression ScrollBar dans un ligne sélectionnée au hasard.

[djerka99]

Bonjour à tous,

Et puisqu'il est encore temps, bonne année 2010 à tous.

J'ai beau chercher sur le forum, je n'arrive pas à trouver l'astuce suivante.
Je voudrais sur une feuille, pouvoir sélectionner une cellule (en colonne B) et effacer la ligne correspondante avec les objets (scrollbar) qui s'y trouvent.

En sachant que les noms d'objets n'ont pas de logique précise.

Question complémentaire : comment changer sur toutes les scroll bar d'un coup une caractéristique (mentionnée dans le fichier joint).

En vous remerciant par avance.

 

[pierrejean]

Re : Suppression ScrollBar dans un ligne sélectionnée au hasard.

bonjour djerka99

En supposant que les scroolbar comportent au moins Scroll dans leur nom
de même il est supposé que les resultats sont en colonne I et K

Sub Ajout()
For Each sh In ActiveSheet.Shapes
  If InStr(sh.Name, "Scroll") <> 0 Then
    sh.Select
    Selection.Max = 6
  End If
Next sh
For n = 1 To Range("I65536").End(xlUp).Row
  If InStr(Range("I" & n).FormulaLocal, "=RECHERCHEH") <> 0 Then
    Range("I" & n).FormulaLocal = Replace(Range("I" & n).FormulaLocal, "K", "L")
  End If
Next n
For n = 1 To Range("K65536").End(xlUp).Row
  If InStr(Range("K" & n).FormulaLocal, "=RECHERCHEH") <> 0 Then
    Range("K" & n).FormulaLocal = Replace(Range("K" & n).FormulaLocal, "K", "L")
  End If
Next n
End Sub
Sub suppression()
x = Selection.Top
y = Selection.Top + Selection.Height
For Each sh In ActiveSheet.Shapes
 If InStr(sh.Name, "Scroll") <> 0 Then
    If sh.Top > x And sh.Top < y Then
      sh.Delete
    End If
  End If
Next sh
Rows(Selection.Row).Delete
End Sub

 

[youky(BJ)]

Re : Suppression ScrollBar dans un ligne sélectionnée au hasard.

Bonsoir cher voisin,
Bonsoir djerka99,

Comme j'ai fait un fichier avec seulement 2 controles qui se déplacent....
je le mets, le voici, pense à activer les macros
A+

 

[djerka99]

Re : Suppression ScrollBar dans un ligne sélectionnée au hasard.

Merci pour vos réponses.
Youky(BJ) j'ai regardé, c'est marrant comme technique.

pierrejean, ta macro est excellente, elle répond parfaitement à mon besoin. Je tenais tout particulièrement à te remercier car je cherche souvent des réponses sur ce site et tu es souvent LA personne qui a trouver la solution. Encore merci pour le partage de ta connaissance et ta disponibilité.[/COLOR]

Bonne soirée