Sujet Précédent Sujet Suivant

Macro commande Visual basic

Fermé
Gagnej Messages postés 3 Date d'inscription jeudi 27 avril 2017 Statut Membre Dernière intervention 28 avril 2017 - 27 avril 2017 à 15:21
Gagnej Messages postés 3 Date d'inscription jeudi 27 avril 2017 Statut Membre Dernière intervention 28 avril 2017 - 28 avril 2017 à 20:19
Bonjour,

Voici une partie d'une macro que j'ai créée... En fait je veux que ma formule se répète sur la colonne entière mais comme je n'ai pas toujours le même nombre de ligne, je dois rajuster à chaque fois. Comment je pourrais indiquer de copier jusqu'à la dernière ligne de donnée?

ActiveCell.FormulaR1C1 = _
"=IF(DATEDIF(RC10,PARAMÈTRES!R16C2,""y"")>100,0,DATEDIF(RC10,PARAMÈTRES!R16C2,""y""))"
Range("k2").Select
Selection.AutoFill Destination:=Range("k2:k1465")

MERCI de votre aide!! :)
A voir également:

2 réponses

Réponse 1 / 2
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
28 avril 2017 à 13:06
Bonjour
Dans cet exemple, la formule est copiée sur l'ensemble de la colonne par rapport à la longueur de la colonne A 
    Range("K2:K" & [A100000].End(xlUp).Row).FormulaR1C1 = "=IF(DATEDIF(RC10,PARAMÈTRES!R16C2,""y"")>100,0,DATEDIF(RC10,PARAMÈTRES!R16C2,""y""))"

Cdlt
0
Gagnej Messages postés 3 Date d'inscription jeudi 27 avril 2017 Statut Membre Dernière intervention 28 avril 2017
28 avril 2017 à 20:19
Good Merci!!
0
Réponse 2 / 2
Gagnej Messages postés 3 Date d'inscription jeudi 27 avril 2017 Statut Membre Dernière intervention 28 avril 2017
28 avril 2017 à 20:19
Wow!! Merci @Frenchie83, ça fonctionne! Je suis ravie! ;)
0

Discussions similaires

Site de confiance ou non ?
mlle_so -
Jaffeli -

25 réponses
CPU tourne à 100% avec Visual Basic Command Line Compiler
IKeroZI -
bazfile -

10 réponses