VBA recherche de la prochaine cellule vide (vers le bas)

Bonjour à tous,

Je suis nouveau sur le forum et plus que débutant en VBA et Macro!

J'aimerais juste composer un code VBA pour une manip que j'arrive pas a faire via l'enregistrement de macro...

Je vais essayer de détailler étape par étape au mieux ^^

En gros, j'ai une première macro qui me calcul des coûts de transport et elle colle les résultats dans une autre feuille à la cellule B1.

1. Se rendre à la feuille N° 2 (easy) = Sheets(f3).Select

2. Se rendre cellule B1 (ça c'est simple) = Range("B1").Select

3. Copier le contenu de la cellule (ça aussi c'est simple ^^) = Selection.Copy

4. Aller en cellule G1 (idem que B1) = Range("G1").Select

5. Descendre jusqu'à la prochaine cellule vide puis y coller le résultat (trop compliqué pour moi ^^) = C'est là que j'ai besoins de vous les experts !

6. End Sub

Merci d'avance pour votre aide :D

Bonjour,

Voici une solution possible.

' Descendre jusqu'à la prochaine cellule vide
    Do
        ActiveCell.Offset(1, 0).Select
    Loop Until IsEmpty(ActiveCell)

    ' Coller le résultat dans la cellule vide
    ActiveSheet.Paste

J'ai vraiment trouvé le bon Forum !!!!!! Merci @oiseaubleu, ça fonctionne à la perfection!

bonjour PJ_Joumi, Oiseaubleu,

vous êtes encore novice, mais il fait essayer à éviter tout ce qui est "Activate" ou "Select" parce que cela ralentit la macro, mais ce n'est pas toujours évident. En plus, comme çà, on est même capable de copier et coller sans que la feuille est la feuille active.

Sub Joumi()
     Dim MaCelluleB, MaCelluleG, i, f3

     f3 = ActiveSheet.Name                   'c'est quoi ce f3 ??? ici la feuille active
     Set MaCelluleB = Sheets(f3).Range("B1")     'votre source

     i = 0
     Do
          Set MaCelluleG = MaCelluleB.Offset(i, 5)     'G est 5 colonnes vers droite
          b = IsEmpty(MaCelluleG)            'teste si G est vide
          If Not b Then i = i + 1
     Loop While Not b

     MaCelluleB.Copy MaCelluleG              'copier et coller

End Sub

Hello Bart,

Merci pour ces infos, j'aurais la manière "soft" si un jour j'ai une macro un peut lente ^^

Je garde l'info bien au chaud!