Boucle Do While couper coller des cellules

Bonsoir le forum,

J'essaie actuellement de faire une boucle pour pouvoir couper et coller les cellules de la colonne P sur la colonne A. J'ai essayé de le faire avec la boucle avec le Do While mais j'y arrive pas, c'est pourquoi je demande votre aide. Je voudrais qu'il quitte la boucle s'il tombe sur une cellule vide dans la colonne P. Voici mon code et mon fichier en pièce jointe. Merci pour votre aide.

Sub CouperColler()
Dim LI As Range

Set LI = feuil9.Range("A6")

If Feuil1.Range("P7") = "" Then
MsgBox "Il n'y a pas de test disponible", vbExclamation + vbOKOnly, "Recherche"
Else
    Range("P6").Select
    Selection.End(xlDown).Select
    Range("P7").Select
    Selection.Cut
    Range("A7").Select
    ActiveSheet.Paste
    Range("P6").Select
    Selection.End(xlDown).Select
    Selection.Cut
    Range("A6").Select
    Selection.End(xlDown).Select
    Range("A8").Select
    ActiveSheet.Paste
If LI = "" Then
Exit For
End If
End If
End Sub

Cordialement.

Bonjour Minakashi,

Voici une possibilité inutile de faire du couper/coller, log à l'exécution

Sub CouperColler()
  Dim dLig As Long, Lig As Long, nLig As Long
  ' Dernière ligne remplie de la colonne P
  dLig = Range("P" & Rows.Count).End(xlUp).Row
  ' Pour chaque ligne remplie
  For Lig = 7 To dLig
    ' Nouvelle ligne ou coller le résultat
    nLig = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    ' Inscrire le résultat
    Range("A" & nLig).Value = Range("P" & Lig).Value
    Range("P" & Lig).ClearContents
  Next Lig
End Sub

A+

Bonjour Bruno,

A oui tu a utiliser une boucle for, elle fonctionne très bien merci beaucoup. Il va falloir que je m'exerce encore un peut plus sur l'utilisation des variables

Bonne journée.