Case a Cocher avec VBARésolu

Question

Bonjour,
Je but sur un drôle de problème, 
j'explique : j'ai une cellule excel avec la valeur X et moi je voudrais que si ma cellule est = X alors je crais ma case a cocher avec la valeur True
mais je n'arrive pas a influancer sur la valeur de ma checkbox 
si vous avez une idee faites moi signe SVP
kenny

 yep

lillith212 · Accepted Answer

Bonjour,

Montre nous ton code on pourra te dire ou se situe ton erreur.

Merci

SLB

leken · Answer

Je n'ai mit qu'une partie du code car sinon je pars dans tous les sens 
merci 
*********************************************************************   

*********************************************************************   
NameCell = Range(ActiveCell.Name.Name).Value  

  Set Position = Range(ActiveCell.Name.Name)
              Position.Select
              'On Error Resume Next
                l = Position.Left + (Position.Width / 2) - 5
                t = Position.Top + (Position.Height / 2) - 5
                w = 11.25 ' Position.Width
                h = 11.25 'Position.Height

 ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
       DisplayAsIcon:=False, Left:=l, Top:=t, Width:=w, Height:=h).Select
         ' TempsPause
       
            Namelabel = ActiveSheet.OLEObjects(1).Name

              'Ici dans le cas ou ma cellule n'est pas vide (ex: X)
                  If (NameCell <> "") Then
                            TempsPause
                               'ActiveSheet.Checkbox1.Value= 1 
                                ActiveSheet.Namelabel.Value = 1
                          TempsPause
                              MsgBox ("Pas vide " & Namelabel)
                  Else
                               'MsgBox ("Case vide " & NameCell)
               
                         End If
       
       
       
       'Creation de ma pause
      'TempsPause
        
   
   End If

 yep

leken · Answer

Autre approche, Peut on creer une case a cocher en VBA avec l'option True ????

 yep

cs_Orohena · Answer

Bonjour à tous

Le problème est que Range(ActiveCell.Name.Name).Value est invalide et te génère une erreur. Tu ne vois pas l'erreur vraisemblablement à cause d'une instruction on error plus haut dans ton programme.

Que veux tu exactement, créer une checkbox quand la cellule contient X, ou quand elle s'appelle X ?

Cordialement

leken · Answer

je cherche a creer un checkbox quand elle contient X et en effet j'avais ajouter on error pour palier une erreur au debut mais va falloir revoir pour que cela fonctionne

 yep

cs_Orohena · Answer

Bonjour Kenny

Si j'ai bien compris, tu veux créer une checkbox et la cocher lorsque la cellule active contient X. Voila le code qui permet de faire cela.

Private Sub test()
Dim l As Single, t As Single, w As Single, h As Single
Dim nom As String
With ActiveCell
    If .Value = "X" Then
        l = .Left + (.Width / 2) - 5
        t = .Top + (.Height / 2) - 5
        w = 11.25
        h = 11.25
       ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
            Link:=False, DisplayAsIcon:=False, Left:=l, Top:=t, _
            Width:=w, Height:=h).Select
        nom = Selection.Name
        ActiveSheet.OLEObjects(nom).Object.Value = True
    End If
End With
End Sub


Cordialement

leken · Answer

Merci orohena, j'avais opter pour une astuce qui n'etait pas tres jolie mais grace a toi j'ai exactement se que je chercheais 
merci

 yep

Case a Cocher avec VBA

7 réponses

Votre réponse

Discussions similaires