Chercher Cellule vide et copier ligne

Bonjour à tous,

J'aimerais pouvoir effectuer une opération en VBA, me paraissant assez simple mais je n'arrive pas à formuler correctement ma macro.

Sur la page STATS, dans la colonne B, sur la plage B2:B100, si cellule (B, donc ) est vide, alors copie la ligne sur la page CHALL à la première ligne vide.

Merci à vous tous pour votre aide,

Salut,

Tu peux essayer avec ça, ça fonctionne de mon coté :

Sub testSubForum()

    Application.ScreenUpdating = False

    Dim Ws_stats As Worksheet
    Set Ws_stats = ThisWorkbook.Worksheets("STATS")

    Dim Ws_chall As Worksheet
    Set Ws_chall = ThisWorkbook.Worksheets("CHALL")

    Dim tabTest() As Variant
    tabTest = Ws_stats.Range("B2:B100").Value

    For i = LBound(tabTest, 1) To UBound(tabTest, 1)
        If tabTest(i, 1) = "" Then
            derligChall = Ws_chall.Range("A" & Rows.Count).End(xlUp).Row + 1
            ligneStats = i + 1
            Ws_stats.Range("B" & ligneStats).EntireRow.Copy
            Ws_chall.Rows(derligChall).PasteSpecial Paste:=xlPasteValues
        End If
    Next i

    Application.ScreenUpdating = True

End Sub

Bibu

Merci je vais tester !

Je ne manquerai pas de vous tenir au courant !

Merci BibuNesco !
C'est parfaitement ce que je recherchais... Mias j'ai oublié de préciser que je voudrais COUPER/COLLER au lieu de COPIER/COLLER.
En fait ce serait un moyen de déplacer ces lignes.

Merci encore !

Salut,

Tu veux couper/coller les valeurs ou bien la ligne entière ?

Par exemple, si la ligne 4 (donc la cellule B4) est vide, tu veux supprimer la ligne 4 et la coller dans la feuille "CHALL" ou bien simplement couper/coller les valeurs, ainsi laissant une ligne vide dans le document "STATS" ?

Bibu

Hello BibuNesco ( et aussi à tous les autres qui passent pas là ! )

Désolé pour la réponse tardive, mais j'avais beaucoup de travail...
En fait, pour répondre, je cherche bien à supprimer la ligne 4 et la coller dans la feuille "CHALL"

Merci !

Salut, il faut juste rajouter un ligne, voici le code :

Sub testSubForum()

    Application.ScreenUpdating = False

    Dim Ws_stats As Worksheet
    Set Ws_stats = ThisWorkbook.Worksheets("STATS")

    Dim Ws_chall As Worksheet
    Set Ws_chall = ThisWorkbook.Worksheets("CHALL")

    Dim tabTest() As Variant
    tabTest = Ws_stats.Range("B2:B100").Value

    For i = LBound(tabTest, 1) To UBound(tabTest, 1)
        If tabTest(i, 1) = "" Then
            derligChall = Ws_chall.Range("A" & Rows.Count).End(xlUp).Row + 1
            ligneStats = i + 1
            Ws_stats.Range("B" & ligneStats).EntireRow.Copy
            Ws_chall.Rows(derligChall).PasteSpecial Paste:=xlPasteValues
            Ws_stats.Range("B" & ligneStats).EntireRow.Delete
        End If
    Next i

    Application.ScreenUpdating = True

End Sub

Bibu

Au top !

Merci pour ta disponibilité et ta rapidité !