Vider cellule sous condition
Résolu/Fermé
wakafa
-
Modifié le 7 déc. 2020 à 17:02
yg_be Messages postés 23436 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 janvier 2025 - 8 déc. 2020 à 14:20
yg_be Messages postés 23436 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 janvier 2025 - 8 déc. 2020 à 14:20
A voir également:
- Vider cellule sous condition
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel si cellule contient partie texte ✓ - Forum Excel
- Vider le cache d'une application - Guide
4 réponses
yg_be
Messages postés
23436
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
23 janvier 2025
Ambassadeur
1 559
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
23436
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
23 janvier 2025
1 559
7 déc. 2020 à 20:02
7 déc. 2020 à 20:02
peux-tu partager ton fichier?
M-12
Messages postés
1331
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
283
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
23436
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
23 janvier 2025
1 559
>
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
4 janvier 2024
2 753
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