Discussion :

[yalefe]

Bonjour

un petit appel à vos connaissances

j'ai un fichier ( de telecommunications) avec une colonne contenant la date de l'appel telephonique sous la forme jj/mm/aaaa.

j'insere une colonne avec ces dates afin de pouvor y integrer le nom du jour pour pouvoir faire ensuite des tris.

Code :

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

1
2
3
4
5
6
7
8
9
10
...
Columns("K:K").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("K2").Select
    Do
 
    ActiveCell.FormulaR1C1 = "=TEXT(WEEKDAY(RC[1],1),""jjjj"")"
    ActiveCell.Offset(1, 0).Activate
    Loop Until IsEmpty(ActiveCell.Offset(0, 1).Value)
...

Mon probleme est que je balaye les dates une par une pour pouvoir integrer les noms des jours.

et c'est pas franchement tres optimal surtout vu le nombre de lignes (103769 ce mois)

d'ou ma question est-il possible de faire un copier coller de la premiere cellule (où se trouve ma formule) jusqu'a la dernière cellule remplie ( où se trouve la derniere date) ?

merci de vos conseils

[jfontaine]

Bonjour,

Voici une méthode

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Columns("K:K").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("K2").Select
 
    Do
        Dim i as long
        Do while range("A" & i).Value<>""
           ActiveCell.FormulaLocal= "=TEXT(WEEKDAY(A" & i & ",1),""jjjj"")"
           ActiveCell.Offset(1, 0).Activate
        Loop
 
    Loop Until IsEmpty(ActiveCell.Offset(0, 1).Value)

Comme je ne suis pas super a l aise avec les formules du style R1C1 je suis repassé en standard pour comprendre ou on met le i

[oOVaveOo]

Bonsoir,

Tu peux aussi utiliser après avoir sélectionné ta 1ère formule :

Code :

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

Selection.AutoFill Destination:=Range("B1:B" & lastLigne)

Il faut déterminer LastLigne au préalable.