Insértion automatique de checkboxes - Vérifier si une cellule n'est pas liée à une checkbox avant de l'insérer

Version imprimable

Bonjour,

A l'aide du code suivant j'arrive à insérer automatiquement des checkboxes (O/N) dans toutes les lignes existantes de la colonne N :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub AjoutCheckBox() Dim cell As Range Dim i As Integer Dim j As Integer i = ActiveSheet.UsedRange.Rows.Count 'nombre de lignes existantes j = 3' ma première ligne à considérer est la 3éme For Each cell In Range("N" & j & ":N" & i) With ActiveSheet.CheckBoxes.Add(cell.Left, _ cell.Top, cell.Width, cell.Height) .LinkedCell = cell.Offset(, 1) .Name = "CheckBox_N_" & j .Caption = "O/N" End With j = j + 1 Next
Le problème est qu'à chaque exécution, des nouvelles checkboxes s'insèrent par dessus celles créées par les exécutions précédentes. J'aimerais donc être capable d'insérer des nouvelles checkboxes seulement dans les cellules n'en contenant pas pour ne pas écraser les anciennes. Voici le scénario classique :
1- Je crée 3 nouvelles lignes avec des données dans les autres colonnes (la colonne N est vide)
2- J’exécute ma Macro, les 3 checkbox s'insèrent automatiquement dans les lignes 3 à 6 (vu que ma première ligne de données est la 3éme)
3- J'insère une nouvelle ligne (manuellement, à l'aide des menus excel)
4- Je ré-exécute ma macro => Seulement une nouvelle checkbox s’insère dans la colonne 7N.
5- Ainsi de suite

Merci d'avance de votre aide.

Bonjour,

Petite question...
Combien peut-il y avoir de checkbox dans ta feuille ?

Une solution parmi d'autres...

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
Sub AjoutCheckBox()
    Dim cell As Range
    Dim i As Integer
    Dim j As Integer
 
    i = 8       'ActiveSheet.UsedRange.Rows.Count 'nombre de lignes existantes
 
    j = 3 ' ma première ligne à considérer est la 3éme
    For Each cell In Range("N" & j & ":N" & i)
        If Not CheckboxExiste("CheckBox_N_" & j) Then
            With ActiveSheet.CheckBoxes.Add(cell.Left, _
               cell.Top, cell.Width, cell.Height)
               .LinkedCell = cell.Offset(, 1)
               .Name = "CheckBox_N_" & j
               .Caption = "O/N"
            End With
        End If
        j = j + 1
    Next
End Sub
 
Function CheckboxExiste(Nom As String) As Boolean
    On Error GoTo Erreur
    If ActiveSheet.Shapes(Nom).AlternativeText <> "" Then CheckboxExiste = True
 
Erreur:
 
End Function

12/09/2013, 23h34
Marc-L
Bonjour,

j'ai eu la même idée que Parmi dans le cas de Shapes mais j'ai dû partir dîner …

Nommer la case à cocher avec l'adresse de la cellule liée.
Avant de créer une nouvelle case à cocher, vérifier l'existence via l'adresse de la cellule liée …

Au passage, ma fonction de vérification est un poil plus simple :
Code:

1 2 3 4 Function ExistShape(S) As Boolean On Error Resume Next ExistShape = IsObject(ActiveSheet.Shapes(S)) End Function
13/09/2013, 09h50
elmiz

Bonjour,

Merci de vos réponses. Les deux solutions de Parmi et de Marc-L marchent parfaitement :).

Pour répondre à la question de Parmi; la feuille de calcul peut contenir autant de checkboxes que de lignes (une checkbox par ligne). Ce nombre n'est pas défini à l'avance. A chaque ajout de ligne ma macro doit s'occuper d'ajouter la checkbox ou il faut ;)
13/09/2013, 15h04
parmi

Marc-L, bonne idée ton IsObject :ccool:

Elmiz, le nombre pourrait influer sur le rendement du fichier.
Si on parle de quelques dizaines de checkbox, ça peut aller, mais s'il y en a des centaines, voire des milliers, je pense que tu vas devoir revoir ton analyse... Ça risque de ramer pas mal...