Comment transformer la ligne de code si la cellule=0
Merci à vous
Greg
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é:
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é:
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é:
Comment transformer la ligne de code si la cellule=0
Merci à vous
Greg
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é:
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é:
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é:
Comment transformer la ligne de code si la cellule=0
Merci à vous
Greg
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é:
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é:
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é:
Comment transformer la ligne de code si la cellule=0
Merci à vous
Greg
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é:
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é:
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é:
Comment transformer la ligne de code si la cellule=0
Merci à vous
Greg
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é:
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é:
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é:
Comment transformer la ligne de code si la cellule=0
Merci à vous
Greg
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é:
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é:
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é:
Comment transformer la ligne de code si la cellule=0
Merci à vous
Greg
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é:
Comment transformer la ligne de code si la cellule=0
Merci à vous
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:ubeLti6BKHA.1248@TK2MSFTNGP04.phx.gbl...
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é:
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é:
