copier coller info userform vers checkbox

[jeremV]

Bonjour j'essaie par une userbox qui contacte une autre userbox de pouvoir lorsqu'il mets un nom que celui coche dans l'autre userbox mais ça ne fonctionne pas :/

If Me.CB2.Value = "F.Def........" Then
CheckBox1 = 1
End If

 

[Pierrot93]

Re : copier coller info userform vers checkbox

Bonjour,

essaye peut être ceci :

If Me.CB2.Value = "F.Def........" Then
UserForm2.CheckBox1 = True
End If

bonne journée
@+

 

[jeremV]

Re : copier coller info userform vers checkbox

If Me.CB2.Value = "F........" Then
LecturePoint.CheckBox1 = 1
End If

j'ai essayé mais sa fonctionne pas :/

 

[Pierrot93]

Re : copier coller info userform vers checkbox

Bonjour,

j'ai essayé mais sa fonctionne pas :/

cela veut dire quoi ? message d'erreur ou pas le résultat attendu ? sans plus de détails difficile d'en dire plus... mets en pj un tout petit fichier ne représentant que le problème posé, plus facile pour t'aider...

bonne journé
@+

 

[jeremV]

Re : copier coller info userform vers checkbox

Salut merci pour ton aide, je n'ai pas le resultat voulu, tu verra j'ai simulé ce que je vouler en premiere ligne ,et pour avoir la checkbox il faut cliquer sur la collone F' (attention chaque ligne de la collone f est propre à l'info de la ligne).

Donc je voudrais avoir lordque j'ai par exemple "dinde" que ma chebox lecturepoint soit à "dinde : coché"

merci d'avance!!!!!

 

[Pierrot93]

Re : copier coller info userform vers checkbox

Bonjour,

essaye peut être comme suit :

Public Sub ColonneF(V As String, Ligne As Long)
Dim c As Control
For Each c In Me.Controls
    If TypeName(c) = "CheckBox" Then
        If c.Caption = V Then c.Value = True
    End If
Next Ctrl
Me.Show vbModal
End Sub

bon après midi
@+

 

[jeremV]

Re : copier coller info userform vers checkbox

Public Sub ColonneF(V As String, Ligne As Long)
    Me.Tag = Ligne
    Dim T
    Dim I As Integer
    T = Split(V & "/", "/")
    For I = 0 To UBound(T)
        Select Case T(I)
        Case "F.Defe"
            CheckBox1.Value = 1
        Case "J.C. Desne"
            CheckBox2.Value = 1
        Case "F.Dewe"
            CheckBox3.Value = 1
        Case "O.Dinde"
            CheckBox4.Value = 1
        Case "S.Balde"
            CheckBox5.Value = 1
        Case "D.Mate"
            CheckBox6.Value = 1
        End Select
    Next
    Dim c As Control
For Each c In Me.Controls
    If TypeName(c) = "CheckBox" Then
        If c.Caption = V Then c.Value = True
    End If
Next
    mem = 0
    Me.Show vbModal
End Sub

merci a vous aussi. j'ai essayé mais toujours pas :/

 

[Pierrot93]

Re : copier coller info userform vers checkbox

Re,

le code proposé en remplacement de :

Dim T
    Dim I As Integer
    T = Split(V & "/", "/")
    For I = 0 To UBound(T)
        Select Case T(I)
        Case "F.Defe"
            CheckBox1.Value = 1
        Case "J.C. Desne"
            CheckBox2.Value = 1
        Case "F.Dewe"
            CheckBox3.Value = 1
        Case "O.Dinde"
            CheckBox4.Value = 1
        Case "S.Balde"
            CheckBox5.Value = 1
        Case "D.Mate"
            CheckBox6.Value = 1
        End Select
    Next

 

[jeremV]

Re : copier coller info userform vers checkbox

ça revient a ce que j'avais avant ça ne fait pas la fonction que je veux :/

 

[Pierrot93]

Re : copier coller info userform vers checkbox

Re,

vérifie ce que vaut ta variable "v"... doit correspondre au caractère près et la casse être respectée...

 

[jeremV]

Re : copier coller info userform vers checkbox

bah j'ai le fonctionnement normal moi je veux que en fonction de l'userform 1 elle agit sur la 2 tout simplement :/

 

[Pierrot93]

Re : copier coller info userform vers checkbox

Re,

regarde ceci, juste le problème posé....

 

[jeremV]

Re : copier coller info userform vers checkbox

impeccable c'est ça mais est il possible de cacher l'userform 2 ? pour quel ne s'affiche pas sur l'userform 1 ? stp

 

[Pierrot93]

Re : copier coller info userform vers checkbox

Re,

modifie cette procédure :

Private Sub CB2_Click()
Dim c As Control
With LecturePoint
    For Each c In .Controls
        If TypeName(c) = "CheckBox" Then
            If c.Caption = CB2.Value Then c.Value = True Else c.Value = False
        End If
    Next c
    .Show 0
End With
Me.Hide
End Sub

 

[jeremV]

Re : copier coller info userform vers checkbox

" erreur d'execution 401 impossible d'affichée une fuille non modale lorsqu'une feuille modale est affiché" c'est lorsque je le mets sur mon fichier a moi c'est bisard il fonctionne sur l'autre