Discussion :

[asayeh]

Bonjour à tous,

Je crée dans l'instruction creationBouton un bouton en position 0, 0 (en haut à gauche). Jusque là tout va bien.
Toutefois, à la suite du traitement une instruction ajoute une ligne en début de tableau, ce qui décale le bouton qui se retrouve en haut + 1 ligne à gauche.
Je souhaite que la position initiale du bouton ne change pas lors de l'insertion de cette ligne.
Le traitement étant générique à plusieurs mises en forme (désignée par la suite MEF) différentes de fichier, le seul endroit où je peux insérer l'exécution de l'instruction creationBouton est en amont de l'instruction ajoutant cette satanée ligne.

Grossièrement, le déroulement du module de MEF est le suivant :
Choix du type de MEF (traitement générique à toutes les MEF)
Traitement de MEF du fichier X (traitement spécifique à la MEF du fichier X, il n'y a que dans ce cas que je souhaite insérer le bouton)
Configuration de l'impression (traitement générique - c'est à ce niveau qu'est insérée la 1ère ligne)

L'instruction correspondant à la création du bouton est :

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
 
Public Sub creationBouton()
    Worksheets("Anos").Select
 
'ajoute le bouton Historiser
    'Ajout CommandButton dans la feuille
    Set Obj = ActiveSheet.OLEObjects.Add("Forms.CommandButton.1")
    With Obj
        .Left = 0 'position horizontale
        .Top = 0 'position verticale
        .Width = 96 'largeur
        .Height = 17 'hauteur
        .Object.BackColor = RGB(235, 235, 200) 'Couleur de fond
        .Object.Caption = "Historiser"
    End With
End Sub

Auriez-vous une idée pour que mon bouton reste en position 0, 0 même lors de l'insertion d'une ligne?

Merci d'avance de vos réponses.
Cordialement,
asayeh

[Abed_H]

Bonjour asayeh
ajoute cette ligne de code

Code :

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

.Placement = xlFreeFloating

Bonne journée

[asayeh]

Bonjour,

En effet, j'en suis arrivé à la même conclusion et l'essai est concluant.
En utilisant l'enregistreur, je n'avais pas les propriétés du bouton mais du texte (je visais mal avec la souris), je ne trouvais donc pas la propriété permettant de "ne pas déplacer ou dimensionner avec les cellules" (lors du clique droit dans "Format de contrôle..."
C'est maintenant chose faite.

Merci Abed_H pour ta réponse.

Le nouveau code est donc :

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
 
Public Sub creationBouton()
    Worksheets("Anos").Select
 
'ajoute le bouton Historiser
    'Ajout CommandButton dans la feuille
    Set Obj = ActiveSheet.OLEObjects.Add("Forms.CommandButton.1")
    With Obj
        .Left = 0 'position horizontale
        .Top = 0 'position verticale
        .Width = 96 'largeur
        .Height = 17 'hauteur
        .Object.BackColor = RGB(235, 235, 200) 'Couleur de fond
        .Object.Caption = "Historiser"
        .Placement = xlFreeFloating  ' ne déplace pas le bouton
        .PrintObject = False            ' n'imprime pas le bouton lors de l'impression - pratique dans mon cas
    End With
End Sub

Problème résolu.

Merci.