La méthode pastespecial de la classe Range échoue

cameleon1881 Messages postés 20 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 5 juil. 2022 à 18:48

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 Boolean

With Sheets("UTILITAIRE")
For i = 4 To .Range("AM4").End(xlDown).Row
If ComboBox1 = .Cells(i, 39) Then Verif = True: Exit For
Next i

If Not Verif Then
i = Sheets("UTILITAIRE").Range("AM4").End(xlDown).Row + 1
ComboBox1.Copy
Sheets("UTILITAIRE").Cells(i, 39).PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False

End If
End With
End Sub

s'il vous plait dépannez moi :)

Merci

Configuration: Windows / Chrome 103.0.0.0

A voir également:

Ouvrez cette page. dans le code de la page, modifiez la couleur de fond de la classe .pix. un code de 4 chiffres doit apparaître dans la grille. lequel ?
Code ascii - Guide
Impossible de supprimer une page word - Guide
Code de déverrouillage oublié - Guide
Code gta 4 ps4 - Guide
Fond de page word - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Discussions similaires

Voxbone ? qui est-ce ?

sertissage des cables rj45

Toutes les combinaisons à 4 chiffres de 0000 a 9999

Votre réponse

Discussions similaires