Discussion :

[strifer]

Ok, merci heureusement que tu es là

Edit: ça marche enfin.

Donc le problème est résolu

Merci encore

[strifer]

Re bonjour,

Je viens de me rendre compte qu'il ne s'agit pas de la bonne case à cocher

Voici le bon code pour créer cette case :

Code :

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

1
2
3
 
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=524, Top:=302, Width:=197, Height:=35). _

Comment adapter ce code :

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
23
 
 
Dim chk As CheckBox
For I = 1 To 200
 
    Set chk =Sheets("" & I).CheckBoxes.Add(285.75, 204, 96, 24.75)
   With chk
        .Text = "Revalorisation de tarif"
        .Value = xlOff
        .LinkedCell = "Récap!$k$" & I + 1
        .Display3DShading = False
        .ShapeRange.Fill.Visible = msoTrue
        .ShapeRange.Fill.Solid
        .ShapeRange.Fill.ForeColor.SchemeColor = 52
        .ShapeRange.Fill.Transparency = 0#
        .ShapeRange.Line.Weight = 0.5
        .ShapeRange.Line.DashStyle = msoLineSolid
        .ShapeRange.Line.Style = msoLineSingle
        .ShapeRange.Line.ForeColor.SchemeColor = 64
        .ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
 
 
    End With

Afin que cette nouvelle case, puisse être créer, mise en forme et positionner automatiquement.

Merci encore.

[strifer]

Code :

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

1
2
Dim chk As CheckBox
For I = 1 To 200

Je l'ai modifié en :

Code :

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

1
2
Dim chk As OLEObjects
For I = 1 To 200

Ca me fait déjà pas la même erreur ....

Il me dit :
Incompatibilité de Type

EDIT: je tiens a signaler qu'il place quand même une box, que ce soit avant changement et après.

[strifer]

Pour le moment je vois pas trop.....

A moins que vous ayez une solution pour grossir la taille du texte dans le premier checkbox.
Celui-ci :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Dim chk As CheckBox
For I = 1 To 200
 
 
    Sheets("" & I).Unprotect "pasbbil"
 
   Set chk = Sheets("" & I).CheckBoxes.Add(456, 16.5, 51, 24)
   With chk
 
 
 
        .Text = "Nouveau Domaine"
        .ShapeRange.ScaleWidth 1.97, msoFalse, msoScaleFromTopLeft
        .Value = xlOff
        .LinkedCell = "Récap!$J$" & I + 1
        .Display3DShading = False
        .ShapeRange.Fill.Visible = msoTrue
        .ShapeRange.Fill.Solid
        .ShapeRange.Fill.ForeColor.SchemeColor = 52
        .ShapeRange.Fill.Transparency = 0#
        .ShapeRange.Line.Weight = 0.5
        .ShapeRange.Line.DashStyle = msoLineSolid
        .ShapeRange.Line.Style = msoLineSingle
        .ShapeRange.Line.ForeColor.SchemeColor = 64
        .ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
        .ShapeRange.IncrementLeft -397.5
        .ShapeRange.IncrementLeft 2.25
        .ShapeRange.IncrementTop 188.25
        .ShapeRange.ScaleWidth 1.02, msoFalse, msoScaleFromBottomRight
        .ShapeRange.ScaleWidth 0.99, msoFalse, msoScaleFromBottomRight
 
 
 
        End With
 
 Sheets("" & I).Protect "Pasbbil"