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
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
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
Bonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
DanielBonsoir,
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
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
Bonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
DanielBonsoir,
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
Bonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
DanielBonsoir,
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
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
Bonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
DanielBonsoir,
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
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 ""
DanielBonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
DanielBonsoir,
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
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
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 ""
DanielBonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
DanielBonsoir,
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
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 ""
DanielBonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
DanielBonsoir,
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
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:OCbE9xyBKHA.4168@TK2MSFTNGP05.phx.gbl...
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
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 ""
DanielBonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
DanielBonsoir,
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
Bonjour.
Non, c'est forcément pas toi. Essaie :
[B3:B27].Replace "0", "", xlWhole
sinon, pose un fichier de test sur www.cjoint.com.
DanielBonjour 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 ""
DanielBonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
DanielBonsoir,
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
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:OCbE9xyBKHA.4168@TK2MSFTNGP05.phx.gbl...
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
Bonjour.
Non, c'est forcément pas toi. Essaie :
[B3:B27].Replace "0", "", xlWhole
sinon, pose un fichier de test sur www.cjoint.com.
DanielBonjour 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 ""
DanielBonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
DanielBonsoir,
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
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.
DanielBonjour 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 ""
DanielBonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
DanielBonsoir,
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
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:uT8Ddv4BKHA.4792@TK2MSFTNGP05.phx.gbl...
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:OCbE9xyBKHA.4168@TK2MSFTNGP05.phx.gbl...
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
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.
DanielBonjour 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 ""
DanielBonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
DanielBonsoir,
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
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.
DanielRebonjour 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.
DanielBonjour 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 ""
DanielBonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
DanielBonsoir,
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
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:uT8Ddv4BKHA.4792@TK2MSFTNGP05.phx.gbl...
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:OCbE9xyBKHA.4168@TK2MSFTNGP05.phx.gbl...
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
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.
DanielRebonjour 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.
DanielBonjour 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 ""
DanielBonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
DanielBonsoir,
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
Erratum
Lire "tes cellules" au lieu de "test formules"
DanielLe 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.
DanielRebonjour 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.
DanielBonjour 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 ""
DanielBonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
DanielBonsoir,
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
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:uT8Ddv4BKHA.4792@TK2MSFTNGP05.phx.gbl...
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:OCbE9xyBKHA.4168@TK2MSFTNGP05.phx.gbl...
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
Erratum
Lire "tes cellules" au lieu de "test formules"
DanielLe 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.
DanielRebonjour 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.
DanielBonjour 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 ""
DanielBonsoir.
[B3:B27].Replace 0, ""
[B3:B27].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
DanielBonsoir,
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