La méthode pastespecial de la classe Range échoue
cameleon1881
Messages postés
20
Statut
Membre
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
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 :
s'il vous plait dépannez moi :)
Merci
Configuration: Windows / Chrome 103.0.0.0
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
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code gta 4 ps4 - Guide
- Fond de page word - Guide
1 réponse
Bonjour,
Copy Paste ne marche qu'avec des cellules
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
