pandaexcel
XLDnaute Nouveau
bonjour,
cela fait plusieurs heures que je cherche mon erreur sans la trouver :
je recupere une valeur d'une textbox est si elle correspond a une cellule contenue dans une plage, la macro doit effacer la ligne
seulement meme si la valeur de la textbox correspont a celle de la cellule
seul la condition else se lance
Private Sub CommandButton1_Click()
Dim i As Integer
TextBox2 = Val(TextBox1.Value)
Sheets("Base de donnée").Select
For i = 1 To Range("a2000").End(xlUp).Row
If Cells(i, 1).Value = TextBox2 Then
Cells(i, 6).EntireRow.Delete
i = i - 1
MsgBox "ligne effacee"
Sheets("Accueil").Select
Unload UserForm1
Panneauprincipal.Show 0
Else
MsgBox "occurence introuvable, veuillez retaper une autre valeur"
Unload UserForm1
UserForm1.Show 0
Exit For
End If
Next
End Sub
une idée ???
cela fait plusieurs heures que je cherche mon erreur sans la trouver :
je recupere une valeur d'une textbox est si elle correspond a une cellule contenue dans une plage, la macro doit effacer la ligne
seulement meme si la valeur de la textbox correspont a celle de la cellule
seul la condition else se lance
Private Sub CommandButton1_Click()
Dim i As Integer
TextBox2 = Val(TextBox1.Value)
Sheets("Base de donnée").Select
For i = 1 To Range("a2000").End(xlUp).Row
If Cells(i, 1).Value = TextBox2 Then
Cells(i, 6).EntireRow.Delete
i = i - 1
MsgBox "ligne effacee"
Sheets("Accueil").Select
Unload UserForm1
Panneauprincipal.Show 0
Else
MsgBox "occurence introuvable, veuillez retaper une autre valeur"
Unload UserForm1
UserForm1.Show 0
Exit For
End If
Next
End Sub
une idée ???