la méthode pastespecial de la classe Range échoue Fermé

Question

Bonjour, 

Bonjour tout le monde, j'espère que vous allez bien :)

Je suis encore novice en Vba sous Excel et je rencontre une difficulté qui me bloque sur des heures maintenant. En effet, je reçois cette notification d'erreur lors de l'exécution de mon code : Erreur d'exécution 1004 : la méthode pastespecial de la classe Range a échoué

Voici mon code :

Private Sub CommandButton1_Click()Dim i As Integer, Verif As BooleanWith Sheets("UTILITAIRE")For i = 4 To .Range("AM4").End(xlDown).RowIf ComboBox1 = .Cells(i, 39) Then Verif = True: Exit ForNext iIf Not Verif Theni = Sheets("UTILITAIRE").Range("AM4").End(xlDown).Row + 1ComboBox1.CopySheets("UTILITAIRE").Cells(i, 39).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=FalseEnd IfEnd WithEnd Sub

s'il vous plait dépannez moi :)

Merci



Configuration: Windows / Chrome 103.0.0.0

f894009 · Answer

Bonjour,

Copy Paste ne marche qu'avec des cellules

Private Sub CommandButton1_Click()
    Dim i As Long, Verif As Boolean
    
    With Sheets("UTILITAIRE")
        Nb = Application.CountIf(.Columns(39), ComboBox1)       'nombre de fois valeur combox1 dans colonne AM
        If Nb = 0 Then
            i = Sheets("UTILITAIRE").Range("AM4").End(xlDown).Row + 1
            Sheets("UTILITAIRE").Cells(i, 39) = ComboBox1           'ecriture valeur combobx1 dans premiere cellule vide
        End If
    End With
End Sub

La méthode pastespecial de la classe Range échoue

1 réponse

Discussions similaires

Newsletters