XL 2019 vba

GUERET · 5 Septembre 2021

Bonsoir,
Dans la feuille "pilote", j'obtiens ce message de débogage 1004 : la méthode PasteSpécial Range a échouée.
Et, à partir de là, les photos se mettent en vrac, la colonne "Pôle position affiche #valeur".
J'ai beau chercher, je ne vois pas où se situe l'erreur
Une aide serait la bienvenue avant que je ne devienne alcoolique

https://www.swisstransfer.com/d/6e62568b-c7b6-4f8b-9d64-25dca49bb681

fanch55 · 6 Septembre 2021

Salut, la colonne J semble mal remplie .... une cellule est restée vide entre 2 autres ..

Sinon, vous pouvez simplifier le code de la feuille Pilote :

VB:

Private Sub Worksheet_Activate()
    Dim sh As Shape
        
    Application.ScreenUpdating = False
    For Each sh In Me.Shapes
        sh.Delete
    Next
    For Each sh In Feuil27.Shapes
        If sh.TopLeftCell.Column = 4 Then
            If Not IsError(Application.Match(Feuil27.Range("B" & sh.TopLeftCell.Row), Me.Range("B4:B24"), 0)) Then
                sh.Copy
                Me.Range("A3").Offset(Application.Match(Feuil27.Range("B" & sh.TopLeftCell.Row), Me.Range("B4:B24"), 0), 0).PasteSpecial
                Selection.Height = Selection.TopLeftCell.Height
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

XL 2019 vba

GUERET

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

Discussions similaires