Discussion :

[chito79000]

Bonjour à tous,

Je vous explique la situation. Dans mon code vba ci-dessous, je note un texte sur la cellule AS2 et je lui demande de recopier le texte jusqu'à la dernière ligne.

Code :

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

1
2
3
4
5
    ActiveCell.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "31/12/2015"
    Dim DernLigne As Long
    DernLigne = Range("C" & Rows.Count).End(xlUp).Row
    Range("AS2").AutoFill Destination:=Range("AS2:AS" & DernLigne)

MAIS, dans cet extrait, je voudrais que la recopie soit la même valeur. Lorsque je lance la macro, j'obtiens un résultat par exemple en AS3 => 31/12/2016....

[joe.levrai]

Bonjour,

l'autofill va incrémenter une date, ou une valeur, c'est normal

essaye comme ça (je ne m'attarde pas sur l'utilité de l'activecell)

Code :

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

1
2
3
4
5
Dim DernLigne As Long
 
DernLigne = Range("C" & Rows.Count).End(xlUp).Row
ActiveCell = "31/12/2015"
Range("AS2:A" & DernLigne).Value = ActiveCell.Value

[chito79000]

Merci à vous

autres questions...

Dans le code ci-dessous, la formule ne fonctionne pas quand je lance la macro alors que si je saisie la formule manuellement,elle fonctionne.
Pour information, c'est une formule qui dit que si la date dans AL est supérieur à celle dans AS alors faire la différence entre AK et AS sinon rien faire (=SI(AL2>AS2;DATEDIF(AK2;AR2;"d");""))

Code :

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

1
2
3
4
    Range("AR2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-6]>RC[1],DATEDIF(RC[-7],RC[1],""d""),"""")"
    DernLigne = Range("C" & Rows.Count).End(xlUp).Row
    Range("AR2").AutoFill Destination:=Range("AR2:AR" & DernLigne

Petite précision, quand la macro est terminée, je dois double cliquer sur la cellule et faire "entrée" pour que la formule fonctionne...

[Docmarti]

Petite précision, quand la macro est terminée, je dois double cliquer sur la cellule et faire "entrée" pour que la formule fonctionne...

Et si tu fais suivre par

Code :

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

Range("AR2:AR" & DernLigne).Calculate

ca change quelque chose ?

[tamtam64]

Code :

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

application.calculation = xlcalculationautomatic

ou un truc comme ca car aparement tu es en manuel

[chito79000]

Bonjour à tous,

Cela ne fonctionne toujours pas ....

En effet, je dois toujours double cliquer sur la date pour que la formule fonctionne....