Gestion de la quantité de cellule en VBA

Résolu

wil_2638 -
wil_2638 - 24 janv. 2018 à 22:35

Bonjour,

j'essaye de faire via VBA une série de vlookup via l'enregistreur de macro
cela fonctionne mais j'ai du mal à gérer la fin des cellules
Selection.AutoFill Destination:=Range("G2:G50609")
le nombre de lignes de mon fichier peux varier
il peut 50 609 ou bien une autre quantité de ligne
existe il un moyen de prendre en compte toute les lignes ayant un uniquement un contenu

Columns("G:G").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],table_1!C3:C5,3)"
    Range("G2").Select
    Selection.AutoFill Destination:=Range("G2:G50609")
    Range("G2:G50609").Select
    Range("H2").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[2],table_2!C3:C4,2,FALSE)"
    Range("H2").Select
    Selection.AutoFill Destination:=Range("H2:H50609")
    Range("H2:H50609").Select
    Range("H2").Select

merci

A voir également:

Gestion de la quantité de cellule en VBA
Excel compter cellule couleur sans vba - Guide
Excel cellule couleur si condition texte - Guide
Logiciel gestion locative gratuit excel - Télécharger - Comptabilité & Facturation
Aller à la ligne dans une cellule excel - Guide
Logiciel gestion photo gratuit - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Derniere cellule non vide colonne, ici A

derlig = Range("A" & Rows.Count).End(xlUp).Row

Votre code:

Selection.AutoFill Destination:=Range("G2:G" & Range("G" & Rows.Count).End(xlUp).Row)

Réponse 2 / 2

wil_2638

cela fonctionne merci

Discussions similaires

Calcul des ventes par mois d'un produit

Erreur d'exécution 13 Incompatibilité de type

Excel VBA : Récupérer la valeur d'une cellule

excel fractionner une cellule horizontalement

Votre réponse

Discussions similaires