Bonjour a tous j ai un petit soucis avec ma macro, je pense que c est une erreur d inattention.
Private Sub CommandButton1_Click()
TBox1.SetFocus
Dim I As Integer
'Clear the results page
Call ClearResults
'TextBox
Dim Digits As Double
Digits = TBox1.Value
ThisWorkbook.Worksheets("Call reports").Range("B1").Select
For I = 0 To I = 56 Step 1
If ActiveCell.Offset(I, 0).Select = Digits Then
ActiveCell.Offset(I, 21).Value = 1
Else
ActiveCell.Offset(I, 21).Value = 0
End If
Next I
'Empty the textbox
'TBox1.Value = ""
'go to page results
Sheets("Results").Select
Me.Hide
End Sub
Merci d avance pour votre aide
Private Sub CommandButton1_Click()
TBox1.SetFocus
Dim I As Integer
'Clear the results page
Call ClearResults
'TextBox
Dim Digits As Double
Digits = TBox1.Value
ThisWorkbook.Worksheets("Call reports").Range("B1").Select
For I = 0 To I = 56 Step 1
If ActiveCell.Offset(I, 0).Select = Digits Then
ActiveCell.Offset(I, 21).Value = 1
Else
ActiveCell.Offset(I, 21).Value = 0
End If
Next I
'Empty the textbox
'TBox1.Value = ""
'go to page results
Sheets("Results").Select
Me.Hide
End Sub
Merci d avance pour votre aide