Empêcher la suppression de la valeur si

Fermé

balou11 Messages postés 26 Date d'inscription jeudi 17 janvier 2013 Statut Membre Dernière intervention 1 juin 2022 - 31 mai 2022 à 07:03
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 1 juin 2022 à 08:20

Bonjour a tous,

Certains d'entre vous m'ont bien aidé pour réaliser le code ci dessous qui fonctionne à merveille. Par contre, j'aimerais ajouter la condition suivante :
Tant que le valeur recherchée est existant en feuil1 colonne "J", je ne peux pas supprimer cette valeur de la liste en feuil 2 colonne "G".

J'ai fais beaucoup d'essais main en vain .....je sèche ! ! !

Private Sub BtnSuppression_Click()
Dim entreprise As String
Dim ligne As Integer

Sheets("Liste").Select
If MsgBox("Confirme tu la suppression de cette ENTREPRISE ?", vbYesNo, "Demande de suppression de l'entreprise") = vbYes Then

ligne = Cells.Find(TxtEntrepriseRecherche.Value, , xlValues, xlWhole).Row 'correspond a la ligne recherchée

Range("G" & ligne & ":H" & ligne).Delete Shift:=xlUp ' permet de supprimer les cellules sélectionnées et de remonter vers le haut

Sheets("tableau de bord").Activate

End If

Merci par avance a tous de vos réponses.

A voir également:

Empêcher la suppression de la valeur si
Forcer la suppression d'un fichier - Guide
Suppression page word - Guide
Suppression compte instagram - Guide
Si valeur comprise entre x et y alors ✓ - Forum Excel
Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
31 mai 2022 à 11:55

Bonjour,

a adapter:

Sub test()
Dim entreprise As String
Dim ligne As Integer
Dim Trouve As Range
 entreprise = InputBox("Entrez le nom de l'entreprise:", "Suppression")
Set Trouve = Sheets("Feuil2").Columns(10).Cells.Find(what:=entreprise, LookAt:=xlWhole) 'colonne J à adapter le nom de la feuille
'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
    'ici, traitement pour le cas où la valeur n'est pas trouvée
    ligne = Cells.Find(entreprise, , xlValues, xlWhole).Row
Range("G" & ligne & ":H" & ligne).Delete Shift:=xlUp
Else
MsgBox "Valeur presente: " & Trouve.Address
    Exit Sub
End If
End Sub

Réponse 2 / 2

balou11 Messages postés 26 Date d'inscription jeudi 17 janvier 2013 Statut Membre Dernière intervention 1 juin 2022
1 juin 2022 à 07:14

Bonjour Le Pivert,
Votre code fonctionne parfaitement bien ! Félicitation.
Mais je vais essayer de le modifier (c'est pas gagné), car je préférerais ne pas avoir l'inputbox.

Merci beaucoup !

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
1 juin 2022 à 08:20

C'est simple, il suffit de remplacer la variable entreprise par TxtEntrepriseRecherche

Set Trouve = Sheets("Feuil2").Columns(10).Cells.Find(what:=TxtEntrepriseRecherche.Value, LookAt:=xlWhole) 'colonne J à adapter le nom de la feuille
'traitement de l'erreur possible : Si on ne trouve rien :
If Trouve Is Nothing Then
    'ici, traitement pour le cas où la valeur n'est pas trouvée
    ligne = Cells.Find(TxtEntrepriseRecherche.Value, , xlValues, xlWhole).Row

Voilà

@+

Discussions similaires

Message "Un bloqueur de publicité empêche la lecture..."

Problème de restrictions

Formule Excel : "SI" une cellule contient un mot, alors ?

comment desactiver un bloqueur de pub

Excel:récupérer le contenu d'une cellule en fonction d'une autre

Discussions similaires

Newsletters