Dans un document excel j'ai beaucoup de code VBA mais il y en a un que j'aimerais racourcir:

J'ai 7 fois

If, Else, End If

pour des case cocher tous indépendante une de l'autre, autemendit `

Si dans telle cellule= Une situation X, alors active, sinon non active

et comme ça pour 7 cellule différente, chacune n'étant pas une condition de l'autre, vraiment indépendante.

Je sais qu'il existe un code pour une plage, sauf pour que chaque case soit activé selon la cellule je ne sais pas comment.

MERCI

_________________
Carte ASRock 270 Pro4, CPU Intel I7 6700, 3.4Ghz, 32 Go de Ram, Windows 10 Pro (64 bits) sur SSD M2 500Go + 1DD SSD M2 de 500 Go et 2 DD de 2To + 1 DD de 1To, Carte graphique Intégré Intel et carte graphie Geforce, 3 moniteurs.

Pour ce genre de situation, j'utilisait du code genre :


For i = 1 To 7
Range("rRegionalFiles").Cells(i, 1).Value = Me.Controls("cbCaseACocher" & i).Value
Next i


Salutations
Eric

Merci cela me sera utile

_________________
Carte ASRock 270 Pro4, CPU Intel I7 6700, 3.4Ghz, 32 Go de Ram, Windows 10 Pro (64 bits) sur SSD M2 500Go + 1DD SSD M2 de 500 Go et 2 DD de 2To + 1 DD de 1To, Carte graphique Intégré Intel et carte graphie Geforce, 3 moniteurs.