Erreur " Objet requis"

Résolu/Fermé

julien - 24 févr. 2016 à 14:18
julien - 24 févr. 2016 à 15:20

Bonjour,

Je suis entrain de créer un code pour extraire une chaine de caractère d'une cellule pour la copier sur une autre , le problème c'est que mon programme ne tiens pas la route , en effet il me marque un messae d'erreur " Objet requis "

(L'erreure interviens sur la ligne en gras )

voici mon code :

Sub Conversion_HEXA()

Dim contenu As String
Dim c As String

Cells(2, 25).Select ' Selection de la cellule (i,25)

Set c = ActiveCell

Set contenu = Mid(c, 1, 4) ' Renvoi les 4 premiers caractère de la chaine

contenu.Select

Selection.Copy

Cells(11, 30).Select

ActiveSheet.Paste

End Sub

Merci de votre aide , a bientôt

A voir également:

Erreur " Objet requis"
Erreur 0x80070643 - Guide
Vente objet occasion entre particulier - Guide
Identifiant requis gmail - Forum Gmail
Code erreur f3500-32 ✓ - Forum Bbox Bouygues
Erreur 10016 epson - Forum Imprimante

3 réponses

Réponse 1 / 3

makitoch Messages postés 726 Date d'inscription samedi 14 juin 2014 Statut Membre Dernière intervention 28 octobre 2020 77
24 févr. 2016 à 14:40

oui parce que il te faut un truc du genre :
ActiveCell.Value

non :/ ?

Réponse 2 / 3

jordane45 Messages postés 38136 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 avril 2024 4 648
Modifié par jordane45 le 24/02/2016 à 14:51

Bonjour,

Tu mets :

Dim c As String

Donc pour assigner le contenu de la cellule à ta variable C il faut juste faire :

 c = ActiveCell.value

Par contre... évites de faire des COPY / PASTE ... et des SELECT ....
Ton code peut se résumer en :



Sub Conversion_HEXA()

Cells(11, 30).value =  Mid(Cells(2, 25).value, 1, 4)

End Sub

Cordialement,
Jordane

Réponse 3 / 3

julien
24 févr. 2016 à 15:20

Merci mak d'avoir répondu a ce sujet ,

Comme d'habitude , Jordane est la personne de la situation ! Je te remercie énormément , je te dois beaucoup d'avancement sur mon projet dont je ne vois pas la fin ^^ Merci encore et surement à bientôt ;)

Julien

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Erreur 1004 - Erreur définie par l'application ou par l'objet

Free erreur 38 : impossible d'envoyer des SMS

Erreur de lecture sur iptv smarters

Discussions similaires

Newsletters