cafiniou13
Habitué
Re bonjour,
Pas beaucoup plus experte que mon dernier message, j'aurais besoin d'un coup de pouce.
J'ai réussi à trouver comment récupérer un nom d'une listbox et à chercher ce nom dans la 1ère colonne de ma feuille "BD poste" pour le supprimer, mais je n'arrive pas à supprimer sur cette même ligne trouvée les données qui sont dans les colonnes B à N et la colonne Q. Je ne veux pas supprimer les éléments des colonnes O et P car j'ai des formules dedans.
[cpp]Private Sub CommandValider_Click()
Dim BDP As Worksheet
Dim T As Range
Dim TituASup As String
Set BDP = Worksheets("BD poste")
TituASup = ConfirmSUP.TitulaireASUP.Value
Set T = BDP.Columns(1).Cells.Find(what:=TituASup)
If T Is Nothing Then
MsgBox "Le titulaire n'a pas pu être supprimé. Vérifiez que vous avez sélectionné un Titulaire, sinon consultez votre Administrateur."
Unload Me
Else
BDP.Columns(1).Cells.Find(what:=TituASup).ClearContents
End If
Set T = Nothing
Unload Me
End Sub[/cpp]
A votre bon coeur!
Pas beaucoup plus experte que mon dernier message, j'aurais besoin d'un coup de pouce.
J'ai réussi à trouver comment récupérer un nom d'une listbox et à chercher ce nom dans la 1ère colonne de ma feuille "BD poste" pour le supprimer, mais je n'arrive pas à supprimer sur cette même ligne trouvée les données qui sont dans les colonnes B à N et la colonne Q. Je ne veux pas supprimer les éléments des colonnes O et P car j'ai des formules dedans.
[cpp]Private Sub CommandValider_Click()
Dim BDP As Worksheet
Dim T As Range
Dim TituASup As String
Set BDP = Worksheets("BD poste")
TituASup = ConfirmSUP.TitulaireASUP.Value
Set T = BDP.Columns(1).Cells.Find(what:=TituASup)
If T Is Nothing Then
MsgBox "Le titulaire n'a pas pu être supprimé. Vérifiez que vous avez sélectionné un Titulaire, sinon consultez votre Administrateur."
Unload Me
Else
BDP.Columns(1).Cells.Find(what:=TituASup).ClearContents
End If
Set T = Nothing
Unload Me
End Sub[/cpp]
A votre bon coeur!