XL 2016 VBA : copier coller si cellules non vides

Bnj à dit:

Bonjour,

Je me permets de vous solliciter car je ne trouve pas la solution.
Je possède un fichier avec une table de saisie comprenant des formules (feuille saisie)

Je souhaiterais qu'à l'ouverture, que les formules des colonnes B et C soient copier-coller en 123 (valeurs) et seulement pour celles où la la cellule "matricule" de référence est non vide.

Merci pour votre aide avec vos explications pour que je puisse comprendre la commande de condition.

vous trouverez un fichier exemple en pièce jointe

VB:

Sub copier_coller_123()
'
' copier_coller_123 Macro
'

'
    Range("B2:C3").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

BNJ

Cliquez pour agrandir...

Sub copier_coller_123()
    Dim c As Range
    For Each c In Range("BDD_4[Matricule]")
        If c <> "" Then
            Range(Cells(c.Row, 2), Cells(c.Row, 3)).Copy
            Range(Cells(c.Row, 2), Cells(c.Row, 3)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
        End If
    Next
    Application.CutCopyMode = False
End Sub

Phil69970 à dit:

Bonjour @Bnj , @Fred0o

Je te propose ce fichier
Sur 1000 lignes c'est quasi instantané sur mon PC

*Merci de ta réponse
@Phil69970

Cliquez pour agrandir...