Insérer le nom des checkboxs cochées dans une feuille excel

jennalex · 12 Juillet 2011

Bonjour à tous et à toutes,

J'ai un soucis. Je remplis une feuille EXCEL grâce à une Userform.
Cette Userform possède une frame dans laquel il ya 8 checkbox.

Mon souhait serait que lorsque que je clique su ok, le nom de chaque checkbox coché soit inséré dans le tableau colonne 6, les uns en dessous des autres.

J'ai écrit un petit programme qui ne fonctionne pas :
Private Sub CBok_Click()

With Worksheets(1)
derlign = .Range("a65536").End(xlUp).Row + 1
.Cells(derlign, 1).Value = CBclient.Value 'Nom du client
.Cells(derlign, 2).Value = TBcodearticle.Value 'Code article
.Cells(derlign, 3).Value = TBof.Value 'of
.Cells(derlign, 4).Value = TBind.Value 'Désignation

''''''''''''''''''''''''''''Choix du setceur'''''''''''''''''''''''''''''''''

If OBstructure.Value = True Then
Cells(derlign, 5) = OBstructure.Caption
End If

If OBmecanosoude.Value = True Then
Cells(derlign, 5) = OBmecanosoude.Caption
End If

If OBchaudronnerie.Value = True Then
Cells(derlign, 5) = OBchaudronnerie.Caption
End If

''''''''''''''''''''''''''''Choix du type d'opération(s)'''''''''''''''''''''

If CheckBox9.Value = True Then Cells(derlign, 6) = CheckBox9.Caption
If CheckBox10.Value = True Then Cells(derlign, 6) = CheckBox10.Caption
If CheckBox11.Value = True Then Cells(derlign, 6) = CheckBox11.Caption
If CheckBox12.Value = True Then Cells(derlign, 6) = CheckBox12.Caption
If CheckBox13.Value = True Then Cells(derlign, 6) = CheckBox13.Caption
If CheckBox14.Value = True Then Cells(derlign, 6) = CheckBox14.Caption
If CheckBox15.Value = True Then Cells(derlign, 6) = CheckBox15.Caption
If CheckBox16.Value = True Then Cells(derlign, 6) = CheckBox16.Caption

End With

Actuellement il ne m'insère que le nom de la checkbox la plus lointaine coché.
Je m'explique :

Si je coche checkbox 9, 10, 13
Il insère seulement le nom de la checkbox13

Quelqu'un peut-il m'aider? svp?

Merci d'avance

Jennifer

Pierrot93 · 12 Juillet 2011

Re : Insérer le nom des checkboxs cochées dans une feuille excel

Bonjour,

normal tu initialise la dernière ligne en début de procédure, alors qu'en fait elle doit changer au fur et à mesur que des données sont envoyées vers la feuille... modifie peut être toutes tes lignes de la sorte :

Code:

If CheckBox10.Value = True Then Cells(.Range("a65536").End(xlUp).Row + 1
, 6) = CheckBox10.Caption

bon après midi
@+

Robert · 12 Juillet 2011

Re : Insérer le nom des checkboxs cochées dans une feuille excel

Bonjour Jennalex, Pierrot, bonjour le forum,

Ou peut être le numéro de colonne à changer : 6, 7, ... 12. Ne faudrait-il pas mettre un point (.) devant les Cells (.Cells) ?

Guest · 12 Juillet 2011

Re : Insérer le nom des checkboxs cochées dans une feuille excel

Bonjour,

Si je comprend la question:

remplacer les lignes:

Code:

If CheckBox9.Value = True Then Cells(derlign, 6) = CheckBox9.Caption
If CheckBox10.Value = True Then Cells(derlign, 6) = CheckBox10.Caption
If CheckBox11.Value = True Then Cells(derlign, 6) = CheckBox11.Caption
If CheckBox12.Value = True Then Cells(derlign, 6) = CheckBox12.Caption
If CheckBox13.Value = True Then Cells(derlign, 6) = CheckBox13.Caption
If CheckBox14.Value = True Then Cells(derlign, 6) = CheckBox14.Caption
If CheckBox15.Value = True Then Cells(derlign, 6) = CheckBox15.Caption
If CheckBox16.Value = True Then Cells(derlign, 6) = CheckBox16.Caption

