Atteindre une autre feuille ne fonctionne pas

Y compris Writer et toute autre question en lien avec les suites bureautiques Open Source
j
jlduboc66
Jeune membre
Jeune membre
Messages : 16
Inscrit le : 21 avril 2016
Version d'Excel : 2007

Message par jlduboc66 » 16 février 2019, 11:41

Bonjour à tous

Pour deux macros avec la même syntaxe une fonctionne (Macro9) l'autre ne fonctionne pas (Macro8)

La destination se fait sur une autre feuille ("Devis") que sur celle demandée ("Localisation"),
par contre la cellule demandée est bonne.

Le principe est d'aller chercher des éléments sur une autre feuille (Sélectionner par des listes déroulantes en cascade) et de copier ces éléments dans la cellule active de la feuille de départ.
Sub Macro8()
'
' Macro8 Macro
' Aller à recherche des Localisations
'
	Sheets("Métrés").Activate
	ActiveCell.Select
	
	MsgBox (ActiveCell.Address)

    Sheets("Localisation").Select
    Range("W1").Select
    
End Sub


Sub Macro9()
'
' Macro9 Macro
' Aller à recherche des natures d'ouvrage
'
	Sheets("Métrés").Activate
	ActiveCell.Select

    Sheets("RechOuv").Select
    Range("D3").Select
    
End Sub
Le retour sur la CelluleActive de l'origine ne fonctionne pas non plus (Macro10)

J'ai utilisé une syntaxe qui a fonctionné sur une application précédente et qui ne fonctionne plus sur cette application.

Merci d'avance de vos conseils

Cordialement
Métrés automatique.ods
(495.8 Kio) Téléchargé 12 fois
Avatar du membre
dhany
Passionné d'Excel
Passionné d'Excel
Messages : 6'689
Appréciations reçues : 647
Inscrit le : 3 octobre 2017
Version d'Excel : 2007 FR

Message par dhany » 16 février 2019, 15:52

Bonjour jlduboc66,

essaye :
Sub Macro8()
  ActiveCell = Worksheets("Localisation").Range("W1")
End Sub

Sub Macro9()
  ActiveCell = Worksheets("RechOuv").Range("D3")
End Sub
attention : avant de lancer une de ces macros, sélectionne d'abord, sur la feuille "Métrés", la bonne cellule de destination !

avec Excel, on peut aussi faire ainsi :
Sub Macro8()
  ActiveCell = [Localisation!W1]
End Sub

Sub Macro9()
  ActiveCell = [RechOuv!D3]
End Sub
peut-être que ça marche sur Calc ?

dhany
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message