Mon code est il optimisé
Fermé
iroko45
Messages postés
212
Date d'inscription
samedi 27 juin 2009
Statut
Membre
Dernière intervention
17 mars 2018
-
Modifié le 29 août 2017 à 16:24
eriiic Messages postés 24511 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 30 août 2017 à 06:08
eriiic Messages postés 24511 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 30 août 2017 à 06:08
A voir également:
- Mon code est il optimisé
- Code asci - Guide
- Code 80072efe ✓ - Forum Windows
- Freewifi secure code ✓ - Forum Réseau
- Netflix code - Guide
- Code puk maroc telecom ✓ - Forum Mobile
3 réponses
Bonjour iroko45,
Je te propose ce code VBA :
Merci de me dire si ça te convient.
Cordialement
Je te propose ce code VBA :
Option Explicit
Sub CerclesCreation()
Application.ScreenUpdating = False
' Effacement des cellules
Cells.Clear
' Écriture des titres des colonnes
[A1] = "Cercle": [B1] = "Réf"
[C1] = "Désignation": [D1] = "Prix unitaire"
[E1] = "Quantité": [F1] = "Montant"
' Mise en forme de la lignes des titres
With [A1:F1]
.HorizontalAlignment = xlCenter: .Interior.ColorIndex = 10
With .Font
.Name = "Verdana": .ColorIndex = 2: .Bold = True
End With
End With
' Largeur des colonnes (de même largeur)
Columns("A:F").ColumnWidth = 16
End Sub
Merci de me dire si ça te convient.
Cordialement
iroko45
Messages postés
212
Date d'inscription
samedi 27 juin 2009
Statut
Membre
Dernière intervention
17 mars 2018
2
29 août 2017 à 17:04
29 août 2017 à 17:04
Merci Paul. cela m'enchante et me convient.
Merci beaucoup
Ok Baladur13 pour les balises. Merci
Merci beaucoup
Ok Baladur13 pour les balises. Merci
eriiic
Messages postés
24511
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
7 166
30 août 2017 à 06:08
30 août 2017 à 06:08
Bonjour,
pourquoi supprimer les titres pour les refaire ?
en supposant "A" rempli à la dernière ligne.
eric
pourquoi supprimer les titres pour les refaire ?
Sub CerclesCreation()
Rows(1).Resize(Cells(Rows.Count, "A").End(xlUp).Row).Offset(1).ClearContents
End Sub
en supposant "A" rempli à la dernière ligne.
eric