Microsoft 365 Reduire code

Teren · 12 Décembre 2021

Bonjour, je suis novice, j'apprend doucement. Sui pourrai venir a mon aide sur code. J'aimerai apprendre à réduire.
Merci a vous d'avance.

Privat sub commandbutton1_click

Worksheets("feuil1").select
If combobox1.listindex=0 then
Range("G1")=checkbox1
Range("G2")=checkbox2
...
.
....

..
Jusque
Range("G50")=checkbox50
Activeworkbook.save
Sheets( " Départ").Activate
End if
End sub

fanch55 · 12 Décembre 2021

Bonsoir,
les checkboxs sont dans un Userform ?

Teren · 12 Décembre 2021

fanch55 à dit:
Bonsoir,
les checkboxs sont dans un Userform ?

Bonjour ,

Oui ils sont dans un userform. Quand je clic sur commandbutton sa range dans une feuille de classeur.

JM27 · 12 Décembre 2021

Bonsoir

For J = 1 To 50
Range("G" & J)= Me.Controls("checkbox" & J) .value
Next

fanch55 · 12 Décembre 2021

re,
Pas mieux que @JM27 ...]

Teren · 12 Décembre 2021

JM27 à dit:
Bonsoir

For J = 1 To 50
Range("G" & J)= Me.Controls("checkbox" & J) .value
Next

Teren · 12 Décembre 2021

Donc quelque soit le checkbox que je vais coché. Il va ranger a la bonne ligne.

JM27 · 12 Décembre 2021

Bonsoir
normalement oui
tu auras des true ou false sur chaque cellule

JM27 · 12 Décembre 2021

un peu plus fort :
pas besoin de select ou activate
en supposant que tu restes sur la feuille Départ

VB:

Private Sub commandbutton1_click()
    Dim J As Byte
    With Worksheets("feuil1")
        If combobox1.ListIndex = 0 Then
            For J = 1 To 50
            .Range("G" & J) = Me.Controls("checkbox" & J).Value
            Next
            ActiveWorkbook.Save
        End If
    End With
End Sub

Teren · 12 Décembre 2021

JM27 à dit:
Bonsoir
normalement oui
tu auras des true ou false sur chaque le

JM27 à dit:

un peu plus fort :
pas besoin de select ou activate
en supposant que tu restes sur la feuille Départ

VB:

Private Sub commandbutton1_click() Dim J As Byte With Worksheets("feuil1") If combobox1.ListIndex = 0 Then For J = 1 To 50 .Range("G" & J) = Me.Controls("checkbox" & J).Value Next ActiveWorkbook.Save End If End With End [/QUOTE] [/QUOTE]

Cliquez pour agrandir...

Teren · 12 Décembre 2021

Pourquoi J
Il me dit projet introuvable.

Teren · 12 Décembre 2021

JM27 à dit:
un peu plus fort :
pas besoin de select ou activate
en supposant que tu restes sur la feuille Départ

VB:

Private Sub commandbutton1_click() Dim J As Byte With Worksheets("feuil1") If combobox1.ListIndex = 0 Then For J = 1 To 50 .Range("G" & J) = Me.Controls("checkbox" & J).Value Next ActiveWorkbook.Save End If End With End Sub

JM27 · 12 Décembre 2021

et si tu postais ton fichier ? cela serait bien plus facile
J est le compteur

Teren · 12 Décembre 2021

Voici le code complet:
Private sub combobox1_dropbuttonclick()
If Combobox1.listcount=0 then
With combobox1
.additem " 01/01/22"
.additem "02/01/22"
.additem "03/01/22"
End with
End if
End sub

Private sub commandbutton1_click
Dim J as byte
With worksheets ("2022")
If combobox1.listindex=0 then
For J = 1 to 50
Range("G"&J)=me.controls("checkbox"&J).value
Next
Activeworkbook.save
End if
End with
End sub

La ligne range après for J =1 to 50 se mets en jaune erreur d'execution

JM27 · 12 Décembre 2021

il faut poster ton fichier
C'est certainement du à une check box mal orthographié
Quand tu passes la souris sur j, il a quelle valeur ?

de plus la copie est mal faite Il manqque un point devant le Range("G"&J)=me.controls("checkbox"&J).value
le point fait référence à la feuille
For J = 1 to 50
.Range("G"&J)=me.controls("checkbox"&J).value
Next

Pour ta formation: il fait indenter( des retraits) ton code comme je l'ai fais au #9 , ca facilite vraiment le déboggage, sinon cela devient vite incompréhensible

Microsoft 365 Reduire code

Teren

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Teren

XLDnaute Nouveau

JM27

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Teren

XLDnaute Nouveau

Teren

XLDnaute Nouveau

JM27

XLDnaute Barbatruc

JM27

XLDnaute Barbatruc

Teren

XLDnaute Nouveau

Teren

XLDnaute Nouveau

Teren

XLDnaute Nouveau

JM27

XLDnaute Barbatruc

Teren

XLDnaute Nouveau

JM27

XLDnaute Barbatruc

Discussions similaires