Erreur " Objet requis"
Résolu
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
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
-
oui parce que il te faut un truc du genre :
ActiveCell.Value
non :/ ? -
ModérateurBonjour,
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 -
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
