XL 2013 Mise en forme cellules + Ecriture

[YANOU38]

Bonjour à tous,
Pour l'instant je fais cela manuellement (bordures + Formules + Ecritures ...)
Mon nombre de lignes est toujours différent.
Merci pour votre aide.

 

[fanfan38]

Bonjour
C'est pas clair et en plus il y a un mot de passe pour accéder au macro

A+ François

 

[YANOU38]

Bonjour fanfan38, le forum,
Mon semblant de macro ajoute des bordures + du texte sur une zone déterminée, voila où j'en suis...
(cela à le mérite de montrer un début de résultat voulu)
Elle ne prend pas en compte un choix de zone (emplacement, nombre de lignes...).
Merci pour votre aide

 

[YANOU38]

Re,
Il faut peut-être passer par une Input box, mais je ne maîtrise pas.
Merci pour votre aide.

 

[YANOU38]

Bonjour à tous,
Voila où j'en suis :
- Pour ajouter les bordures sur ma 1ière sélection :

Sub Macro1()
With Selection.Borders(xlDiagonalDown)
    .Weight = xlThin
End With
With Selection.Borders(xlDiagonalUp)
    .Weight = xlThin
End With
End Sub

- Pour ajouter "voir poste" sur ma 2ième sélection" :

Sub Macro2()
Selection = "voir poste"
End Sub

- Pour ajouter "POSTE" sur ma 3ième sélection" :

Sub Macro3()
Selection = "POSTE"
End Sub

1ier problème => Je n'arrive pas à faire le lien pour la valeur à mettre dans la colonne AJ
2ième problème => Concaténer ces Macros pour ne faire qu'une sélection de zone (en jaune) et que tout s'enchaine.

Merci pour votre aide.

 

[YANOU38]

Re,
Pour ajouter la valeur de "B9" sur ma 4ième sélection :

Sub Macro4()
Selection = "=$B$9"
End Sub

Il me reste toujours le problème pour concaténer ces Macros pour ne faire qu'une sélection de zone (en jaune) et que tout s'enchaine.
Je suis conscient de mon niveau en VBA, sans votre aide pour passer de plusieurs Macros "Artisanales" à une Macro "Pro", je n'y arriverai certainement pas.
Merci à tous pour votre aide.

 

[YANOU38]

Bonjour à tous,
Une petite avancée...
Toutes les actions se font en une seule fois, mais cela ne prend pas en compte une sélection.
Merci pour votre aide.