Bonjour,
Dans une feuille de calcule je sélectionne les cellules C6:C36 que je
recopie en D6
puis dans la colonne D j'efface D7:D10.
Si besoin je recommence de la colonne D en colonne E
etc....
J'ai créé autant de macros et de boutons de commandes que de copie à faire;
n'y aurait il pas une seul macro et un seul bouton ce qui allège la feuille.
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
Shnoulle
Salut Jean Luc,
Voici la macro à associé au seul bouton Tu selectionne une cellule de la colonne dont tu veut partir et tu clique
Sub MacroDuBouton() Dim ColonneEnCours As Integer Dim LigneEnCours As Long ColonneEnCours = ActiveCell.Column LigneEnCours = ActiveCell.Row With ActiveSheet
.Range(.Cells(11, ColonneEnCours), .Cells(36, ColonneEnCours)).Copy .Range(.Cells(11, ColonneEnCours + 1), .Cells(36, ColonneEnCours + 1)).Select .Paste .Cells(LigneEnCours, ColonneEnCours).Select Application.CutCopyMode = False End With
End Sub
A+
SEIGNEUR Jean-Luc wrote:
Bonjour, Dans une feuille de calcule je sélectionne les cellules C6:C36 que je recopie en D6 puis dans la colonne D j'efface D7:D10. Si besoin je recommence de la colonne D en colonne E etc....
J'ai créé autant de macros et de boutons de commandes que de copie à faire; n'y aurait il pas une seul macro et un seul bouton ce qui allège la feuille.
D'avance merci
JLS
Salut Jean Luc,
Voici la macro à associé au seul bouton
Tu selectionne une cellule de la colonne dont tu veut partir et tu clique
Sub MacroDuBouton()
Dim ColonneEnCours As Integer
Dim LigneEnCours As Long
ColonneEnCours = ActiveCell.Column
LigneEnCours = ActiveCell.Row
With ActiveSheet
.Range(.Cells(11, ColonneEnCours), .Cells(36, ColonneEnCours)).Copy
.Range(.Cells(11, ColonneEnCours + 1), .Cells(36, ColonneEnCours +
1)).Select
.Paste
.Cells(LigneEnCours, ColonneEnCours).Select
Application.CutCopyMode = False
End With
End Sub
A+
SEIGNEUR Jean-Luc wrote:
Bonjour,
Dans une feuille de calcule je sélectionne les cellules C6:C36 que je
recopie en D6
puis dans la colonne D j'efface D7:D10.
Si besoin je recommence de la colonne D en colonne E
etc....
J'ai créé autant de macros et de boutons de commandes que de copie à faire;
n'y aurait il pas une seul macro et un seul bouton ce qui allège la feuille.
Voici la macro à associé au seul bouton Tu selectionne une cellule de la colonne dont tu veut partir et tu clique
Sub MacroDuBouton() Dim ColonneEnCours As Integer Dim LigneEnCours As Long ColonneEnCours = ActiveCell.Column LigneEnCours = ActiveCell.Row With ActiveSheet
.Range(.Cells(11, ColonneEnCours), .Cells(36, ColonneEnCours)).Copy .Range(.Cells(11, ColonneEnCours + 1), .Cells(36, ColonneEnCours + 1)).Select .Paste .Cells(LigneEnCours, ColonneEnCours).Select Application.CutCopyMode = False End With
End Sub
A+
SEIGNEUR Jean-Luc wrote:
Bonjour, Dans une feuille de calcule je sélectionne les cellules C6:C36 que je recopie en D6 puis dans la colonne D j'efface D7:D10. Si besoin je recommence de la colonne D en colonne E etc....
J'ai créé autant de macros et de boutons de commandes que de copie à faire; n'y aurait il pas une seul macro et un seul bouton ce qui allège la feuille.
