Fonction VBA
Fermé
zeratule
-
17 févr. 2011 à 10:13
ccm81 Messages postés 10560 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 25 mars 2023 - 17 févr. 2011 à 18:07
ccm81 Messages postés 10560 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 25 mars 2023 - 17 févr. 2011 à 18:07
2 réponses
ccm81
Messages postés
10560
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
25 mars 2023
2 337
17 févr. 2011 à 15:08
17 févr. 2011 à 15:08
bonjour,
on peut deja simplifier un peu puis
quelque chose comme ça où Call tets1 appelle la procedure tets1
on peut deja simplifier un peu puis
quelque chose comme ça où Call tets1 appelle la procedure tets1
Private Sub CommandButton1_Click()
Call test1
End Sub
Sub test1()
' affectations
Cells(1, 1).Value = "Nom de l'affaire"
Cells(2, 1).Value = "Ref de l'affaire"
Cells(4, 1).Value = "Semaine"
Cells(5, 1).Value = "Chantier"
Cells(7, 1).Value = "Item"
' fusions
Range("A1:B1").MergeCells = True
Rows("3:3").MergeCells = True
' traces des bordures
For Each c In Range("A1:Z7")
c.Borders(xlDiagonalDown).LineStyle = xlNone
c.Borders(xlDiagonalUp).LineStyle = xlNone
c.Borders(xlEdgeLeft).LineStyle = xlContinuous
c.Borders(xlEdgeTop).LineStyle = xlContinuous
Next c
End Sub
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
17 févr. 2011 à 15:46
17 févr. 2011 à 15:46
Bonjour à tous,
zeratule:
Une fonction ne renvoit qu'un objet (valeur, couleur, cellule....)
Pour toi il faut utiliser une fonction paramétrée
*par ex si c'est la mise en page identique de plusieurs folios et en utilisant la macro de ccm81
Nota: si c'est dans le m^me classeur, tu as beaucoup plus simple
par exemple
Ccm81
excuse l'incruste
peut-être encore plus simple pour trace des bordures :-) si tout du moins j'ai pigé son truc
zeratule:
Une fonction ne renvoit qu'un objet (valeur, couleur, cellule....)
Pour toi il faut utiliser une fonction paramétrée
*par ex si c'est la mise en page identique de plusieurs folios et en utilisant la macro de ccm81
Sub mettre_en_page(onglet)
With Sheets(onglet)
.Cells(1, 1).Value = "Nom de l'affaire"
.Cells(2, 1).Value = "Ref de l'affaire"
.Cells(4, 1).Value = "Semaine"
.Cells(5, 1).Value = "Chantier"
.Cells(7, 1).Value = "Item"
' fusions
.Range("A1:B1").MergeCells = True
.Rows("3:3").MergeCells = True
' traces des bordures
.Range("A1:Z7").Borders.Weight = xlThin
End With
sub principale() dim feuil1 as string dim feuil2 as string mettre_en_page feuil1 mettre_en_page feuil10 end sub
Nota: si c'est dans le m^me classeur, tu as beaucoup plus simple
par exemple
Sheets(Array("Feuil1", "Feuil3")).Select
en première ligne de ta macro
et
en dernière ligne
Sheets("Feuil1").Select
Ccm81
excuse l'incruste
peut-être encore plus simple pour trace des bordures :-) si tout du moins j'ai pigé son truc
ccm81
Messages postés
10560
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
25 mars 2023
2 337
Modifié par ccm81 le 17/02/2011 à 18:08
Modifié par ccm81 le 17/02/2011 à 18:08
> michel_m
tu es pardonné d'autant plus que je viens d'appendre (et de tester) le .Borders.Weight = xlThin
bonne fin de journée
tu es pardonné d'autant plus que je viens d'appendre (et de tester) le .Borders.Weight = xlThin
bonne fin de journée