Aparté: tu as oublié les . devant les Cells

Par les lignes:

Code:

Dim i As Integer
For i = 9 To 16
   If Me.Controls("ChecBox" & i) Then .Cells(derlign, 6) = Me.Controls("ChecBox" & i).Caption
   derlign = derlign + 1
Next

Autre aparté: Ce n'est pas le nom des CheckBox (propriété .Name) que tu conserves mais leur propriété caption(texte affiché)

A+

Edition: Salut Robert

jennalex · 12 Juillet 2011

Re : Insérer le nom des checkboxs cochées dans une feuille excel

Merci à tous pour vos conseils!

Je vais essayer ces modifications!

merci!

Robert · 12 Juillet 2011

Re : Insérer le nom des checkboxs cochées dans une feuille excel

Bonjour le fil, bonjour le forum,

Au vu des autres résultats je me demande si ça serait pas plutôt :

Code:

If CheckBox9.Value = True Then .Cells(derlign, Application.Columns.Count).End(xlToLeft).Offset(0, 1) = CheckBox9.Caption

etc.

Guest · 12 Juillet 2011

Re : Insérer le nom des checkboxs cochées dans une feuille excel

Re,
Robert

J'ai appliqué bêtement:

soit inséré dans le tableau colonne 6, les uns en dessous des autres.

tout en me disant que son prochain .End(Xlup) serait pas le bon sur la colonne A

A+

Robert · 12 Juillet 2011

Re : Insérer le nom des checkboxs cochées dans une feuille excel

Bonjour le fil, bonjour le forum,

Bon Sang, mais c'est bien dur ! Je navet (accepté dans ce cas) que vite parcouru le problème de Jennalex mais c'est vous (Pierrot et toi) qui avez raison...

Guest · 12 Juillet 2011

Re : Insérer le nom des checkboxs cochées dans une feuille excel

Re,

Hey! j'avais même pas vu passer Pierrot

Que je salue avec plaisir.

A++

Staple1600 · 12 Juillet 2011

Re : Insérer le nom des checkboxs cochées dans une feuille excel

Bonsoir le fil

Hasco: T'as zappé le k , non ?

jennalex · 13 Juillet 2011

Re : Insérer le nom des checkboxs cochées dans une feuille excel

Bonjour à tous!

Aprés plusieurs essais, je réalisé un mixe de vos solution qui marche plutôt bien. Seul soucis :

Si je coche check9 : son nom (caption) s'inscrit dans les lignes 1 ET 9
Si je coche check9 et check11 ensuite et que je rappuie sur ok

le nom de check9 s'inscrit dans la ligne 2,
" " " " 11 s'inscrit dans la ligne 4,

puis il réécrit le nom de check 11 ligne10

J'ai beaucoup de mal à comprendre la logique du programme.
Pourquoi réécrit-il les noms? et pourquoi il effectue un décalage?

'''''''''''''''''''''''''''Annuler les données'''''''''''''''''''''''''''

Private Sub CBannuler_Click()

Dim derlign As Integer
ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).EntireRow.Select
Selection.Delete Shift:=xlUp

End Sub

