Simplifier ce code

[Cougar]

Bonjour le forum,

Comme simplifier ce code (j'ai 50X les mêmes lignes) :

If ActiveCell = TextBox1 And CheckBox1 = True Then
ActiveCell.EntireRow.Delete Shift:=xlUp
Else
ActiveCell.Offset(1, 0).Activate
End If
If ActiveCell = TextBox2 And CheckBox2 = True Then
ActiveCell.EntireRow.Delete Shift:=xlUp
Else
ActiveCell.Offset(1, 0).Activate
End If
If ActiveCell = TextBox3 And CheckBox3 = True Then
ActiveCell.EntireRow.Delete Shift:=xlUp
Else
ActiveCell.Offset(1, 0).Activate
End If
If ActiveCell = TextBox4 And CheckBox4 = True Then
ActiveCell.EntireRow.Delete Shift:=xlUp
Else
ActiveCell.Offset(1, 0).Activate
End If

Merci de votre aide.

 

[job75]

Re : Simplifier ce code

Bonsoir Cougar,

S'il y a bien 50 TextBox et CheckBox numérotées de 1 à 50 :

1) Dans un UserForm :

For i = 1 To 50
  If ActiveCell = Controls("TextBox" & i) And Controls("CheckBox" & i) Then
    ActiveCell.EntireRow.Delete
  Else
    ActiveCell.Offset(1).Activate
  End If
Next

2) Dans la feuille Excel active :

For i = 1 To 50
  If ActiveCell = ActiveSheet.Shapes("TextBox" & i) And ActiveSheet.Shapes("CheckBox" & i) Then
    ActiveCell.EntireRow.Delete
  Else
    ActiveCell.Offset(1).Activate
  End If
Next

Edit : dans le cas 2) si l'on place le code dans la feuille active, on peut remplacer ActiveSheet par Me

A+

 

[kjin]

Re : Simplifier ce code

Bonsoir,

If ActiveCell...

C'est une devinette ?😀

Edit : salut job 🙂
A+
kjin

 

[Cougar]

Re : Simplifier ce code

Bonjour Job75,

Impec.

Merci