XL 2010 Macro pour descendre les contenus de deux cellules

[stich02]

Bonjour à tous,,

J'utilise depuis longtemps la macro ci-dessous qui me permet de descendre le contenu des cellules A3 et B3 tant que les cellules de la colonne C ne sont pas vide. Toutefois aujourd'hui je voudrais faire de même mais à partir des cellules AX et BX sachant que X peut varier. Autrement dit à partir de la première cellule vide de la colonne A et B (qui est toujours la même).

Est-ce possible?

Sub date_etiree()

Dim LastRw As Long
LastRw = Sheets("VIM WP").Cells(Rows.Count, 3).End(xlUp).Row
Range("b3:b" & LastRw).FillDown
LastRw = Sheets("VIM WP").Cells(Rows.Count, 2).End(xlUp).Row
Range("A3:A" & LastRw).FillDown


Merci d'avance de votre aide.

Bonne soirée

 

[Staple1600]

Bonsoir le fil

A adapter (au niveau du nom de la feuille)
test ok sur mon PC

Sub test()
Range("A3:B" & Cells(Rows.Count, 3).End(3).Row).FillDown
End Sub

 

[stich02]

Bonsoir Staple1600,

Merci de vous être penché sur mon problème.
Votre macro va beaucoup plus vite que celle que j'utilisais.
Toutefois, après plusieurs tests elle semble repredre toujours les informations contenues dans les cellules A3 et B3 et non les informations contenues dans les dernières cellules non vides des colonnes A et B.

Sauf mauvaise manipulation de ma part bien entendu...

Jean-Marie

 

[Staple1600]

Re

Comme je le disais: test ok sur mon fichier.
Je te laisse déduire ce qu'il y a déduire de ce mot en gras 😉

 

[stich02]

Désolé d'insister mais juste une dernière petite question, sur votre fichier si les données contenues par exemple en A10 et B10 sont différentes de celles contenues en A3 et B3 votre macro descend bien les données de A10 et B10?

Jean-Marie

 

[Staple1600]

Re

La bonne déduction était
"Ah oui, j'aurais du joindre un fichier exemple dès le 1er message"

 

[Staple1600]

Re

Bon, puisque toujours pas de fichier (je teste à l'aveugle)

Sub test2()
With Cells(Rows.Count, 1).End(3)
x = .Row: .Resize(Cells(Rows.Count, 3).End(3).Row + 1 - x, 2).FillDown
End With
End Sub

 

[stich02]

Vous avez raison j'aurais dû joindre un fichier.
Et j'avoue que je n'avais pas compris votre allusion qui pourtant était très explicite...
Sinon votre macro marche impeccablement et c'est exactement ce qu'il me fallait.
Encore merci pour votre dévouement.

Bonne soirée.

 

[Staple1600]

De rien

Spoiler: Je suis payé pour cela...

pas en pépètes, mais en auto-satisfaction d'aider mon prochain, de nourrir ma curiosité et d'entretenir mes neurones 😉