XL 2010 Importer le texte dans plusieurs onglet en fonction d'un ChekBox

Myst

XLDnaute Occasionnel
Bonsoir le forum
Ci-joint un petit fichier que je voudrais modifier, j'ai passé l'aprés midi dessus mais il y a toujour un bug quelque part donc je me tourne vers vous

1- je clique sur le boutton "Ajouter des événements" de l'onglet "Base"
2- l'userform1 s' ouvre et je remplis tous les ComboBox et TextBox puis je valide
3- toutes les données viennent ce copier dans l'onglet "Base"

La modification que je voudrais apporter est la suivante
1- je clique sur le boutton "Ajouter des événements" de l'onglet "Base"
2- l'userform1 s'ouvre et je remplis tous les ComboBox et TextBox
3- si je selection le chekbox2 je voudrais que les données ailles ce copier dans l'onglet "Base" et aussi dans "QIE"

merci
 

Fichiers joints

Lone-wolf

XLDnaute Barbatruc
Re : Importer le texte dans plusieurs onglet en fonction d'un ChekBox

Bonsoir Myst :)

Code:
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
With Sheets("QIE")
derligne = .Range("A65536").End(xlUp).Row + 1
For Each Ctrl In UserForm1.Controls
            r = Val(Ctrl.Tag)
            If r > 0 Then
                If r = 1 Then
                    .Cells(derligne, r) = CDate(Ctrl)
                Else
                    .Cells(derligne, r) = Ctrl
                End If
            End If
        Next
    End With
Else
Exit Sub
  End If
End Sub
 

Myst

XLDnaute Occasionnel
Re : Importer le texte dans plusieurs onglet en fonction d'un ChekBox

Bonsoir Lone-wolf, le forum
OK pour la solution mais je n'ai pas le contenu du TextBox7 dans l'onglet "QIE"
 

Fichiers joints

Lone-wolf

XLDnaute Barbatruc
Re : Importer le texte dans plusieurs onglet en fonction d'un ChekBox

Bonsoir Myst

Moi j'ai fait un test avant et je n'ai pas eu ce problème. La macro For Each Ctrl In UserForm1.Controls prends en charge tout les contrôles, je ne comprend pas.

EDIT: j'ai vu d'où venait le problème, Il faut enlever Else Exit Sub. Désolé pour le quack. :eek:
 
Dernière édition:

Myst

XLDnaute Occasionnel
Re : Importer le texte dans plusieurs onglet en fonction d'un ChekBox

Re
Merci pour tout ::cool:
une dernière chose, j'ai modifié un peu l'ensemble pourrais tu jeter un œil pour vérifié si l'ensemble des codes te parais cohérent ;)
Encore merci
 

Fichiers joints

Lone-wolf

XLDnaute Barbatruc
Re : Importer le texte dans plusieurs onglet en fonction d'un ChekBox

Bonjour Myst :)

Je viens de regarder les codes et tout me semble correct. Tu peux continuer sans soucis. ;)


À bientôt.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas