Supprimer valeur a partir d'une macro

  • Initiateur de la discussion Initiateur de la discussion BRUNO62
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

BRUNO62

XLDnaute Occasionnel
Bonjour,

Besoin d'aide, merci.
Je souhaite supprimer automatiquement les valeur 1.2.4 dans une même colonne.
Et cela ne fonctionne pas.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For i = Range("B65536").End(xlUp).Row To 2 Step -1
If Cells(i, 2).Value = "1" Or Cells(i, 2).Value = "2" Or Cells(i, 2).Value = "4" Then
Cells(i, 2).EntireRow.delete Shift:=xlUp
End If
Next
End Sub


A+
 
Re : Supprimer valeur a partir d'une macro

Bonjour,

Besoin d'aide, merci.
Je souhaite supprimer automatiquement les valeur 1.2.4 dans une même colonne.
Et cela ne fonctionne pas.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For i = Range("B65536").End(xlUp).Row To 2 Step -1
If Cells(i, 2).Value = "1" Or Cells(i, 2).Value = "2" Or Cells(i, 2).Value = "4" Then
Cells(i, 2).EntireRow.delete Shift:=xlUp
End If
Next
End Sub


A+


Bonjour Bruno62,

As-tu essayé sans mettre tes valeurs entre guillemets ?

Ex :
Code:
If Cells(i, 2).Value = 1 Or Cells(i, 2).Value = 2 Or Cells(i, 2).Value = 4

Cordialement.
 
Re : Supprimer valeur a partir d'une macro

Re, au forum
13GIBE59 :Tes données sont bien dans la colonne B ? Tu as bien fait un double clic ?
OK.
Papou-net :If Cells(i, 2).Value = 1 Or Cells(i, 2).Value = 2 Or Cells(i, 2).Value = 4
OK
13GIBE59 : as-tu mis ta macro dans le code de ta feuille, et non dans un module ?
OK


J'ai tout essayé et la macro ne fonctionne pas ?

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
912
Réponses
15
Affichages
786
Réponses
10
Affichages
663
Réponses
4
Affichages
734
Retour