Appliquer Formule à une colonne

Parfait, merci beaucoup

Vous sauriez m'expliquer comment appliquer la fonction Mois() à la colonne N qui permettrait de renvoyer le mois correspondant à la date saisie en H ?

@ti_moutonRe,

https://www.cjoint.com/c/EFlmuVqK3Df

C'est parfait, merci beaucoup pour ton aide précieuse !

A nouveau besoin d'aide ... Si je veux avoir le mois en lettre plutôt qu'en chiffres, j'aai essayé

.Range("N" & DerLig) = Text(Month(CDate(TextBox1)),"mmmm")

mais sans succès ....
Merci

Merci,

Pourrais tu me donner le lien du post de thev que tu cite. J'aimerais pouvoir voir la différence de code entre les deux formats pour bien comprendre. Merci

C'est bon je l'ai retrouvé.

Merci beaucoup

Pourrais tu m'expliquer les modifications que tu as apporté au code que j'avais initialement:

With Worksheets("Saisie")
    DerLig = .Range("B" & Rows.Count).End(xlUp).Row + 1
    .Range("C" & DerLig).Value = ComboBox1.Value
    .Range("D" & DerLig).Value = ComboBox2.Value
    .Range("E" & DerLig).Value = ComboBox3.Value
    .Range("F" & DerLig).Value = ComboBox4.Value
    .Range("G" & DerLig).Value = ComboBox5.Value
    .Range("B" & DerLig).Value = ComboBox6.Value
    .Range("H" & DerLig).Value = Format(TextBox1.Value, "yyyy-mm-dd")
    .Range("J" & DerLig).Value = TextBox2.Value
    .Range("I" & DerLig).Value = TextBox3.Value
    .Range("K" & DerLig).Value = TextBox4.Value
    
End With

Tu l'as transformé comme ca :

With Worksheets("Saisie")
        DerLig = .Range("B" & Rows.Count).End(xlUp).Row + 1
        .Range("C" & DerLig).Value = ComboBox1.Value
        .Range("D" & DerLig).Value = ComboBox2.Value
        .Range("E" & DerLig).Value = ComboBox3.Value
        .Range("F" & DerLig).Value = ComboBox4.Value
        .Range("G" & DerLig).Value = ComboBox5.Value
        .Range("B" & DerLig).Value = ComboBox6.Value
        MJ = Replace(TextBox1, "/", "-")
        DDate = Year(Date) & "-" & MJ
        .Range("H" & DerLig).Value = DDate
        .Range("H" & DerLig).NumberFormat = "yyyy-mm-dd"
        .Range("J" & DerLig).Value = TextBox2.Value
        .Range("I" & DerLig).Value = TextBox3.Value
        .Range("K" & DerLig).Value = TextBox4.Value
        .Range("L" & DerLig) = semaine(DDate)
        .Range("M" & DerLig) = ComboBox2.Value & " " & ComboBox3.Value
    End With

J'aimerais pouvoir comprendre pour le rebasculer au format JJ/MM/AAAA.
En fait ma textBox1 est au format AAAA/MM/JJ mais quand elle retranscrit la date saisie dans la colonne H, la date est bien au format JJ/MM/AAAA. Du coup la fonction numéro de semaine m'indique qu'il y a un pb de format.

De plus, je ne veux pas que l'année s'inscrive automatiquement car je dois pouvoir saisir des éléments de l'année dernière.

@ti_moutonBonjour,
Je tombe sur votre post un peu par hasard dans lequel est citée la fonction "semaine" que j'avais donnée en 2009. J'y ai par la suite identifié un bug que j'ai rectifié dans la nouvelle version ci-dessous :

Function semaine(date_s)
   
Année = Year(date_s)
'détermination date du premier lundi de la semaine 1 de l'année
date_1er_jour_année = DateSerial(Année, 1, 1)
For j = 0 To 6
    date_j = date_1er_jour_année + j
    jour = Format(date_j, "dddd", vbMonday)
    If jour = "jeudi" Then
        date_lundi_semaine1_année = date_j - 3
    End If
