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
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!! :)
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:
- Macro commande Visual basic
- Invite de commande - Guide
- Visual basic - Télécharger - Langages
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Microsoft 365 basic - Accueil - Microsoft Office
- Commande terminal mac - Guide
2 réponses
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
28 avril 2017 à 13:06
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
Cdlt
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
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
28 avril 2017 à 20:19
Wow!! Merci @Frenchie83, ça fonctionne! Je suis ravie! ;)
28 avril 2017 à 20:19