Vider cellule sous condition
Résolu/Fermé
wakafa
-
Modifié le 7 déc. 2020 à 17:02
yg_be Messages postés 21821 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 3 octobre 2023 - 8 déc. 2020 à 14:20
yg_be Messages postés 21821 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 3 octobre 2023 - 8 déc. 2020 à 14:20
A voir également:
- Vider cellule sous condition
- Excel cellule couleur si condition texte - Guide
- Verrouiller cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Vider les cookies - Guide
- Recherchev avec condition si ✓ - Forum Excel
4 réponses
yg_be
Messages postés
21821
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
3 octobre 2023
1 383
7 déc. 2020 à 16:20
7 déc. 2020 à 16:20
bonjour,
moi je me méfierais du
en passant, je trouve que Offset est inutile ici, et je ferais plutôt, par exemple:
au lieu de
moi je me méfierais du
Rowssans précision de la feuille, et je ferais:
For i = 3 To sh1.Cells(sh1.Rows.Count, "I").End(xlUp).Row
en passant, je trouve que Offset est inutile ici, et je ferais plutôt, par exemple:
Range("B" & i)
au lieu de
Range("I" & i).Offset(0, -7)
Bonjour yg_be,
Merci pour votre retour.
J’ai effectué les changements mais la suppression ne se fait toujours pas et pas de message d’erreur.
Merci pour votre retour.
J’ai effectué les changements mais la suppression ne se fait toujours pas et pas de message d’erreur.
yg_be
Messages postés
21821
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
3 octobre 2023
1 383
7 déc. 2020 à 20:02
7 déc. 2020 à 20:02
peux-tu partager ton fichier?
M-12
Messages postés
1333
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
298
7 déc. 2020 à 17:04
7 déc. 2020 à 17:04
Bonjour
Teste comme ceci
Teste comme ceci
Private Sub CommandButton7_Click() Set sh1 = Sheets("planning") For i = 3 To sh1.Cells(Rows.Count, "I").End(xlUp).Row If sh1.Range("I" & i).Text = TextBox4.Value Then If sh1.Range("B" & i).Text <> TextBox21.Value Then sh1.Range("I" & i).Value = "" sh1.Range("I" & i).Offset(0, 1).Value = "" sh1.Range("I" & i).Offset(0, -1).Value = "" End If End If Next i MsgBox ("Fichier actualisé") End Sub
yg_be
Messages postés
21821
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
3 octobre 2023
1 383
>
Wakafa
8 déc. 2020 à 14:20
8 déc. 2020 à 14:20
peux-tu alors marquer la discussion comme résolue?
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 726
7 déc. 2020 à 17:05
7 déc. 2020 à 17:05
Bonjour,
Merci de :
> préciser ce qui est saisi dans les 2 textbox (numérique, texte, date, etc...)
> préciser ce que contiennent les colonnes I et B
Essayer également d'indiquer la propriété des cellules à scruter :
Merci de :
> préciser ce qui est saisi dans les 2 textbox (numérique, texte, date, etc...)
> préciser ce que contiennent les colonnes I et B
Essayer également d'indiquer la propriété des cellules à scruter :
If sh1.Range("I" & i).Value = TextBox4.Value And sh1.Range("I" & i).Offset(0, -7).Value <> TextBox21.Value Then