Copier la formule jusq'en bas deux fois dans la meme macro
Résolu
Marie Chant
Messages postés
136
Date d'inscription
Statut
Membre
Dernière intervention
-
Marie Chant Messages postés 136 Date d'inscription Statut Membre Dernière intervention -
Marie Chant Messages postés 136 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Que dois-je inscrire pour que ma formule se fasse jusqu'en bas une nouvelle fois dans la meme macro? Qu'est-ce qui remplace le double-clique que l'on fait manuellement dans une macro?
Range("P2").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],'Matrice Catégorie'!C[-14]:C[-13],2,FALSE)"
Range("P2").Select
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Range("P2").AutoFill Destination:=Range("P2:P" & DernLigne)
Je voudrais faire de meme sur la colonne O mais je ne peux inscrire de nouveau Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Range("P2").AutoFill Destination:=Range("P2:P" & DernLigne)
dans la meme macro
Merci beaucoup de votre aide
Que dois-je inscrire pour que ma formule se fasse jusqu'en bas une nouvelle fois dans la meme macro? Qu'est-ce qui remplace le double-clique que l'on fait manuellement dans une macro?
Range("P2").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],'Matrice Catégorie'!C[-14]:C[-13],2,FALSE)"
Range("P2").Select
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Range("P2").AutoFill Destination:=Range("P2:P" & DernLigne)
Je voudrais faire de meme sur la colonne O mais je ne peux inscrire de nouveau Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Range("P2").AutoFill Destination:=Range("P2:P" & DernLigne)
dans la meme macro
Merci beaucoup de votre aide
A voir également:
- Copier la formule jusq'en bas deux fois dans la meme macro
- Formule si et - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule moyenne excel plusieurs colonnes - Guide
- Comment faire deux colonnes indépendantes dans word - Guide
- Formule mathématique - Télécharger - Études & Formations
3 réponses
Salut le Forum
Si il y a le même nombre de lignes ajoute :
Mytå
Si il y a le même nombre de lignes ajoute :
Range("O2").AutoFill Destination:=Range("O2:O" & DernLigne)
Mytå
Marie Chant
Messages postés
136
Date d'inscription
Statut
Membre
Dernière intervention
9
Merci beaucoup Mytå cela fonctionne très bien. C'est très gentil de votre part de m'avoir répondu j'apprécie énormement. Je vous souhaite une très belle journée!
Merci eriiic Bonne journée!
Bonjour
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
