A voir également:
- Vider cellule sous condition
- Calculer le nombre de cellules non vides avec une condition ✓ - Forum - Excel
- Copier/coller du texte sans les cellules vides et avec condition ✓ - Forum - Excel
- Couleur cellule excel condition - Conseils pratiques - Excel
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum - Excel
- Excel remplir une cellule sous condition - Forum - Excel
4 réponses
yg_be
- Messages postés
- 13948
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 19 janvier 2021
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)
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.
Merci pour votre retour.
J’ai effectué les changements mais la suppression ne se fait toujours pas et pas de message d’erreur.
M-12
- Messages postés
- 979
- Date d'inscription
- lundi 22 septembre 2008
- Statut
- Membre
- Dernière intervention
- 10 janvier 2021
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
pijaku
- Messages postés
- 12235
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 6 janvier 2021
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