Ok, merci heureusement que tu es là :mrgreen:
Edit: ça marche enfin.
Donc le problème est résolu
Merci encore
Version imprimable
Ok, merci heureusement que tu es là :mrgreen:
Edit: ça marche enfin.
Donc le problème est résolu
Merci encore
Re bonjour,
Je viens de me rendre compte qu'il ne s'agit pas de la bonne case à cocher :cry:
Voici le bon code pour créer cette case :
Comment adapter ce code :Code:
1
2
3 ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=524, Top:=302, Width:=197, Height:=35). _
Afin que cette nouvelle case, puisse être créer, mise en forme et positionner automatiquement.Code:
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
Merci encore.
Je l'ai modifié en :Code:
1
2 Dim chk As CheckBox For I = 1 To 200
Ca me fait déjà pas la même erreur ....Code:
1
2 Dim chk As OLEObjects For I = 1 To 200
Il me dit :
Incompatibilité de Type :cfou:
EDIT: je tiens a signaler qu'il place quand même une box, que ce soit avant changement et après.
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:
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"