Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel petite évolution du code "eliminer des lignes"

petite évolution du code "eliminer des lignes"

9 réponses
Avatar
Greg
Bonsoir,

Pour supprimer toutes les lignes dont les cellules seraient vides entre B3
et B27, vous m'avez proposé:

[B3:B27].SpecialCells(xlCellTypeBlanks).Rows.Delete

Comment transformer la ligne de code si la cellule=0

Merci à vous

Greg
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
Bonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Daniel


Bonsoir,

Pour supprimer toutes les lignes dont les cellules seraient vides entre B3 et
B27, vous m'avez proposé:

[B3:B27].SpecialCells(xlCellTypeBlanks).Rows.Delete

Comment transformer la ligne de code si la cellule=0

Merci à vous

Greg


Avatar
Daniel.C
Sauf bien sûr si tu as à la fois des cellules vides et d'autres égales
à 2 dans la plage considérée et que tu veux n'éliminer que celles
égales à 2. Auquel cas :
1. remplace "" par "***ùù!?!ùù***"
2. utilise les deux lignes de code précédentes
3.remplace "***ùù!?!ùù***" par ""
Daniel

Bonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Daniel


Bonsoir,

Pour supprimer toutes les lignes dont les cellules seraient vides entre B3
et B27, vous m'avez proposé:

[B3:B27].SpecialCells(xlCellTypeBlanks).Rows.Delete

Comment transformer la ligne de code si la cellule=0

Merci à vous

Greg




Avatar
Daniel.C
Oups.
Utiliser xlwhole avec replace :
[B3:B27].Replace 0, "", xlWhole
Bonsoir.
Daniel

Bonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Daniel


Bonsoir,

Pour supprimer toutes les lignes dont les cellules seraient vides entre B3
et B27, vous m'avez proposé:

[B3:B27].SpecialCells(xlCellTypeBlanks).Rows.Delete

Comment transformer la ligne de code si la cellule=0

Merci à vous

Greg




Avatar
Greg
Bonjour Daniel et merci pour ta réponse,

J'ai placé le code suivant dans le VB de la feuille (j'ai essayé aussi dans
un module car je ne sais jamais...). Apparemment, ça ne fonctionne pas.

Sub elimine()
[B3:B27].Replace 0, "", xlWhole
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

Est-ce moi?

à plus

Greg





"Daniel.C" a écrit dans le message de
news:
Sauf bien sûr si tu as à la fois des cellules vides et d'autres égales à 2
dans la plage considérée et que tu veux n'éliminer que celles égales à 2.
Auquel cas :
1. remplace "" par "***ùù!?!ùù***"
2. utilise les deux lignes de code précédentes
3.remplace "***ùù!?!ùù***" par ""
Daniel

Bonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Daniel


Bonsoir,

Pour supprimer toutes les lignes dont les cellules seraient vides entre
B3 et B27, vous m'avez proposé:

[B3:B27].SpecialCells(xlCellTypeBlanks).Rows.Delete

Comment transformer la ligne de code si la cellule=0

Merci à vous

Greg








Avatar
Daniel.C
Bonjour.
Non, c'est forcément pas toi. Essaie :
[B3:B27].Replace "0", "", xlWhole
sinon, pose un fichier de test sur www.cjoint.com.
Daniel

Bonjour Daniel et merci pour ta réponse,

J'ai placé le code suivant dans le VB de la feuille (j'ai essayé aussi dans
un module car je ne sais jamais...). Apparemment, ça ne fonctionne pas.

Sub elimine()
[B3:B27].Replace 0, "", xlWhole
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

Est-ce moi?

à plus

Greg





"Daniel.C" a écrit dans le message de
news:
Sauf bien sûr si tu as à la fois des cellules vides et d'autres égales à 2
dans la plage considérée et que tu veux n'éliminer que celles égales à 2.
Auquel cas :
1. remplace "" par "***ùù!?!ùù***"
2. utilise les deux lignes de code précédentes
3.remplace "***ùù!?!ùù***" par ""
Daniel

Bonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Daniel


Bonsoir,

Pour supprimer toutes les lignes dont les cellules seraient vides entre
B3 et B27, vous m'avez proposé:

[B3:B27].SpecialCells(xlCellTypeBlanks).Rows.Delete

Comment transformer la ligne de code si la cellule=0

Merci à vous

Greg










Avatar
Greg
Rebonjour Daniel,

Je me doutais que sans le fichier, ce serait compliqué à imaginer . Le voici
donc: http://cjoint.com/?hsmUOLWhS7

Merci et à plus

Greg

"Daniel.C" a écrit dans le message de
news:
Bonjour.
Non, c'est forcément pas toi. Essaie :
[B3:B27].Replace "0", "", xlWhole
sinon, pose un fichier de test sur www.cjoint.com.
Daniel

Bonjour Daniel et merci pour ta réponse,

J'ai placé le code suivant dans le VB de la feuille (j'ai essayé aussi
dans un module car je ne sais jamais...). Apparemment, ça ne fonctionne
pas.

Sub elimine()
[B3:B27].Replace 0, "", xlWhole
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

Est-ce moi?

à plus

Greg





"Daniel.C" a écrit dans le message de
news:
Sauf bien sûr si tu as à la fois des cellules vides et d'autres égales à
2 dans la plage considérée et que tu veux n'éliminer que celles égales à
2. Auquel cas :
1. remplace "" par "***ùù!?!ùù***"
2. utilise les deux lignes de code précédentes
3.remplace "***ùù!?!ùù***" par ""
Daniel

Bonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Daniel


Bonsoir,

Pour supprimer toutes les lignes dont les cellules seraient vides
entre B3 et B27, vous m'avez proposé:

