Vider cellule sous condition

Résolu

wakafa -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention - 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
Proteger cellule excel - Guide
Formule excel si cellule non vide alors couleur ✓ - Forum Excel
Aller à la ligne dans une cellule excel - Guide
Vider le cache d'une application - Guide

4 réponses

Réponse 1 / 4

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

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

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 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

peux-tu partager ton fichier?

Réponse 3 / 4

M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention 285

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

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

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584 > Wakafa

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

Réponse 4 / 4

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

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 ?

La corbeille de Watsap

Changer la couleur d'une cellule en fonction d'une autre cellule

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

Excel formule : savoir si une cellule contient partie texte

Votre réponse

Discussions similaires