Vider cellule sous condition

Résolu/Fermé

wakafa - Modifié le 7 déc. 2020 à 17:02
yg_be Messages postés 22708 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 avril 2024 - 8 déc. 2020 à 14:20

Je souhaite en cliquant sur un bouton de mon userform, parcourir la colonne "I" verifier si la valeur égale la valeur du textbox4 et puis si la valeur de la colonne B est différente de textbox21 me vider les cellules des colonnes H, I et J. Etant donné que je suis pas experte en vba et après plusieurs recherches j'arrive pas à comprendre pourquoi le code utilisé ci-dessous ne fonctionne pas.

Merci bien pour votre aide mais je suis vraiment bloquée la dessus.

Je sollicite ainsi votre aide.

Merci d'avance.

 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) = TextBox4.Value And sh1.Range("I" & i).Offset(0, -7) <> 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

 Next i
 MsgBox ("Fichier actualisé")
 End Sub

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
Vider les cookies - Guide
Vider cache dns - Guide

4 réponses

Réponse 1 / 4

yg_be Messages postés 22708 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 avril 2024 1 474
7 déc. 2020 à 16:20

bonjour,
moi je me méfierais du

Rows

sans 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)

Réponse 2 / 4

Wakafa
7 déc. 2020 à 16:38

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.

yg_be Messages postés 22708 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 avril 2024 1 474
7 déc. 2020 à 20:02

peux-tu partager ton fichier?

Réponse 3 / 4

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
7 déc. 2020 à 17:04

Bonjour
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

Wakafa
8 déc. 2020 à 13:13

Merci M-12, c’est exactement ça ce qu’il fallait faire.
Ça fonctionne maintenant.
Merci à vous tous.

yg_be Messages postés 22708 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 avril 2024 1 474 > Wakafa
8 déc. 2020 à 14:20

peux-tu alors marquer la discussion comme résolue?

Réponse 4 / 4

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
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 :

If sh1.Range("I" & i).Value = TextBox4.Value And sh1.Range("I" & i).Offset(0, -7).Value <> TextBox21.Value Then

Discussions similaires

Excel : colorer une cellule sous condition d'une autre ?

Changer la couleur d'une cellule selon son texte

Excel si cellule contient texte alors...

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

colorer une cellule en fonction de la valeur d'une autre cellule

Discussions similaires

Newsletters