Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel COLONNES

COLONNES

2 réponses
Avatar
Jean luc
Bonjour,

Dans une feuille de calcul je dois créer une nouvelle colonne pour effectuer
des calculs et ceci jusqu'a 14 fois.
J'ai 14 boutons associés à 14 macros. C'est pas très pratique ne porrait-il
y avoir qu'une seule macro.

Sub RE1()
Range("C5:C45").Select
Selection.Copy
Range("D5").Select
ActiveSheet.Paste
Range("D7:D11,d15:d17,d19:d23").Select
Selection.ClearContents
Columns("D:D").Select
Selection.ColumnWidth = 12
End Sub

Sub RE2()
Range("d5:D45").Select
Selection.Copy
Range("E5").Select
ActiveSheet.Paste
Range("E7:E11,E15:E17,E19:E23").Select
Selection.ClearContents
Columns("E:E").Select
Selection.ColumnWidth = 12
End Sub

Les suivantes sur le même modèle
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Oliv'
Bonjour,

Dans une feuille de calcul je dois créer une nouvelle colonne pour
effectuer des calculs et ceci jusqu'a 14 fois.
J'ai 14 boutons associés à 14 macros. C'est pas très pratique ne
porrait-il y avoir qu'une seule macro.

Sub RE1()
Range("C5:C45").Select
Selection.Copy
Range("D5").Select
ActiveSheet.Paste
Range("D7:D11,d15:d17,d19:d23").Select
Selection.ClearContents
Columns("D:D").Select
Selection.ColumnWidth = 12
End Sub

Sub RE2()
Range("d5:D45").Select
Selection.Copy
Range("E5").Select
ActiveSheet.Paste
Range("E7:E11,E15:E17,E19:E23").Select
Selection.ClearContents
Columns("E:E").Select
Selection.ColumnWidth = 12
End Sub

Les suivantes sur le même modèle


Tu peux faire une boucle
for c=3 to 17
Range(cells(5,c),cells(45,c)).Copy
Range(cells(5,c+1)).Select 'tu peux utiliser offset(0,1)
ActiveSheet.Paste
...
next c


tape f1 en selectionnant cells et offset dans vbe pour de l'aide


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Avatar
Jean luc
problème de débogage à la ligne :
Range(Cells(5, c + 1)).Select

"Jean luc" a écrit dans le message de
news:
Bonjour,

Dans une feuille de calcul je dois créer une nouvelle colonne pour
effectuer

des calculs et ceci jusqu'a 14 fois.
J'ai 14 boutons associés à 14 macros. C'est pas très pratique ne
porrait-il

y avoir qu'une seule macro.

Sub RE1()
Range("C5:C45").Select
Selection.Copy
Range("D5").Select
ActiveSheet.Paste
Range("D7:D11,d15:d17,d19:d23").Select
Selection.ClearContents
Columns("D:D").Select
Selection.ColumnWidth = 12
End Sub

Sub RE2()
Range("d5:D45").Select
Selection.Copy
Range("E5").Select
ActiveSheet.Paste
Range("E7:E11,E15:E17,E19:E23").Select
Selection.ClearContents
Columns("E:E").Select
Selection.ColumnWidth = 12
End Sub

Les suivantes sur le même modèle