Supprimer une ligne via un userform Résolu

Question

Bonjour,

J'ai fait un tableau pour le travail qui me permet de gérer l'accueil. Lorsque j'ouvre mon tableau on sélectionne le mois et ça ouvre la bonne feuille.
Il y a un userform qui apparait et quand on clique sur supprimer un consultant ça affiche un userform demandant le numéro d'ordre (de consultation en colonne A). Je souhaiterais que ça supprime toute la ligne de la feuille active quand on valide.

J'ai mis ça comme code :

Private Sub CommandButton1_Click()
Dim i As Integer
With ThisWorkbook.ActiveSheet
For i = Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("A" & i).Value = TextBox1 Then
.Row(i).Delete
End If
Next i
End With
UserForm_SUPPRESSION.Hide
End Sub

Mais ça ne fonctionne pas...quelqu'un pourrait me dire ce qui ne va pas ?

Merci encore d'avance.

Cordialement,

Rémi

Remi2236 · Answer

J'ai omis de joindre le tableau :
https://www.cjoint.com/c/HIykoTdxsrT

thev · Answer

Bonjour,

ci-dessous correction du code

Private Sub CommandButton1_Click()
    Dim i As Integer
    Const mot_de_passe As String = "XXXXX"
    
    With ThisWorkbook.ActiveSheet
        For i = Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
            If .Range("A" & i).Value = Val(TextBox1) Then
                .Unprotect mot_de_passe
                .Rows(i).Delete
                .Protect mot_de_passe
            End If
        Next i
    End With
    Me.Hide
End Sub
 
NB :
1- votre numéro d'ordre est numérique mais celui saisi dans le formulaire est au format texte, il faut donc le convertir
2- erreur sur la propriété "Rows" et non "Row"
3- mot de passe à définir : remplacer les "XXXX"
4- nul besoin de répéter le formulaire, l'objet "Me" le représente
5- pour une meilleure lisibilité du code, procéder à son indentation, c.a.d. aligner correctement les instructions with, for, if.

thev · Answer

Bonjour,

Assurez--vous que l'événement "Change" ne porte que sur une seule cellule. 
ci-dessous correction  du code :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("D2:E3627")) Is Nothing And Target.Count = 1 Then
    If Not IsEmpty(Target) Then
      Application.EnableEvents = False
      Target.Value = UCase(Target.Value)
      Application.EnableEvents = True
    End If
  End If
End Sub


Pour le numéro d'ordre, modifier votre formule ainsi
 =SI(NON(ESTVIDE(C2));LIGNE(C2)-1;"")

thev · Answer

Bonjour,

Je vous propose ce code car la suppression du format conditionnel lorsqu'il n'existe pas, provoque une erreur. 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim champ As Range
    
    Set champ = Me.Range("C:G")
    On Error Resume Next
    If Not Intersect(champ, Target) Is Nothing And Target.Count = 1 Then
        Intersect(Target.EntireRow, champ).FormatConditions.Delete
        Intersect(Target.EntireRow, champ).FormatConditions.Add Type:=xlExpression, Formula1:="VRAI"
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        Selection.FormatConditions(1).Interior.Color = RGB(0, 255, 0)
    End If
End Sub
Ici, l'objet "Me" représente la feuille car le code est rattaché à la feuille.


et cette formule pour février :
=SI(NON(ESTVIDE(C2));MAX(Janvier!A:A)+LIGNE(C2)-1;"")

thev · Answer

Bonjour,

Dans ce cas, il suffit de supprimer pour les colonnes C à G toute mise en forme conditionnelle qu'elle existe ou non.
modification du code ci-dessous :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim champ As Range
    
    Set champ = Range("C:G")
    On Error Resume Next
    champ.FormatConditions.Delete
    If Not Intersect(champ, Target) Is Nothing And Target.Count = 1 Then
        Intersect(Target.EntireRow, champ).FormatConditions.Add Type:=xlExpression, Formula1:="VRAI"
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        Selection.FormatConditions(1).Interior.Color = RGB(0, 255, 0)
    End If
End Sub

Supprimer une ligne via un userform

5 réponses

Discussions similaires

Newsletters