Next
'détermination date du premier lundi de la semaine 1 de l'année suivante
date_1er_jour_année_suivante = DateSerial(Année + 1, 1, 1)
For j = 0 To 6
    date_j = date_1er_jour_année_suivante + j
    jour = Format(date_j, "dddd", vbMonday)
    If jour = "jeudi" Then
        date_lundi_semaine1_année_suivante = date_j - 3
    End If
Next
'détermination date du premier lundi de la semaine 1 de l'année précédente
date_1er_jour_année_précédente = DateSerial(Année - 1, 1, 1)
For j = 0 To 6
    date_j = date_1er_jour_année_précédente + j
    jour = Format(date_j, "dddd", vbMonday)
    If jour = "jeudi" Then
        date_lundi_semaine1_année_précédente = date_j - 3
    End If
Next

'détermination date du lundi de la semaine 1
Do
    date_lundi_semaine1 = date_lundi_semaine1_année_suivante
    If date_s >= date_lundi_semaine1 Then Exit Do
    date_lundi_semaine1 = date_lundi_semaine1_année
    If date_s >= date_lundi_semaine1 Then Exit Do
    date_lundi_semaine1 = date_lundi_semaine1_année_précédente
    Exit Do
Loop

'détermination de la semaine
semaine = 1 + (date_s - date_lundi_semaine1) \ 7

End Function

Bonjour,

Si vous le voulez bien, nous continuons

A vous de voir

Bonjour F894009,

Je vous met en pièce jointe le fichier sur lequel je travaille. La feuille concernée est celle dénommée "Saisie". Le principe est le suivant : chaque semaine des données sont saisies dans les colonnes de B à K. Je souhaite faire en sorte qu'une fois la saisie effectuée, la colonne L renseigne automatiquement le n° de la semaine en fonction de la date saisie en H, et que la colonne M soit une concaténation des info saisies en D et E.
Je connais le code qui permet d'appliquer une fonction excel à une cellule, mais je ne sais pas comment faire pour l'appliquer à une colonne entière...

Cdt

http://www.cjoint.com/c/EFlhKIredo5

@ti_moutonRe,

Je regarde la chose

Par contre, pourquoi une formule pour le n° de semaine ????

A+

F894009

Je parlais de Rdurupt sur DVP comme je l'ai écris , pas de toi ....imagine toi que j'avais lu ce message de remerciement à ton égard

quant à Ti_mouton
"Grâce à votre forum je suis parvenue à créer une macro" qui n'a pas lieu d'être sur le forum DVP. Je m'en excuse.

que ce soit sur DVP ou CCM ou... je m'en moque
s'approprier le boulot d'un autre m^me bénévole cela s'appelle un plagiat
Il aurait décent d'écrire "Une procédure m' a été fourni sur votre forum ( encore merci)"
ce n'est pas indispensable de citer l'auteur

@michel_mRe,

Ok, de mon cote, je vais essayer de faire passer le message a l'occasion

Bonjour Michel,

Je ne comprend pas bien ton intervention. J'ai remercié toutes les personnes qui ont cherché à m'aider sur ce forum. Concernant mon pb de classeur en réseau, j'avais besoin d'une réponse rapide, ainsi pour mettre toutes les chances de mon côté j'ai publié ma question sur 2 forum, et j'ai malheureusement fait un bête copier/coller de ma question que j'avais posté en premier sur ce forum, d'où la phrase "Grâce à votre forum je suis parvenue à créer une macro" qui n'a pas lieu d'être sur le forum DVP. Je m'en excuse.
Mon pb de classeur en réseau a été rapidement résolu par F894009, que je n'ai pas manqué de remercier! Je n'ai pas pris le temps de retourner sur le forum DVP pour voir si l'on m'avait répondu. Milles excuses je ne pensais pas offenser quelqu'un!

Merci, mais ce n'est pas ce que je veux. Cette formule va devoir s'appliquer sur plusieurs centaines voir milliers de lignes. J'ai besoin que la formule s'applique automatiquement sans avoir besoin de la faire glisser sur toutes les lignes.
Cdt

Oui merci, je connais cette formule, seulement j'aimerais savoir comment l'intégrer
sous VBA

@ti_moutonRe,

Faut tout dire au depart ........

OUi d'accord, mais comment on fait ? si je pose la question c'est que je ne sais pas le faire...