[B3:B27].SpecialCells(xlCellTypeBlanks).Rows.Delete

Comment transformer la ligne de code si la cellule=0

Merci à vous

Greg














Avatar
Daniel.C
Le problème vient du fait qu'il y a des formules et non des valeurs
dans test formules. Utilise la boucle définie précédemment.
Daniel

Rebonjour Daniel,

Je me doutais que sans le fichier, ce serait compliqué à imaginer . Le voici
donc: http://cjoint.com/?hsmUOLWhS7

Merci et à plus

Greg

"Daniel.C" a écrit dans le message de
news:
Bonjour.
Non, c'est forcément pas toi. Essaie :
[B3:B27].Replace "0", "", xlWhole
sinon, pose un fichier de test sur www.cjoint.com.
Daniel

Bonjour Daniel et merci pour ta réponse,

J'ai placé le code suivant dans le VB de la feuille (j'ai essayé aussi
dans un module car je ne sais jamais...). Apparemment, ça ne fonctionne
pas.

Sub elimine()
[B3:B27].Replace 0, "", xlWhole
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

Est-ce moi?

à plus

Greg





"Daniel.C" a écrit dans le message de
news:
Sauf bien sûr si tu as à la fois des cellules vides et d'autres égales à
2 dans la plage considérée et que tu veux n'éliminer que celles égales à
2. Auquel cas :
1. remplace "" par "***ùù!?!ùù***"
2. utilise les deux lignes de code précédentes
3.remplace "***ùù!?!ùù***" par ""
Daniel

Bonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Daniel


Bonsoir,

Pour supprimer toutes les lignes dont les cellules seraient vides entre
B3 et B27, vous m'avez proposé:

[B3:B27].SpecialCells(xlCellTypeBlanks).Rows.Delete

Comment transformer la ligne de code si la cellule=0

Merci à vous

Greg
















Avatar
Daniel.C
Erratum
Lire "tes cellules" au lieu de "test formules"
Daniel

Le problème vient du fait qu'il y a des formules et non des valeurs dans test
formules. Utilise la boucle définie précédemment.
Daniel

Rebonjour Daniel,

Je me doutais que sans le fichier, ce serait compliqué à imaginer . Le
voici
donc: http://cjoint.com/?hsmUOLWhS7

Merci et à plus

Greg

"Daniel.C" a écrit dans le message de
news:
Bonjour.
Non, c'est forcément pas toi. Essaie :
[B3:B27].Replace "0", "", xlWhole
sinon, pose un fichier de test sur www.cjoint.com.
Daniel

Bonjour Daniel et merci pour ta réponse,

J'ai placé le code suivant dans le VB de la feuille (j'ai essayé aussi
dans un module car je ne sais jamais...). Apparemment, ça ne fonctionne
pas.

Sub elimine()
[B3:B27].Replace 0, "", xlWhole
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

Est-ce moi?

à plus

Greg





"Daniel.C" a écrit dans le message de
news:
Sauf bien sûr si tu as à la fois des cellules vides et d'autres égales à
2 dans la plage considérée et que tu veux n'éliminer que celles égales à
2. Auquel cas :
1. remplace "" par "***ùù!?!ùù***"
2. utilise les deux lignes de code précédentes
3.remplace "***ùù!?!ùù***" par ""
Daniel

Bonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Daniel


Bonsoir,

Pour supprimer toutes les lignes dont les cellules seraient vides
entre B3 et B27, vous m'avez proposé:

[B3:B27].SpecialCells(xlCellTypeBlanks).Rows.Delete

Comment transformer la ligne de code si la cellule=0

Merci à vous

Greg














Avatar
Greg
Bonsoir Daniel,

Avec la boucle, ça fonctionne correctement. Pour ceux que ça intéresse:

Sub test()
Dim i As Integer
For i = 28 To 1 Step -1
If Cells(i, 3) = "0" Then
Rows(i).Delete
End If
Next i
End Sub

Merci une fois de plus

Greg

"Daniel.C" a écrit dans le message de
news:
Erratum
Lire "tes cellules" au lieu de "test formules"
Daniel

Le problème vient du fait qu'il y a des formules et non des valeurs dans
test formules. Utilise la boucle définie précédemment.
Daniel

Rebonjour Daniel,

Je me doutais que sans le fichier, ce serait compliqué à imaginer . Le
voici
donc: http://cjoint.com/?hsmUOLWhS7

Merci et à plus

Greg

"Daniel.C" a écrit dans le message de
news:
Bonjour.
Non, c'est forcément pas toi. Essaie :
[B3:B27].Replace "0", "", xlWhole
sinon, pose un fichier de test sur www.cjoint.com.
Daniel

Bonjour Daniel et merci pour ta réponse,

J'ai placé le code suivant dans le VB de la feuille (j'ai essayé aussi
dans un module car je ne sais jamais...). Apparemment, ça ne
fonctionne pas.

Sub elimine()
[B3:B27].Replace 0, "", xlWhole
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

Est-ce moi?

à plus

Greg





"Daniel.C" a écrit dans le message de
news:
Sauf bien sûr si tu as à la fois des cellules vides et d'autres
égales à 2 dans la plage considérée et que tu veux n'éliminer que
celles égales à 2. Auquel cas :
1. remplace "" par "***ùù!?!ùù***"
2. utilise les deux lignes de code précédentes
3.remplace "***ùù!?!ùù***" par ""
Daniel

Bonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Daniel


Bonsoir,

Pour supprimer toutes les lignes dont les cellules seraient vides
entre B3 et B27, vous m'avez proposé:

[B3:B27].SpecialCells(xlCellTypeBlanks).Rows.Delete

Comment transformer la ligne de code si la cellule=0

Merci à vous

Greg