XL 2003 : Récupérer la valeur de la cellule active [Résolu/Fermé]

Signaler
Messages postés
152
Date d'inscription
jeudi 16 avril 2009
Statut
Membre
Dernière intervention
15 novembre 2017
-
Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
-
Bonjour,

Un petit souci de syntaxe...

Je cherche à récupérer la valeur d'une cellule active. Et je n'y parviens pas.

Voici le bout de code qui me pose problème pour lequel j'ai le message d'erreur suivant "Erreur d'exécution '438' : Propriété ou méthode non gérée par cet objet"
En gras italique la ligne incriminée :

Sub essai4()
'
Dim Matr_Actu As Integer
Dim Nbrl As Integer
Dim a As Integer
Dim B_C As Variant
Dim Tcot As Long
'
Matr_Actu = ThisWorkbook.Sheets("Tmp_Sal").ActiveCell.Value
Nbrl = ThisWorkbook.Sheets("Tmp_Sal").Range("N_Sal_Tmp").Value
...

Quelqu'un(e) pourrait-il m'indiquer quelle erreur j'ai commise ?

Merci d'avance !

Nospam

5 réponses

Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 626
Bonjour,

Est ce que ta feuille Sheets("Tmp_Sal") est la feuille active au moment ou se lance le code?
Messages postés
152
Date d'inscription
jeudi 16 avril 2009
Statut
Membre
Dernière intervention
15 novembre 2017
12
Oh, salut Franck !

Non, en effet la feuille Sheets("Tmp_Sal") n'est pas active au moment où se lance ce code.
J'ai d'ailleurs testé, que la feuille soit active ou non, j'ai la même erreur...
Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 626
Alors comment détermine tu la cellule appelée "ActiveCell" dans ton code?
Messages postés
152
Date d'inscription
jeudi 16 avril 2009
Statut
Membre
Dernière intervention
15 novembre 2017
12
Parce que la cellule sélectionnée par défaut dans ma feuille "Tmp_Sal" est celle qui doit renvoyer sa valeur.
Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 626
Donc :
    Dim maFeuilActive As Worksheet
    Dim Matr_Actu As Integer
    Dim Nbrl As Integer
    Dim a As Integer
    Dim B_C As Variant
    Dim Tcot As Long

  Set maFeuilActive = ActiveSheet
  With ThisWorkbook.Sheets("Tmp_Sal")
    .Select
    Matr_Actu = ActiveCell.Value
    Nbrl = .Range("N_Sal_Tmp").Value
  End With
  maFeuilActive.Select
  MsgBox Matr_Actu & " - " & Nbrl


🎼 Cordialement,
Franck 🎶
Messages postés
152
Date d'inscription
jeudi 16 avril 2009
Statut
Membre
Dernière intervention
15 novembre 2017
12
Eh ben... comme d'habitude, ça marche !
Je continue mon chemin de croix... ;)
Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 626
Bon courage.
C'est par là ==>


++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

euh... Désolé!