[e-2003] Simplifier le code

[stargate]

Bonjour le forum,

Comment simplifier le code en tenat compte du passage dans un tableau

voici le code
mescels est déclaré en string dans déclaration générale
Private Sub Worksheet_Activate()
Dim x, i As Integer
mescels = " $D$3 $E$3 $F$3 $G$3 $H$3 $D$4 $E$4 $F$4 $G$4 $H$4 $D$5 $E$5 $F$5 $G$5 $H$5 $D$6 $E$6 $F$6 $G$6 $H$6 $D$7 $E$7 $F$7 $G$7 $H$7 $D$8 $E$8 $F$8 $G$8 $H$8 $D$9 $E$9 $F$9 $G$9 $H$9 $D$10 $E$10 $F$10 $G$10 $H$10 $D$11 $E$11 $F$11 $G$11 $H$11 $D$12 $E$12 $F$12 $G$12 $H$12 $D$13 $E$13 $F$13 $G$13 $H$13 $D$14 $E$14 $F$14 $G$14 $H$14 $D$15 $E$15 $F$15 $G$15 $H$15 $D$16 $E$16 $F$16 $G$16 $H$16 $D$17 $E$17 $F$17 $G$17 $H$17 $D$18 $E$18 $F$18 $G$18 $H$18 $D$19 $E$19 $F$19 $G$19 $H$19 $D$20 $E$20 $F$20 $G$20 $H$20 $D$21 $E$21 $F$21 $G$21 $H$21 $D$22 $E$22 $F$22 $G$22 $H$22 $D$23 $E$23 $F$23 $G$23 $H$23 $D$24 $E$24 $F$24 $G$24 $H$24 $D$25 $E$25 $F$25 $G$25 $H$25 $D$26 $E$26 $F$26 $G$26 $H$26 $D$27 $E$27 $F$27 $G$27 $H$27 $D$28 $E$28 $F$28 $G$28 $H$28 $D$29 $E$29 $F$29 $G$29 $H$29 $D$30 $E$30 $F$30 $G$30 $H$30 $D$31 $E$31 $F$31 $G$31 $H$31 $D$32 $E$32 $F$32 $G$32 $H$32 $D$33 $E$33 $F$33 $G$33 $H$33 $D$34 $E$34 $F$34 $G$34 $H$34 $D$35 $E$35 $F$35 $G$35 $H$35 $D$36 $E$37 $F$38 $G$39 $H$39 "

cboMaj.Visible = False

cboMaj.Clear



x = 1
While x < 184
With cboMaj
.AddItem Sheets("Sheet3").Range("A" & x)
End With
x = x + 1
Wend

tintin = Split(mescels, " ")
For i = 1 To UBound(tintin) - 1
Range(Replace(tintin(i), "$", "")).Value = ""
Next

End Sub

une idée merci

 

[JNP]

Re : [e-2003] Simplifier le code

Bonjour Stargate 🙂,
Peut-être comme ceci

Dim mescels As String, K As Integer
For K = 3 To 39
mescels = mescels & " $D$" & K & " $E$" & K & " $F$" & K & " $G$" & K & " $H$" & K
Next K

en s'arrêtant peut-être à 35 car la fin de tes Cells n'est plus régulière 😕...
Bon courage 😎

 

[stargate]

Re : [e-2003] Simplifier le code

ok merci et j'ai rectifié la fin

 

[pierrejean]

Re : [e-2003] Simplifier le code

bonjour stargate

Salut JNP

Si la fin de mescels est similaire au debut ceci devrait suffire

plage = Range("D3:H39")
For Each cel In plage
  Range(Replace(cel, "$", "")).Value = ""
Next cel

et peut-etre même

plage = Range("D3:H39")
For Each cel In plage
  Range(cel.value).Value = ""
Next cel