Tomuscz | Bonjour tout le monde,
J'aurais besoin de votre aide sur trois points.
J'ai créé une macro pour inserer des CheckBox sur toutes les lignes d'un tableau.
1°) Je l'ai fait avec un For et du coup c'est assez long car il y a plus de 1500lignes. Ne peut on pas le faire autrement (genre en selectionnant toutes les cellules d'un coup et en inserant toutes les checkbox en même temps ?)
2°) J'aimerais qu'elles soient insérées en étant cochées (donc True), mais en placant un peu partout un valeur:=True ca n'a rien donné, comme puis-je faire ?
3°) Dans la macro essai() je souhaite copié l'était (vrai ou faux) des checkbox de chaque ligne dans une colonne de chacune des ligne mais cette macro ne marche pas, j'ai du mal nommer les checkbox dans Checkbox() ou mal les appeler dans essai() mais en remuant le truc dans tous les sens je n'ai pas réussi à m'extirper....
Merci par avance pour votre aide
Code :
- Sub CheckBox()
- Dim t, l, i
-
- NbreLignes = Application.CountA(Range("Q1:Q65536" )) + 3
- For i = 5 To 10
-
- Sheets(1).Activate
- Cells(i, 20).Select
- t = ActiveCell.Top
- l = ActiveCell.Left
- Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
- DisplayAsIcon:=False, Left:=l + 30, Top:=t + 2, Width:=10, Height:=10 _
- )
- Obj.Name = "Check" & i
- Next i
- End Sub
- Sub essai()
- For i = 5 To 10
- If "Check" & i.Value = True Then
- Cells(i, 25) = "OUI"
- Else
- Cells(i, 25) = "NON"
- End If
- Next i
- End Sub
|
Message édité par Tomuscz le 02-07-2009 à 12:36:23
|