''''''''''''''''''''''''''''''''' ok'''''''''''''''''''''''''''''''''''''

Private Sub CBok_Click()

With Worksheets(1)
derlign = .Range("A65536").End(xlUp).Row + 1
.Cells(derlign, 1).Value = CBclient.Value 'Nom du client
.Cells(derlign, 2).Value = TBcodearticle.Value 'Code article
.Cells(derlign, 3).Value = TBof.Value 'of
.Cells(derlign, 4).Value = TBind.Value 'Désignation

''''''''''''''''''''''''''''Choix du type d'opération(s)'''''''''''''''''''''
Dim i As Integer
For i = 9 To 16

If Me.Controls("CheckBox" & i) Then .Cells(derlign, 6) = Me.Controls("CheckBox" & i).Caption
derlign = derlign + 1
Next i

If CheckBox9.Value = True Then .Cells(derlign, 6) = CheckBox9.Caption
If CheckBox10.Value = True Then .Cells(derlign, 6) = CheckBox10.Caption
If CheckBox11.Value = True Then .Cells(derlign, 6) = CheckBox11.Caption
If CheckBox12.Value = True Then .Cells(derlign, 6) = CheckBox12.Caption
If CheckBox13.Value = True Then .Cells(derlign, 6) = CheckBox13.Caption
If CheckBox14.Value = True Then .Cells(derlign, 6) = CheckBox14.Caption
If CheckBox15.Value = True Then .Cells(derlign, 6) = CheckBox15.Caption
If CheckBox16.Value = True Then .Cells(derlign, 6) = CheckBox16.Caption

End With

End Sub

Cordialement,

jenn

Robert · 13 Juillet 2011

Re : Insérer le nom des checkboxs cochées dans une feuille excel

Bonjour le fil, bonjour le forum,

Jenn puisque tu boucles sur toutes les checkboxes avec :

Code:

For i = 9 To 16
If Me.Controls("CheckBox" & i) Then .Cells(derlign, 6) = Me.Controls("CheckBox" & i).Caption
derlign = derlign + 1
Next i

ces lignes sont en trop (donc à supprimer de ton code) :

Code:

If CheckBox9.Value = True Then .Cells(derlign, 6) = CheckBox9.Caption
If CheckBox10.Value = True Then .Cells(derlign, 6) = CheckBox10.Caption
If CheckBox11.Value = True Then .Cells(derlign, 6) = CheckBox11.Caption
If CheckBox12.Value = True Then .Cells(derlign, 6) = CheckBox12.Caption
If CheckBox13.Value = True Then .Cells(derlign, 6) = CheckBox13.Caption
If CheckBox14.Value = True Then .Cells(derlign, 6) = CheckBox14.Caption
If CheckBox15.Value = True Then .Cells(derlign, 6) = CheckBox15.Caption
If CheckBox16.Value = True Then .Cells(derlign, 6) = CheckBox16.Caption

Comprends, dans la boucle tu redéfinis derlign à chaque passage donc les Caption s'affichent ligne après ligne. Puis, sans boucle cette fois, tu réécris à nouveau la Caption de toutes les checkboxes mais sans actualiser la variable derlign donc tu te retrouves toujours avec, en dernière ligne, la Caption de la checkbox16...

jennalex · 13 Juillet 2011

Re : Insérer le nom des checkboxs cochées dans une feuille excel

Je vois ce que tu veux dire. Effectivement, il les noms ne sont plus doublés.
Cependant, si je coche la check 16 il place son nom dans la ligne 8.

Robert · 13 Juillet 2011

Re : Insérer le nom des checkboxs cochées dans une feuille excel

Bonjour le fil, bonjour le forum,

Oui c'est exact esssaie comme ça :

Code:

For i = 9 To 16
If Me.Controls("CheckBox" & i) Then
     .Cells(derlign, 6) = Me.Controls("CheckBox" & i).Caption
     derlign = derlign + 1
End If
Next i

La variable derlign n'est actualisée que quand la checkbox est vrai

jennalex · 13 Juillet 2011

Re : Insérer le nom des checkboxs cochées dans une feuille excel

yes! Merci Robert!

On se rapproche du but. Je vais encore travailler dessus car au bout de trois validation la dernière ligne est écrasée une fois sur deux!
Mais je ne perds pas espoir!^^

Effectuez une recherche sur Excel Downloads...

Insérer le nom des checkboxs cochées dans une feuille excel

jennalex

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

Guest

Guest

jennalex

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

Guest

Guest

Robert

XLDnaute Barbatruc

Guest

Guest

Staple1600

XLDnaute Barbatruc

jennalex

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

jennalex

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

jennalex

XLDnaute Nouveau

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums