Sujet Précédent Sujet Suivant

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

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 89
24 févr. 2016 à 14:40
oui parce que il te faut un truc du genre :
ActiveCell.Value

non :/ ?
0
Réponse 2 / 3
jordane45 Messages postés 37261 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 20 mars 2023 4 548
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                                                                 
0
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
0