Erreur " Objet requis"

Résolu
julien -  
 julien -
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 730 Date d'inscription   Statut Membre Dernière intervention   78
 
oui parce que il te faut un truc du genre :
ActiveCell.Value

non :/ ?
0
Réponse 2 / 3
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
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
 
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

Discussions similaires

Problème d'app Gmail : "Identifiants requis"
Tekaro -
GaLlIoNGP69 -

4 réponses
Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
Identifiant requis
Nimeria -
nadellen -

1 réponse
Identifiants corrects requis
Kyestha -
markess034 -

2 réponses
Code erreur 3000
Laurent -
JM -

5 réponses