Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 [résolu] VBA Etirer formule jusqu'à la dernière ligne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Tooxy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Tooxy

XLDnaute Nouveau
Bonjour à tous,

Je me permets d'user de vous solliciter pour m'aider à modifier ma macro pour laquelle je souhaite étirer la formule jusqu'à la dernière ligne existante.
Plusieurs sujets évoque les solutions mais hélas à chaque fois, j'obtiens un résultat infructueux

Dans le code ci-après, je cherche la bonne syntaxe pour =Range("H3:H30000") et remplacer le 30000 par la dernière ligne qui serait donc si j'ai bien compris H3: &derlig

Code: 
Sub Consolider()
'
' on va consolider les motivations
'

'
    Columns("F:F").Select
    Selection.Replace What:="=""", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns("G:G").Select
    Selection.Replace What:="=""", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("H3").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Export_b!C1:C2,2,FALSE)"
    Range("H3").Select
    Selection.AutoFill Destination:=Range("H3:H30000")
    Range("H3:H30000").Select
    Range("I3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-3]=RC[-2],"""",VLOOKUP(RC[-2],Export_b!C1:C2,2,FALSE))"
    Range("I3").Select
    Selection.AutoFill Destination:=Range("I3:I30000")
    Range("I3:I30000").Select
End Sub

Merci infiniment de votre aide.
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : VBA Etirer formule jusqu'à la dernière ligne

Bonjour Tooxy,

si tu mettait le fichier joint ça serait mieux. Sinon un exemple à adapter à ton cas

EDIT: Bonjour Chris 🙂

Code: 
Sub test()
With Feuil1
.Range("f1").FormulaR1C1 = "=VLOOKUP(RC[-2],Export_b!C1:C2,2,FALSE)"
.Range("f1").Copy 'cellule contenant la formule
.Range("h3").PasteSpecial Paste:=xlPasteFormulas
.Range("h3").AutoFill .Range("h3:h30000"), Type:=xlFillDefault

.Range("g1").FormulaR1C1 = "=IF(RC[-3]=RC[-2],"""",VLOOKUP(RC[-2],Export_b!C1:C2,2,FALSE))"
.Range("g1").Copy 'cellule contenant la formule
.Range("i3").PasteSpecial Paste:=xlPasteFormulas
.Range("i3").AutoFill .Range("i3:i30000"), Type:=xlFillDefault
End With
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : VBA Etirer formule jusqu'à la dernière ligne

Re
Bonjour Lone-wolf

En attendant le fichier, à tester :
Code: 
Sub Consolider()
'
' on va consolider les motivations
'
Dim derlg As Integer
derlg = Range("F" & Rows.Count).End(xlUp).Row

    With Range("F2:G" & derlg)
    .Replace What:="=""", Replacement:=""
    .Replace What:="""", Replacement:=""
    End With
    
    Range("H3").FormulaR1C1 = "=VLOOKUP(RC[-2],Export_b!C1:C2,2,FALSE)"
    Range("I3").FormulaR1C1 = _
        "=IF(RC[-3]=RC[-2],"""",VLOOKUP(RC[-2],Export_b!C1:C2,2,FALSE))"
        
    Range("H3:I3").AutoFill Destination:=Range("H3:I" & derlg)
    
    'Pour n'afficher que les valeurs
    Range("H3:I" & derlg) = Range("H3:I" & derlg).Value
    
End Sub
Chris
 
Vote positif 0 Vote négatif
Re : VBA Etirer formule jusqu'à la dernière ligne

Chris401;

Ta solution fonctionne à merveille et la cerise sur le gâteau c'est que la macro s’exécute beaucoup plus rapidement.
Génial, génial !!!

Merci infiniment 🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
447
Phil69970
S
  • Question Question
XL 2016 Inversion jour / mois
Réponses
2
Affichages
480
dysorthographie
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
349
Dégé59
D
D
  • Question Question
Microsoft 365 Problème avec remplacer . par ,
Réponses
3
Affichages
495
de_hanstrapp
D
T
  • Question Question
Microsoft 365 Modification formules via VBA
Réponses
1
Affichages
299
Dudu2
B
  • Question Question
Microsoft 365 Remplacer "." par "," avec VBA sans qu'il considère que c'est des milliers si ça ne commence par "0."
Réponses
1
Affichages
652
Eric KERGRESSE
E
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
540
Francky79
F
N
  • Résolu(e)
XL 2019 transformation de cordonnée GPS
Réponses
14
Affichages
1 K
sylvanu
M
  • Question Question
XL 2016 Problème avec fonction VBA
Réponses
7
Affichages
689
MCOTTEND
M
  • Résolu(e)
XL 2016 Selection.replace inopérante
Réponses
4
Affichages
587
albuqs
F
  • Résolu(e)
Microsoft 365 Commentaire cellule dans TextBox dans UserForm
Réponses
4
Affichages
687
Francky79
F
  • Question Question
XL 2016 excel VBA : recherche dans une colonne sans la sélectionner
Réponses
4
Affichages
569
job75
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
K
  • Résolu(e)
XL 2016 Ne garder que les chiffres dans la colonne A et remplacer les h et '
2
Réponses
16
Affichages
2 K
Phil69970
  • Question Question
XL 2016 Définir un nom en vba
Réponses
3
Affichages
563
Phillip
E
  • Résolu(e)
XL 2019 Format Date Anglais / Francais
Réponses
5
Affichages
2 K
EDI9366
E
  • Résolu(e)
XL 2019 [Résolu] Problème VBA Find
Réponses
6
Affichages
2 K
lebarbo
A
  • Question Question
XL 2016 Remplacer des valeurs dans toutes une feuilles VBA
Réponses
8
Affichages
810
Robert
Y
  • Résolu(e)
XL 2013 Recherche qui fonctionne avec le texte et non la Value
Réponses
3
Affichages
524
youguybass
Y
C
  • Résolu(e)
XL pour MAC Recherche Date
Réponses
12
Affichages
900
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…