Bonjour
dans une feuille je voudrai à partir d'une macro écrire quelques lignes de
VB qui réglerai un problème de redondance :
après avoir sélectionné une cellule lancer la macro pour supprimer la ligne
immédiatement inférieure
( a celle dont la cellule est sélectionné ) si la valeur de la cellule
inférieure est identique
et tant qu'elle est identique ( il peut y en avoir plusieurs )
si valeur nulle fin de la macro
j'espère avoir été clair
d'avance merci pour vos réponses
salut @+
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
JB
Bonsoir,
m = ActiveCell ActiveCell.Offset(1, 0).Select Do While ActiveCell = m ActiveCell.EntireRow.Delete Loop
JB
On 13 sep, 21:46, "***JCR***" wrote:
Bonjour dans une feuille je voudrai à partir d'une macro écrire quelques lign es de VB qui réglerai un problème de redondance : après avoir sélectionné une cellule lancer la macro pour supprimer la ligne immédiatement inférieure ( a celle dont la cellule est sélectionné ) si la valeur de la cellule inférieure est identique et tant qu'elle est identique ( il peut y en avoir plusieurs ) si valeur nulle fin de la macro j'espère avoir été clair d'avance merci pour vos réponses salut @+
Bonsoir,
m = ActiveCell
ActiveCell.Offset(1, 0).Select
Do While ActiveCell = m
ActiveCell.EntireRow.Delete
Loop
JB
On 13 sep, 21:46, "***JCR***" <rjc.ra...@wanadoo.fr> wrote:
Bonjour
dans une feuille je voudrai à partir d'une macro écrire quelques lign es de
VB qui réglerai un problème de redondance :
après avoir sélectionné une cellule lancer la macro pour supprimer la ligne
immédiatement inférieure
( a celle dont la cellule est sélectionné ) si la valeur de la cellule
inférieure est identique
et tant qu'elle est identique ( il peut y en avoir plusieurs )
si valeur nulle fin de la macro
j'espère avoir été clair
d'avance merci pour vos réponses
salut @+
m = ActiveCell ActiveCell.Offset(1, 0).Select Do While ActiveCell = m ActiveCell.EntireRow.Delete Loop
JB
On 13 sep, 21:46, "***JCR***" wrote:
Bonjour dans une feuille je voudrai à partir d'une macro écrire quelques lign es de VB qui réglerai un problème de redondance : après avoir sélectionné une cellule lancer la macro pour supprimer la ligne immédiatement inférieure ( a celle dont la cellule est sélectionné ) si la valeur de la cellule inférieure est identique et tant qu'elle est identique ( il peut y en avoir plusieurs ) si valeur nulle fin de la macro j'espère avoir été clair d'avance merci pour vos réponses salut @+
***JCR***
Merci beaucoup JB 1200 lignes en un coup de cuillere à pot et j'ai appris un peu plus Salut @+
"JB" a écrit dans le message de news:
Bonsoir,
m = ActiveCell ActiveCell.Offset(1, 0).Select Do While ActiveCell = m ActiveCell.EntireRow.Delete Loop
JB
On 13 sep, 21:46, "***JCR***" wrote:
Bonjour dans une feuille je voudrai à partir d'une macro écrire quelques lignes de VB qui réglerai un problème de redondance : après avoir sélectionné une cellule lancer la macro pour supprimer la ligne immédiatement inférieure ( a celle dont la cellule est sélectionné ) si la valeur de la cellule inférieure est identique et tant qu'elle est identique ( il peut y en avoir plusieurs ) si valeur nulle fin de la macro j'espère avoir été clair d'avance merci pour vos réponses salut @+
Merci beaucoup JB
1200 lignes en un coup de cuillere à pot
et j'ai appris un peu plus
Salut @+
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1189714306.428548.10010@50g2000hsm.googlegroups.com...
Bonsoir,
m = ActiveCell
ActiveCell.Offset(1, 0).Select
Do While ActiveCell = m
ActiveCell.EntireRow.Delete
Loop
JB
On 13 sep, 21:46, "***JCR***" <rjc.ra...@wanadoo.fr> wrote:
Bonjour
dans une feuille je voudrai à partir d'une macro écrire quelques lignes de
VB qui réglerai un problème de redondance :
après avoir sélectionné une cellule lancer la macro pour supprimer la
ligne
immédiatement inférieure
( a celle dont la cellule est sélectionné ) si la valeur de la cellule
inférieure est identique
et tant qu'elle est identique ( il peut y en avoir plusieurs )
si valeur nulle fin de la macro
j'espère avoir été clair
d'avance merci pour vos réponses
salut @+
Merci beaucoup JB 1200 lignes en un coup de cuillere à pot et j'ai appris un peu plus Salut @+
"JB" a écrit dans le message de news:
Bonsoir,
m = ActiveCell ActiveCell.Offset(1, 0).Select Do While ActiveCell = m ActiveCell.EntireRow.Delete Loop
JB
On 13 sep, 21:46, "***JCR***" wrote:
Bonjour dans une feuille je voudrai à partir d'une macro écrire quelques lignes de VB qui réglerai un problème de redondance : après avoir sélectionné une cellule lancer la macro pour supprimer la ligne immédiatement inférieure ( a celle dont la cellule est sélectionné ) si la valeur de la cellule inférieure est identique et tant qu'elle est identique ( il peut y en avoir plusieurs ) si valeur nulle fin de la macro j'espère avoir été clair d'avance merci pour vos réponses salut @+