Etirer dernière cellule non vide de la colonne A après chaque boucle VBA Fermé

Question

Bonjour à tous,

Après une multitude d'essais je me dis que la réponse se trouve peut être ici :)

Je souhaite consolider plusieurs feuilles (qui ont le même format) sur une seule et unique feuille Excel. Jusque là tout va bien.

Mon problème est le suivant :
Je souhaite pouvoir étirer la formule se trouvant dans la dernière cellule non vide de la colonne A (exemple A2), jusqu'à la dernière cellule B non vide. Mon problème c'est que à chaque fois que je copie un onglet la position de ma dernière cellule non vide de la colonne A change. C'est cette dernière cellule que je dois étirer boucle après boucle.

La seule piste que j'ai trouvée est la suivante :
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Range("A2").AutoFill Range("A2:A" & Range("B10000").End(xlUp).Row) 'je voudrais rendre ma ligne de code plus neutre en ne spécifiant pas la cellule A2 car cette dernière varie à chaque boucle

je souhaiterais également voir le décompte de chaque feuille traitée

Pourriez-vous m'aider s'il vous plait ?

Mille Mercis

Lucie

f894009 · Answer

Bonjour,

Sub test()
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row
    Range("A" & DernLigne).AutoFill Range("A" & DernLigne & ":A" & Range("B10000").End(xlUp).Row)
End Sub

décompte de chaque feuille traitée
Si vous parlez de feuilles
Chaque fois que vous passez par ces lignes de code, vous un +1 sur une variable
Quand toutes les feuilles sont vues
Vous ecrivez le contenu de cette variable dans une cellule

Lucie · Answer

Merci pour votre réponse rapide. Malheureusement cela ne fonctionne pas totalement :
La dernière cellule de la colonne A se copie à partir de la dernière cellule B non vide et cela jusqu'à la fin du fichier Excel.

Ce que je rechercher :
1 ère boucle :
- ma formule est dans la cellule A2
- ma dernière cellule B non vide est en B5
- Je veux étendre la cellule A2 jusqu'en B5

2ème boucle :
- ma formule est dans la cellule A6
- ma dernière cellule B non vide est en B13
- je veux étendre la cellule A6 jusqu'en B13

Et ainsi de suite

Auriez-vous une autre solution pour moi ? :)

Lucie · Answer

Malheureusement cela ne fonctionne toujours. c'est peut être dû à mon fichier car certaines lignes sont vides.

Vous trouverez ci-dessous mon fichier avec la macro complète, ça sera certainement plus facile :

https://drive.google.com/file/d/15HwVgbD1nGclEZLOmZBh8Lx1selOXsva/view?usp=sharing

Encore merci pour votre aide

Lucie · Answer

Je voulais vous informer qu'une solution a été trouvée ! Il s'avère que le fichier source est beaucoup plus complexe que ce que je n'imaginais ....

Merci pour les pistes que vous m'aviez données

Lucie

Etirer dernière cellule non vide de la colonne A après chaque boucle VBA

4 réponses

Discussions similaires