Bonjour à tous !
je voudrais savoir si c'est possible via mon userform de supprimer la ligne du tableau alimentée par la saisie (colonne A jusqu'à colonne M) au lieu de supprimer la ligne entière de la feuille de calcul
merci d'avance
Mag
voici mon code
Private Sub CmdSup_Click()
Dim CTRL As Control 'Variable pour la collection des controls
Dim i As Integer
Dim Response As Byte
'Ici un message demandant d'accepter la suppression en les listant
Response = MsgBox("Les coordonnées de " & vbCrLf & vbCrLf & _
"Nom : " & vbTab & vbTab & CmbNom & vbCrLf & vbCrLf & _
"Vont être définitivement Supprimées ? ", vbCritical + vbOKCancel, T)
'Si Réponse OK on continue
If Response = 1 Then
'ici avec la Feuille on va faire :
With WS
.Rows(Me.CmbNom.ListIndex + 4).EntireRow.Delete
End With
'On envoi un message de confirmation
MsgBox "Opération accomplie", vbInformation, T
Ini 'On lance la réinitialisation du UserForm (Macro en haut du Module)
'Si Réponse Annulation on envoi un message et on a rien fait
Else: MsgBox "Opération annulée", vbInformation, T
End If
End Sub
je voudrais savoir si c'est possible via mon userform de supprimer la ligne du tableau alimentée par la saisie (colonne A jusqu'à colonne M) au lieu de supprimer la ligne entière de la feuille de calcul
merci d'avance
Mag
voici mon code
Private Sub CmdSup_Click()
Dim CTRL As Control 'Variable pour la collection des controls
Dim i As Integer
Dim Response As Byte
'Ici un message demandant d'accepter la suppression en les listant
Response = MsgBox("Les coordonnées de " & vbCrLf & vbCrLf & _
"Nom : " & vbTab & vbTab & CmbNom & vbCrLf & vbCrLf & _
"Vont être définitivement Supprimées ? ", vbCritical + vbOKCancel, T)
'Si Réponse OK on continue
If Response = 1 Then
'ici avec la Feuille on va faire :
With WS
.Rows(Me.CmbNom.ListIndex + 4).EntireRow.Delete
End With
'On envoi un message de confirmation
MsgBox "Opération accomplie", vbInformation, T
Ini 'On lance la réinitialisation du UserForm (Macro en haut du Module)
'Si Réponse Annulation on envoi un message et on a rien fait
Else: MsgBox "Opération annulée", vbInformation, T
End If
End Sub