Simplifier Code Userform

[hypo78]

Bonjour à tous,

j'ai un code dans un Userform du type :

Private Sub CommandButton1_Click()

'mise en mémoire du dernier numero de ligne non vide
ligne_bas = Range("A65536").End(xlUp).Row

'Basculement des données userform dans feuille excel
Range("A" & ligne_bas + 1).Value = TextBoxDate.Text

Range("B" & ligne_bas + 1).Value = CheckBox1.Value
If CheckBox1.Value = True Then
Range("B" & ligne_bas + 1) = "R"
Else
Range("B" & ligne_bas + 1).Value = ""
End If

Range("C" & ligne_bas + 1).Value = CheckBox2.Value
If CheckBox2.Value = True Then
Range("C" & ligne_bas + 1) = "R"
Else
Range("C" & ligne_bas + 1).Value = ""
End If


Range("D" & ligne_bas + 1).Value = CheckBox3.Value
If CheckBox3.Value = True Then
Range("D" & ligne_bas + 1) = "R"
Else
Range("D" & ligne_bas + 1).Value = ""
End If


End Sub

Dans l'exemple, je m'arrête à la colonneD, mais mon besoin est sur 35 colonnes (checkbox de 1 à 35) et ce sur plusieurs feuilles.

Je découvre les Userform depuis 5 jours, donc ma question, il y a-t-il moyen de simplifier ce code, ou dois-je taper les 35 codes x n-feuilles.

Merci d'avance.

 

[Staple1600]

Re : Simplifier Code Userform

Bonsoir


Oui, il suffit de boucler sur les contrôles

Tu trouveras sur le forum d'anciennes discussions qui illustrent cela.

Un exemple au hasard parmi beaucoup
https://www.excel-downloads.com/thr...e-tous-les-controles-150-dun-userform.172097/

PS: joindre un fichier exemple nous permet de tester nos propositions...

Comme je suis dans un bon jour
Inspires-toi du code ci-dessous

Private Sub CommandButton1_Click()
Dim i, j As Long
j = [A65536].End(xlUp)(2).Row
For i = 1 To 6 ' à adapter à ton cas
Cells(j, i) = IIf(Controls("CheckBox" & i), "R", vbNullString)
Next i
End Sub

 

[hypo78]

Re : Simplifier Code Userform

Bsr,

je vais tester çà.
Merci pour ta réponse rapide.
Cordialement.

 

[hypo78]

Re : Simplifier Code Userform

Re,

effectivement çà fonctionne bien quand je colle ton code, mais sur mon fichier il me faut la date en colonne 1.
du coup j'ai un peu de mal à adapter ton code.
je vais mettre un petit exemple rapidemant.

Cordialement.

edit : c'est bon j'ai trouvé avec çà :

Private Sub CommandButton1_Click()
Dim i, j As Long
j = [A65536].End(xlUp)(2).Row
Cells(j, 1) = TextBoxDate.Value
For i = 2 To 8 ' à adapter à ton cas
Cells(j, i) = IIf(Controls("CheckBox" & i - 1), "R", vbNullString)
Next i
End Sub

 

[Pierrot93]

Re : Simplifier Code Userform

Bonjour,

mais sur mon fichier il me faut la date en colonne 1.
du coup j'ai un peu de mal à adapter ton code.

essaye peut être la fonction "cdate" :

Cells(j, 1) = CDate(TextBoxDate.Value)

bonne journée
@+

 

[hypo78]

Re : Simplifier Code Userform

Bjr Pierrot,

si tu as un peu de temps pour un autre post, car là je désespère, je tourne en rond sur un truc qui pourtant à l'air de se faire un peu partout....

https://www.excel-downloads.com/threads/formulaire-liste-de-validation-userform-ajout.173833/

Cordialement

 

[hypo78]

Re : Simplifier Code Userform

Bonjour,
j'avance sur mon projet, et forcement d'autres questions se posent.

Situation : j'appelle mon Userform à partir d'un bouton (ARI) que l'on trouve sur tous les onglets (il y en aura 100 dans le projet définitif) .
L'Userform est composé de 2 multipages de chacun 3 pages et chaque page comporte 35 CheckBox.

Lorsque que l'on valide, les CheckBox envoi des infos sur des onglets (dossards ou masques).

Dans l'écriture de mon code, au moment de ce transfert, la feuille destinatrice devient active.

Ce que je souhaite, que l'utilisateur reste sur la feuille depuis lequel il a activé l'Userform.

En espérant avoir été clair.

 

[belerofon]

Re : Simplifier Code Userform

ca suffit pas si tu rentres ca a la fin de ton code en action au bouton "quitter"? :

Private Sub CommandButton_Click()
Set WS = ThisWorkbook.Sheets("LA_PAGE_QUI_ACTIVE_L_USERFORM")
WS.Select
Unload Me
End Sub