Simplifier ce code

Cougar · 25 Janvier 2010

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 · 25 Janvier 2010

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 :

Code:

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 :

Code:

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 · 25 Janvier 2010

Re : Simplifier ce code

Bonsoir,

Cougar à dit:
If ActiveCell...

C'est une devinette ?😀

Edit : salut job 🙂
A+
kjin

Cougar · 25 Janvier 2010

Re : Simplifier ce code

Bonjour Job75,

Impec.

Merci

Simplifier ce code

Cougar

XLDnaute Impliqué

job75

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

Cougar

XLDnaute Impliqué

Discussions similaires

Simplifier ce code

Cougar

XLDnaute Impliqué

job75

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

Cougar

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency