Erreur " Objet requis"
Résolu
julien
-
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
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"
- Vente objet occasion entre particulier - Guide
- Erreur t32 ✓ - Forum Livebox
- Objet interdit en cabine ryanair - Guide
- Erreur 0x80070643 - Accueil - Windows
- Identifiant correct requis connexion - Forum Laposte
3 réponses
Bonjour,
Tu mets :
Donc pour assigner le contenu de la cellule à ta variable C il faut juste faire :
Par contre... évites de faire des COPY / PASTE ... et des SELECT ....
Ton code peut se résumer en :
Cordialement,
Jordane
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