[XL-2003] Création automatique de Checkbox si cellule non vide

Création automatique de Checkbox si cellule non vide

Bonjour à tous,

Je suis nouvelle sur ce forum et j'ai besoin de votre d'aide.
J'ai parcouru des sites et de nombreuses discussions mais je n'ai pas trouvé de solution ! Je ne maîtrise assez les checkbox pour pouvoir adapter certains codes à ce que je souhaite
Sur mon tableau excel, via VBA, je voudrais créer automatiquement des checkbox selon les conditions suivantes:

Dans les colonnes F ou H si les cellules sont pleines (ou non vides) alors création automatique de checkbox sur les cellules de la colonne G
Si les cellules de la colonne L sont non vides alors checkbox dans la colonne K
Si cellules de la colonne O sont non vides alors chekbox dans la colonne N.

Je vous remercie pour vos futures réponses et reste à votre disposition pour de plus amples renseignements.
Help me !!!
Titou87

Bonjour le forum,

J'ai trouvé le code !! alors je vous le fais partager et je remercie ce forum et ainsi qu'un autre qui m'aide au quotidien pour créer mes codes !
Je ne suis pas une AS du VBA alors ce code n'est peut être pas trés joli mais il fonctionne !

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
37
38
39
40
41
42
43
44
45
46
47
48
Sub GenerateComboBox()
Dim Chekbox As OLEObject
Dim lngl As Integer
Dim Target As range
 
For i = 1 To 50
    ActiveWorkbook.Sheets(i).Select
    For lngl = 18 To 95
      Set Target = ActiveSheet.range("h" & lngl)
      If range("j" & lngl).Value <> "" Then
        Set Chekbox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
        With Chekbox
        .LinkedCell = Target.Offset(0, 1).Address(0, 0)
        .Object.Caption = ""
        .Object.Value = False
        End With
      End If
      Set Target = ActiveSheet.range("k" & lngl)
      If range("m" & lngl).Value <> "" Then
        Set Chekbox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
        With Chekbox
        .LinkedCell = Target.Offset(0, 1).Address(0, 0)
        .Object.Caption = ""
        .Object.Value = False
        End With
      End If
      Set Target = ActiveSheet.range("O" & lngl)
      If range("Q" & lngl).Value <> "" Then
        Set Chekbox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
        With Chekbox
        .LinkedCell = Target.Offset(0, 1).Address(0, 0)
        .Object.Caption = ""
        .Object.Value = False
        End With
      End If
      Set Target = ActiveSheet.range("s" & lngl)
      If range("u" & lngl).Value <> "" Then
        Set Chekbox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
        With Chekbox
        .LinkedCell = Target.Offset(0, 1).Address(0, 0)
        .Object.Caption = ""
        .Object.Value = False
        End With
       End If
 
    Next lngl
Next i
End Sub

A très bientôt

bonjour titou87
je démarre en vba
est-il possible de mettre un fichier excel
que je voie çe que ça donner concrètement
en te remerciant
nenemontserrat