Atteindre une autre feuille ne fonctionne pas

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

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

Rechercher des sujets similaires à "atteindre feuille fonctionne pas"