Bonjour,
j'ai ce qui suit dans un userform
Private Sub cmdsupprimer_Click()
If MsgBox("Vous etes sur le point de Supprimer l'entreprenneur" & " " &
lstentreprenneur1.Value & " " & "Êtes-vous sur de vouloir continuer ?",
vbYesNo) = vbNo Then
Exit Sub
Else
On Error Resume Next
varNum = lstentreprenneur1.Value
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
End If
End Sub
il supprimer juste la premirer ligne
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
le reste ce supprime pas :(
mais si j'enleve le .clear a la fin de la premiere ligne comme sa :
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0))
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
et bien les autre ce clear tout sauf le premier ce qui est normale car
j'ai enlever le .clear ...
bizzare je comprend pas :(
ya une facon plus simple de faire sa pour qu'il se clear tout ????
Merci.
Bonjour,
j'ai ce qui suit dans un userform
Private Sub cmdsupprimer_Click()
If MsgBox("Vous etes sur le point de Supprimer l'entreprenneur" & " " &
lstentreprenneur1.Value & " " & "Êtes-vous sur de vouloir continuer ?",
vbYesNo) = vbNo Then
Exit Sub
Else
On Error Resume Next
varNum = lstentreprenneur1.Value
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
End If
End Sub
il supprimer juste la premirer ligne
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
le reste ce supprime pas :(
mais si j'enleve le .clear a la fin de la premiere ligne comme sa :
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0))
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
et bien les autre ce clear tout sauf le premier ce qui est normale car
j'ai enlever le .clear ...
bizzare je comprend pas :(
ya une facon plus simple de faire sa pour qu'il se clear tout ????
Merci.
Bonjour,
j'ai ce qui suit dans un userform
Private Sub cmdsupprimer_Click()
If MsgBox("Vous etes sur le point de Supprimer l'entreprenneur" & " " &
lstentreprenneur1.Value & " " & "Êtes-vous sur de vouloir continuer ?",
vbYesNo) = vbNo Then
Exit Sub
Else
On Error Resume Next
varNum = lstentreprenneur1.Value
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
End If
End Sub
il supprimer juste la premirer ligne
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
le reste ce supprime pas :(
mais si j'enleve le .clear a la fin de la premiere ligne comme sa :
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0))
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
et bien les autre ce clear tout sauf le premier ce qui est normale car
j'ai enlever le .clear ...
bizzare je comprend pas :(
ya une facon plus simple de faire sa pour qu'il se clear tout ????
Merci.
Bonjour,
j'ai ce qui suit dans un userform
Private Sub cmdsupprimer_Click()
If MsgBox("Vous etes sur le point de Supprimer l'entreprenneur" & " " &
lstentreprenneur1.Value & " " & "Êtes-vous sur de vouloir continuer ?",
vbYesNo) = vbNo Then
Exit Sub
Else
On Error Resume Next
varNum = lstentreprenneur1.Value
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
End If
End Sub
il supprimer juste la premirer ligne
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
le reste ce supprime pas :(
mais si j'enleve le .clear a la fin de la premiere ligne comme sa :
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0))
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
et bien les autre ce clear tout sauf le premier ce qui est normale car
j'ai enlever le .clear ...
bizzare je comprend pas :(
ya une facon plus simple de faire sa pour qu'il se clear tout ????
Merci.
Bonjour,
j'ai ce qui suit dans un userform
Private Sub cmdsupprimer_Click()
If MsgBox("Vous etes sur le point de Supprimer l'entreprenneur" & " " &
lstentreprenneur1.Value & " " & "Êtes-vous sur de vouloir continuer ?",
vbYesNo) = vbNo Then
Exit Sub
Else
On Error Resume Next
varNum = lstentreprenneur1.Value
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
End If
End Sub
il supprimer juste la premirer ligne
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
le reste ce supprime pas :(
mais si j'enleve le .clear a la fin de la premiere ligne comme sa :
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0))
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
et bien les autre ce clear tout sauf le premier ce qui est normale car
j'ai enlever le .clear ...
bizzare je comprend pas :(
ya une facon plus simple de faire sa pour qu'il se clear tout ????
Merci.
Bonjour,
j'ai ce qui suit dans un userform
Private Sub cmdsupprimer_Click()
If MsgBox("Vous etes sur le point de Supprimer l'entreprenneur" & " " &
lstentreprenneur1.Value & " " & "Êtes-vous sur de vouloir continuer ?",
vbYesNo) = vbNo Then
Exit Sub
Else
On Error Resume Next
varNum = lstentreprenneur1.Value
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
End If
End Sub
il supprimer juste la premirer ligne
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
le reste ce supprime pas :(
mais si j'enleve le .clear a la fin de la premiere ligne comme sa :
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0))
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
et bien les autre ce clear tout sauf le premier ce qui est normale car
j'ai enlever le .clear ...
bizzare je comprend pas :(
ya une facon plus simple de faire sa pour qu'il se clear tout ????
Merci.
Bonjour,
j'ai ce qui suit dans un userform
Private Sub cmdsupprimer_Click()
If MsgBox("Vous etes sur le point de Supprimer l'entreprenneur" & " " &
lstentreprenneur1.Value & " " & "Êtes-vous sur de vouloir continuer ?",
vbYesNo) = vbNo Then
Exit Sub
Else
On Error Resume Next
varNum = lstentreprenneur1.Value
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(va
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
End If
End Sub
il supprimer juste la premirer ligne
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(va
Range("Nom_Entreprenneur"), 0)).Clear
le reste ce supprime pas :(
mais si j'enleve le .clear a la fin de la premiere ligne comme sa :
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(va
Range("Nom_Entreprenneur"), 0))
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
et bien les autre ce clear tout sauf le premier ce qui est normale car
j'ai
enlever le .clear ...
bizzare je comprend pas :(
ya une facon plus simple de faire sa pour qu'il se clear tout ????
Merci.
Bonjour,
j'ai ce qui suit dans un userform
Private Sub cmdsupprimer_Click()
If MsgBox("Vous etes sur le point de Supprimer l'entreprenneur" & " " &
lstentreprenneur1.Value & " " & "Êtes-vous sur de vouloir continuer ?",
vbYesNo) = vbNo Then
Exit Sub
Else
On Error Resume Next
varNum = lstentreprenneur1.Value
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(va
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
End If
End Sub
il supprimer juste la premirer ligne
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(va
Range("Nom_Entreprenneur"), 0)).Clear
le reste ce supprime pas :(
mais si j'enleve le .clear a la fin de la premiere ligne comme sa :
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(va
Range("Nom_Entreprenneur"), 0))
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
et bien les autre ce clear tout sauf le premier ce qui est normale car
j'ai
enlever le .clear ...
bizzare je comprend pas :(
ya une facon plus simple de faire sa pour qu'il se clear tout ????
Merci.
Bonjour,
j'ai ce qui suit dans un userform
Private Sub cmdsupprimer_Click()
If MsgBox("Vous etes sur le point de Supprimer l'entreprenneur" & " " &
lstentreprenneur1.Value & " " & "Êtes-vous sur de vouloir continuer ?",
vbYesNo) = vbNo Then
Exit Sub
Else
On Error Resume Next
varNum = lstentreprenneur1.Value
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(va
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
End If
End Sub
il supprimer juste la premirer ligne
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(va
Range("Nom_Entreprenneur"), 0)).Clear
le reste ce supprime pas :(
mais si j'enleve le .clear a la fin de la premiere ligne comme sa :
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(va
Range("Nom_Entreprenneur"), 0))
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
et bien les autre ce clear tout sauf le premier ce qui est normale car
j'ai
enlever le .clear ...
bizzare je comprend pas :(
ya une facon plus simple de faire sa pour qu'il se clear tout ????
Merci.
Bonjour,
j'ai ce qui suit dans un userform
Private Sub cmdsupprimer_Click()
If MsgBox("Vous etes sur le point de Supprimer l'entreprenneur" & " " &
lstentreprenneur1.Value & " " & "Êtes-vous sur de vouloir continuer ?",
vbYesNo) = vbNo Then
Exit Sub
Else
On Error Resume Next
varNum = lstentreprenneur1.Value
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
End If
End Sub
il supprimer juste la premirer ligne
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
le reste ce supprime pas :(
mais si j'enleve le .clear a la fin de la premiere ligne comme sa :
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0))
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
et bien les autre ce clear tout sauf le premier ce qui est normale car
j'ai enlever le .clear ...
bizzare je comprend pas :(
ya une facon plus simple de faire sa pour qu'il se clear tout ????
Merci.
Bonjour,
j'ai ce qui suit dans un userform
Private Sub cmdsupprimer_Click()
If MsgBox("Vous etes sur le point de Supprimer l'entreprenneur" & " " &
lstentreprenneur1.Value & " " & "Êtes-vous sur de vouloir continuer ?",
vbYesNo) = vbNo Then
Exit Sub
Else
On Error Resume Next
varNum = lstentreprenneur1.Value
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
End If
End Sub
il supprimer juste la premirer ligne
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
le reste ce supprime pas :(
mais si j'enleve le .clear a la fin de la premiere ligne comme sa :
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0))
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
et bien les autre ce clear tout sauf le premier ce qui est normale car
j'ai enlever le .clear ...
bizzare je comprend pas :(
ya une facon plus simple de faire sa pour qu'il se clear tout ????
Merci.
Bonjour,
j'ai ce qui suit dans un userform
Private Sub cmdsupprimer_Click()
If MsgBox("Vous etes sur le point de Supprimer l'entreprenneur" & " " &
lstentreprenneur1.Value & " " & "Êtes-vous sur de vouloir continuer ?",
vbYesNo) = vbNo Then
Exit Sub
Else
On Error Resume Next
varNum = lstentreprenneur1.Value
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
End If
End Sub
il supprimer juste la premirer ligne
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
le reste ce supprime pas :(
mais si j'enleve le .clear a la fin de la premiere ligne comme sa :
Sheets("entreprenneur").Range("Nom_entreprenneur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0))
Sheets("entreprenneur").Range("Destinataire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("Adresse").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("ville").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cp").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telephone").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("telecopieur").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("padget").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("residence").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
Sheets("entreprenneur").Range("cellulaire").Item(Application.Match(varNum,
Range("Nom_Entreprenneur"), 0)).Clear
et bien les autre ce clear tout sauf le premier ce qui est normale car
j'ai enlever le .clear ...
bizzare je comprend pas :(
ya une facon plus simple de faire sa pour qu'il se clear tout ????
Merci.