salsitawapa
XLDnaute Occasionnel
Bonjour à tous, j'aimerais changer une macro existante sur une feuille excel nommé macro1 et ou il y a une macro pour faire monter les cellules que l'on selectionne pour combler le vide. Avant il y avait cette formule :
Monter
=LIGNES(SELECTION())
NB=LIGNES(SELECTION())
a=0
=TANT.QUE(a<NB)
=SELECTIONNER(DECALER(CELLULE.ACTIVE();0;0;1;2))
=COPIER()
=SELECTIONNER(DECALER(CELLULE.ACTIVE();-1;0;1;2))
=COLLAGE.SPECIAL(3;1;FAUX;FAUX)
=COLLAGE.SPECIAL(5;1;FAUX;FAUX)
=SELECTIONNER(DECALER(CELLULE.ACTIVE();1;0;1;2))
=EFFACER(3)
=EFFACER(4)
=SELECTIONNER(DECALER(CELLULE.ACTIVE();1;0;1;2))
a=a+1
=SUIVANT()
=SELECTIONNER(DECALER(CELLULE.ACTIVE();-NB-1;0;NB;2))
=ANNULER.COPIE()
=RETOUR()
"Monter"
J'ai essayé de la mettre sur visual basic en faisant un copier coller mais la il me dit erreur de syntaxe.
Y a t'il une formule plus simple a mettre ? Merci de vos réponses
Monter
=LIGNES(SELECTION())
NB=LIGNES(SELECTION())
a=0
=TANT.QUE(a<NB)
=SELECTIONNER(DECALER(CELLULE.ACTIVE();0;0;1;2))
=COPIER()
=SELECTIONNER(DECALER(CELLULE.ACTIVE();-1;0;1;2))
=COLLAGE.SPECIAL(3;1;FAUX;FAUX)
=COLLAGE.SPECIAL(5;1;FAUX;FAUX)
=SELECTIONNER(DECALER(CELLULE.ACTIVE();1;0;1;2))
=EFFACER(3)
=EFFACER(4)
=SELECTIONNER(DECALER(CELLULE.ACTIVE();1;0;1;2))
a=a+1
=SUIVANT()
=SELECTIONNER(DECALER(CELLULE.ACTIVE();-NB-1;0;NB;2))
=ANNULER.COPIE()
=RETOUR()
"Monter"
J'ai essayé de la mettre sur visual basic en faisant un copier coller mais la il me dit erreur de syntaxe.
Y a t'il une formule plus simple a mettre ? Merci de vos réponses