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
Pounet95
Bonjour, Avec cei peut-être ?
A placer dans un module standard par exemple
Sub fusion() Dim depart As Range Dim arrivée As Range
Set depart = ActiveCell ' cellule active Set arrivée = ActiveCell.Offset(0, 5) ' 0 ligne en dessous, 5 cellules sur la droite Range(depart, arrivée).Select ' sélectionner Selection.Merge ' fusionner End Sub
Cela convient ?
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"NICOLAS CROC" a écrit dans le message de news: 439bff6f$0$31403$
Bonjour à tous
Comment puis-je faire pour que ma macro de fusion de cellule démarre dans la case actuelle du curseur (relative) et non dans une case fixe
sinon comment obliger le curseur à se positionner sur une case voulue ? Merci encore :) Robert
Bonjour,
Avec cei peut-être ?
A placer dans un module standard par exemple
Sub fusion()
Dim depart As Range
Dim arrivée As Range
Set depart = ActiveCell ' cellule active
Set arrivée = ActiveCell.Offset(0, 5) ' 0 ligne en dessous, 5
cellules sur la droite
Range(depart, arrivée).Select ' sélectionner
Selection.Merge ' fusionner
End Sub
Cela convient ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)
"NICOLAS CROC" <nicolas.croc@free.fr> a écrit dans le message de news:
439bff6f$0$31403$626a14ce@news.free.fr...
Bonjour à tous
Comment puis-je faire pour que ma macro de fusion de cellule démarre dans
la
case actuelle du curseur (relative) et non dans une case fixe
sinon comment obliger le curseur à se positionner sur une case voulue ?
Merci encore
:)
Robert
Sub fusion() Dim depart As Range Dim arrivée As Range
Set depart = ActiveCell ' cellule active Set arrivée = ActiveCell.Offset(0, 5) ' 0 ligne en dessous, 5 cellules sur la droite Range(depart, arrivée).Select ' sélectionner Selection.Merge ' fusionner End Sub
Cela convient ?
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"NICOLAS CROC" a écrit dans le message de news: 439bff6f$0$31403$
Bonjour à tous
Comment puis-je faire pour que ma macro de fusion de cellule démarre dans la case actuelle du curseur (relative) et non dans une case fixe
sinon comment obliger le curseur à se positionner sur une case voulue ? Merci encore :) Robert
