la cellule liée d'un scrollbar n'effectue pas Fermé

Question

Voici la partie du code

    If croix <= 3 Then TypeFiliere = 1
    If croix = 4 Then TypeFiliere = 2
    If croix = 5 Then TypeFiliere = 3
    If croix = 6 Then TypeFiliere = 4
    If croix = 7 Then TypeFiliere = 5
    
    ActiveSheet.Shapes.Range(Array("Scroll Bar 37")).Select
    With Selection
        .Value = TypeFiliere
        .Min = 1
        .Max = 5
        .SmallChange = 1
        .LargeChange = 10
        .LinkedCell = c.Cells(9, 1)
        .Display3DShading = True
    End With

Pouvez vous m'aider. je dois rentrer la liaison en mode manuel ce qui n'est pas tres pratique

gbinforme · Answer

Bonjour, 

Tu balances du code sans préciser ce que tu veux obtenir, il aurait sans doute plus judicieux de faire le contraire car lorsque l'on sait où aller c'est plus facile de choisir le chemin.
Alors essayes de nous expliquer.

eriiic · Answer

Bonjour,

A quoi est égal c dans .LinkedCell = c.Cells(9, 1) ? 
On ne le voit pas dans ton extrait.

De toutes les propriétés, seule .Value = TypeFiliere devrait figurer dans ton code.
Les autres, si elles ne changent pas, n'ont aucune raison d'y être. Met-les en les éditant manuellement. Si bien fait la cellule liée ne pourra être que correcte.
eric

La cellule liée d'un scrollbar n'effectue pas

2 réponses

Discussions similaires