Recherche code VBA pour supprimer / modifier une ligne en fonction d'une

Question

Bonjour le forum étant un novice en vba, mais Grace à un peu de lecture et aux différents tutos sur le site je suis en train de créer un fichier. cependant je bute sur certains codes. dans le fichier joint, je cherche à supprimer une ligne dans une feuille grâce à une donnée numérique venant d'une autre feuille. la macro ce trouve dans le userform1 - commande du bouton2 (suppression) essais : en allant sur la feuille "JOURNAL" je clic droit sur la souris en ligne 41 = saisie n°35 le userform 1 s'ouvre - je clic sur le bouton "suppression" la ligne de la feuille " JOURNAL" ce vide bien par contre sur la feuille "6023 A" la suppression ne s'effectue pas IDEM pour MODIFIER un deuxième soucis dans le userform 2 : grâce au combobox je trouve la ligne correspondante (c'est ok) ; mais si je saisie directement la référence ; ca ne fonctionne pas. merci d'avance salutations...

Eric Kergresse · Accepted Answer

Modifiez : Private Sub CommandButton2_Click() If MsgBox("ATTENTION - Vous allez supprimer la ligne sélectionée", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then Nbl = ActiveCell.Row ' donne une variante If Nbl &lt; 7 Then Exit Sub ' à partir de la ligne 7 sur la ligne selectionné Rows(Nbl).ClearContents ' on efface toute la ligne ' RETIRER LES DONNEES DANS LA FEUILLE DE COMPTE CORRESPONDANTE ..... ETUDE EN COURS If ComboBox2.Value = "6023 A" Then With Sheets("6023 A") For I = .Range("A65000").End(xlUp).Row To 2 Step -1 If CStr(.Cells(I, 1)) = TextBox1.Value Then .Rows(I).EntireRow.Delete End If Next End With End If If ComboBox2.Value = "60281 M" Then With Sheets("60281 M") For I = .Range("A65000").End(xlUp).Row To 2 Step -1 If CStr(.Cells(I, 1)) = TextBox1.Value Then .Rows(I).EntireRow.Delete End If Next End With End If ' ETC ...... End If Worksheets("Systeme").Range("J4").ClearContents 'vide (oui) la cellule J4 de la feuille sytéme Unload UserForm1 'ferme la userform 1 End Sub...