Me.Controls("textbox" & j + 10).Value = ActiveCell.Value

Bonjour,

Voici le code problématique :

Private Sub Supprimer()
Dim j As Byte

For j = 1 To 10
If Me.Controls("e;checkbox"e; & j).Value = True Then
Do Until Me.Controls("e;textbox"e; & j + 10).Value = ActiveCell.Value 'ici les valeurs sont identiques
ActiveCell.EntireColumn.Delete
Loop
End If
ActiveCell.Offset(0, 1).Activate
Next
End Sub

Bien que le textbox et la cellule aient la même valeur, le code les perçoit comme différents. Pourquoi ?

Pouvez-vous m'aider SVP ?

Merci