Discussion :

[frisou65]

Bonjour,
je voudrais créer des boutons dans la colonne J sur les lignes qui possèdent une cellule jaune dans la colonne A.
Pour cela j'utilise le programme suivant:

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
19
20
21
22
 
    For Each mycell In ThisWorkbook.Worksheets("COMPONENTS").Range("A:A").Cells
     If mycell.Interior.ColorIndex = 36 Then
          Cell = mycell.Address
        Cells(mycell.Row, 10).Select     
        ActiveSheet.Buttons.Add(625.5, 453, 102.75, 16.5).Select
        Selection.OnAction = "Renvoi_extraction3"
        Selection.Characters.Text = "renvoi_extraction"
        With Selection.Characters(Start:=1, Length:=17).Font
            .Name = "Arial"
            .FontStyle = "Normal"
            .Size = 10
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ColorIndex = xlAutomatic
        End With
        End If
    Next mycell

Mais j'ai un problème: il reconnait les fameuses cellules jaunes, il me crée un 1er bouton là ou il faut mais tous les autres boutons il me les créent sur le 1er bouton.
Est ce que quelqu'un peut m'aider?

[David2304]

Le pb vient de cette ligne :

Code :

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

ActiveSheet.Buttons.Add(625.5, 453, 102.75, 16.5).Select

Il s'agit ( si je ne me trompe pas) des coordonnées du bouton
Donc tous tes boutons auront ces coordonnées

[frisou65]

Mais alors si c'est bien les coordonnées du bouton, comment à partir de mon programme je lui donne les coordonnées de la cellule où je veux qu'il se mette sachant que je connais cette cellule est donnée par la ligne:

Code :

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

Cells(mycell.Row, 10).Select

?

[ouskel'n'or]

Code :

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

1
2
3
    Set TonBouton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=Range("A2").Left, Top:=Range("A2").Top, Width:=156.75, _
        Height:=129)

Placera ton bouton en "A2". De la même manière, tu peux appliquer la dimension de ta cellule à ton bouton (.Height et .Width de la cellule)

[frisou65]

Merci beaucoup. C'est impeccable.