XL 2010 Macro pour descendre les contenus de deux cellules

stich02

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Bonsoir le fil

A adapter (au niveau du nom de la feuille)
test ok sur mon PC
VB:
Sub test()
Range("A3:B" & Cells(Rows.Count, 3).End(3).Row).FillDown
End Sub
 

stich02

XLDnaute Occasionnel
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
 

stich02

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Re

Bon, puisque toujours pas de fichier (je teste à l'aveugle)
VB:
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
De rien
pas en pépètes, mais en auto-satisfaction d'aider mon prochain, de nourrir ma curiosité et d'entretenir mes neurones ;)
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas