macro VBA excel nommer une cellule

HansVogelaar 

Bonsoir, une nouvelle fois, je sollicite votre sagacité pour une macro qui me hante. Voici un tableau, de la colonne FS à FY; FZ étant quelque chose que j'ai rajouté.

Les lignes vides correspondent à des enregistrements de la journée, mais qui n'ont pas donné lieu à paiement.

Je souhaiterais compacter ce tableau pour ne faire apparaître que les lignes "payantes".

J'ai imaginé une boucle qui utilise la colonne FZ pour sélectionner la ligne de tableau remplissant le critère, la copie et la colle dans un autre tableau, à la première ligne vide.

mais, ensuite, je ne sais pas comment faire pour la seconde ligne!

Je pense qu'il faut deux boucles imbriquées?

-----------------

Sub imprjourecet_vb()
'
' imprjourecet_vb Macro
' mettre en forme et imprimer le journal de recette
'

'
Range("FZ14").Select
Do While ActiveCell = 0
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Offset(0, -14).Select
Range(ActiveCell, ActiveCell.Offset(0, 6)).Select
Selection.Copy
End Sub

-------------------

Je sais le faire en XLM4, mais pas là!

D'avance, merci!

bernard_daniel_1950 

Essayez

Sub CopierLignesNonVides()
    Const LignePremiere = 14
    Const ColonneSource = "FZ"
    Const ColonneDestination = "FL"
    Dim LigneSource As Long
    Dim LigneDerniere As Long
    Dim LigneDestination As Long
    Application.ScreenUpdating = False
    LigneDestination = LignePremiere
    LigneDerniere = Cells(Rows.Count, ColonneSource).End(xlUp).Row
    For LigneSource = LignePremiere To LigneDerniere
        If Cells(LigneSource, ColonneSource).Value > 0 Then
            Cells(LigneDestination, ColonneDestination).Resize(1, 7).Value = _
                Cells(LigneSource, ColonneSource).Offset(0, -7).Resize(1, 7).Value
            LigneDestination = LigneDestination + 1
        End If
    Next LigneSource
    Application.ScreenUpdating = True
End Sub

bernard_daniel_1950 

Ce n'est pas si grave! 🙂

bernard_daniel_1950 

Essayez

    Application.ScreenUpdating = True
    ActiveCell.Offset(0, -25).Activate
    Selection.Interior.Color = 5756927
    If MsgBox("Ce nom correspond-t-il à votre recherche? Si non, cliquez sur Non pour continuer!", _
            vbYesNo, "État de la recherche") = vbYes Then
        Exit Sub
    End If
    Selection.Interior.ColorIndex = xlColorIndexNone

bernard_daniel_1950 

Une solution possible:

    If condition = True
        ...
        ...
    End If
    ...
    ...

Une autre:

    If condition = True
        ...
        ...
    Else
        ...
        ...
    End If

Ou bien

    If condition = False Then GoTo EtapeSuivante
    ...
    ...
EtapeSuivante:
    ...
    ...