Discussion :

[vicovico]

Bonjour,

Nouvel inscrit sur ce forum, je suis également novice sur VBA. Je m'y forme sur le tas, sur le tard.. Et c'est dur.
J'ai déjà vu des sujets traitant d'1 partie du problème ou l'autre sur ce forum, mais pas du sujet complet, et j'ai du mal à combiner les réponses...
D'avance merci pour votre aide, voici mon problème:

Dans une macro que j'enregistre, je souhaite venir écrire sur la dernière colonne avec des valeurs dans la ligne 5 de ma feuille de données le numéro de la semaine en cours. Puis viennent d'autres opérations simples que je n'intègre pas dans ce sujet car elles fonctionnent.
Voici le code:

Code :

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

1
2
3
4
    Range("A5").Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    ActiveCell.FormulaLocal = "="semaine "&no.semaine(aujourdhui();21)"

Sauf que ça ne marche pas, une erreur de syntaxe semble s'être glissée dans mon code...
Merci d'avance pour votre aide, et mes excuses d'avance pour ce "faux" problème lié à mon manque de connaissance sur le sujet,
Très bonne journée à vous et surtout: bonnes fêtes!
Victor

[yoyof]

Bonjour,

il est préférable d'éviter l'utilisation de select.
Par contre, remplace

Code :

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

"semaine "

par

Code :

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

""semaine ""

et dis-moi si c'es ok.

Yohann

[Invité]

Bonjour,

Essayez

Code :

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

1
2
 
ActiveCell.FormulaLocal = "=""Semaine ""&no.semaine(" & "aujourdhui()" & ";21)"

Effectivement, la syntaxe de Yoann est suffisante : dont acte.

Cordialement.

[yoyof]

Mettre des espaces autour du

Code :

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

&

est aussi à envisager.

Mon post a croisé celui d'Eric.

[yoyof]

Code :

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

ActiveCell.FormulaLocal = "=""Semaine ""&no.semaine(aujourdhui();21)"

est suffisant

[vicovico]

Bonjour Eric & Yoyof,

Merci pour vos messages!
J'ai adapté mon code comme conseillé et cela fonctionne! super!
Effectivement, je ne maîtrise pas bien l'utilisation des espaces et des " , j'imagine que la syntaxe devait en souffrir!
Un grand merci à vous!

Voici le code rectifié:

Code :

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

1
2
3
4
Range("A5").Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    ActiveCell.FormulaLocal = "=""Semaine ""&no.semaine(" & "aujourdhui()" & ";21)"

Bonne journée à vous!
et bonnes fêtes
Victor

[Invité]

Effectivement, je ne maîtrise pas bien l'utilisation des espaces et des "

Quand vous ne connaissez pas la syntaxe, servez-vous de l'enregistreur de macro et tapez votre fonction. De mon point de vue, c'est plus facile également de garder le format proposé par la macro, c'est à dire pas en format local, Excel fait la traduction.

Cordialement.

[yoyof]

Victor,

tente ceci (si c'est vraiment sur la dernière colonne que tu écris):

Code :

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

Cells(5, Columns.Count).FormulaLocal = "=""Semaine ""&no.semaine(aujourdhui();21)"

Pour info, pour inscrire un guillemet " dans une cellule par VBA, on inscrit 2 guillemets "" dans le code (je ne sais pas si c'est clair dit comme ceci).

Yohann