XL 2016 VBA : copier coller si cellules non vides

[Bnj]

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

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

 

[Fred0o]

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

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

Bonjour @Bnj

Voici une proposition en piece jointe. A tester sur ton fichier reel.

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

 

[Bnj]

Bonjour,

Merci pour ton aide et notamment la réactivité, la macro semble fonctionner mais est très longue car elle s’exécute ligne par ligne. mon tableau réel comporte + de 400 lignes à l'heure actuelle.

Je ne sais pas comment éviter cette exécution ligne par ligne

 

[Phil69970]

Bonjour @Bnj , @Fred0o

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

*Merci de ta réponse
@Phil69970

 

[Bnj]

C'est parfait !! Merci beaucoup

 

[Phil69970]

Re

@Bnj : Peut on savoir quelle solution tu as retenu pour que les futurs lecteurs qui ont la même problématique le voient.
Le forum sert sert aussi à cela, l'entraide que l'on ta apporté puisse servir à quelqu'un d'autre et aussi cela évite à quelqu'un de chercher une solution alors que ton problème pour toi est résolu.

@Phil69970

 

[Bnj]

Oups, désolé, j'avais répondu mais oublié de cliquer sur "répondre" pour envoyer le message !

 

[Bnj]

Bonjour @Bnj , @Fred0o

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

*Merci de ta réponse
@Phil69970

Cette solution très pertinante, est celle retenue car effectivement instantannée, Merci beaucoup !

 

[Bnj]

Bonjour à tous.

Suite à une modification imposée, j'ai dû convertir mon tableau en plage et du coup, la macro ne fonctionne plus.
J'ai bien essaye de modifier avec l'enregistreur de macro mais rien ne fonctionne.

je sollicite donc à nouveau votre aide et vos explications sur la solution que vous pourriez m'apporter

Bonne journée