VBA: conserver de la valeur de la variable

Sub test() ''test Macro"

'
Dim aRange Que
Dim i as Integer

Set aRange = Range("A1:A255")

Range("A1").Select
For i = 1 To aRange.Count - 1

    If InStr(ActiveCell.Value, "Last name") Then
        Call CopyContents
    End If
    ActiveCell.Offset(1, 0).Select



Next i

End Sub

Sous CopyContents()
Dim currentRange Que
Dim genderAndDiscipline Comme une Chaîne de caractères

Set currentRange = Range(ActiveCell.Address)


'get the gender and dicipline
Set genderAndDiscipline = ActiveCell.Offset(-1, 0).Value
'genderAndDiscipline = genderAndDiscipline.Split(" ")

End Sub

Salut à tous, je suis en train de stocker la valeur d'une cellule dans une variable. Mais de toute façon c'est continuer de donner de la mee une erreur de compilation. "Objet requis"

À mon avis, je dis la variable à l'aspect d'une chaîne et la cellule contenant une chaîne de caractères, comme le débogueur dit.

Pourriez-vous m'aider?

La currentRange est 'A7' ici et de la cellule ci-dessus est contenant une chaîne de caractères avec "200m hommes"

L'erreur se fait à
Set genderAndDiscipline = ActiveCell.Offset(-1, 0).Value

  • D'où vient l'erreur?
  • Édité mon post.
  • Essayez de supprimer le Set mot-clé à partir de cette ligne
InformationsquelleAutor HerrWalter | 2013-05-28
  1. 3

    genderAndDiscipline est déclarée comme une chaîne de caractères.

    La façon correcte de les attribuer à une chaîne à l'aide de Let au lieu de Set (qui est utilisé pour l'affectation d'objets).

    Afin de se débarrasser de l'erreur, supprimez le mot Set à partir de la ligne de l'origine de l'erreur, ou de remplacer Set avec Let.

    Utilisez l'une des deux solutions suivantes (qui sont l'équivalent):

    genderAndDiscipline = ActiveCell.Offset(-1, 0).Value

    ou

    Let genderAndDiscipline = ActiveCell.Offset(-1, 0).Value
    • Merci à vous, bonne explication. Learend quelque chose aujourd'hui
    InformationsquelleAutor Daniel
  2. 2

    La Set mot clé fonctionne avec Objects. Puisque vous êtes à la recherche juste pour enregistrer la valeur, vous devez le laisser. c'est à dire Changer:

    Set genderAndDiscipline = ActiveCell.Offset(-1, 0).Value

    à:

    genderAndDiscipline = ActiveCell.Offset(-1, 0).Value
    InformationsquelleAutor Gaffi
  3. 1

    Supprimer Set de Set genderAndDiscipline = ActiveCell.Offset(-1, 0).Value

    InformationsquelleAutor StoriKnow