Discussion :

[zaitIX]

Bonjour,

Alors je débute sur VBA, mais c'est une nécessité, je ne vois pas comment faire autrement dans mon cas.

Alors j'ai 770 tableaux de 7 lignes et de 301 colonnes sur excel. Chaque tableau est séparé par une ligne vide.
Chaque ligne correspond à un jour de la semaine ( lundi, mardi, ....).

Je voudrais donc écrire (Lundi, mardi, mercredi, jeudi, vendredi, samedi, dimanche) devant chacune des lignes de chaque tableau donc

(Lundi, mardi, mercredi, jeudi, vendredi, samedi, dimanche)*770

Je voudrais utiliser VBA, mais je suis un peu perdu pour l'instant..

[EBRAG]

Bonsoir !

en gros, un truc de ce genre....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub EcritJourSemaine()
  Dim i As Long
  For i = 1 To 770
    Cells((i - 1) * 8 + 1, 1) = "Lundi"
    Cells((i - 1) * 8 + 2, 1) = "Mardi"
    Cells((i - 1) * 8 + 3, 1) = "Mercredi"
    Cells((i - 1) * 8 + 4, 1) = "Jeudi"
    Cells((i - 1) * 8 + 5, 1) = "Vendredi"
    Cells((i - 1) * 8 + 6, 1) = "Samedi"
    Cells((i - 1) * 8 + 7, 1) = "Dimanche"
 
  Next
End Sub

te conviendrait-il ?

[unparia]

Bonjour
Est-il idiot de s'intéresser de plus près à ce qu'est la fonction WeekdayName ?

petit (tout petit) test pour aider à comprendre le sens de mon message :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 0 To 100
  MsgBox WeekdayName((i Mod 7) + 1, , vbMonday)
Next

EDIT : je suggère de modifier le titre donné à cette discussion ("écrire des mots" ne résume certes pas la difficulté exposée)

[Philippe Tulliez]

Bonjour Unparia,

Est-il idiot de s'intéresser de plus près à ce qu'est la fonction WeekdayName ?

Je pensais à la même chose en lisant la question avant de découvrir ta réponse. Une autre solution est l'utilisation du formatage personnalisé tellement peu connu par la plupart des utilisateurs qui vont jusqu'à insérer une colonne pour indiquer le jour.

je suggère de modifier le titre donné à cette discussion ("écrire des mots" ne résume certes pas la difficulté exposée)

De même que le mot case au lieu de cellule

[zaitIX]

Ton code marche parfaitement EBRAG !! merci beaucoup, je vais aussi regarder la fonction weekdaytime !

Un grand merci à vous, je vais me plonger un peu plus en profondeur sur VBA, c'est un bon outil!

[EBRAG]

Bonjour
Est-il idiot de s'intéresser de plus près à ce qu'est la fonction WeekdayName ?

Bonsoir,

Certes, c'est loin d'être idiot !

La première chose à laquelle je pense quand je réponds à un débutant VBA, c'est de proposer une solution qui me semble être la plus facile à appréhender... même si ce n'est pas la plus concise !

Bonne soirée et merci pour cette contribution.

Joël