Discussion :

[Ergastule66]

Bonjour à tous

Je souhaite accéder à une table avec la macro suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub RechNatOuv()
'
'Atteindre la nature d'ouvrage recherchée
 
    Dim MaVal As Integer	
    MaVal = Sheets("RechOuv").Range("E6").value
 
    Sheets("Ouvrage"). Select
    Range("I" & MaVal). Select
 
End Sub

Mais elle me renvoie avec la bonne ligne et la bonne colonne, à une autre feuille
appelée Menu qui s'affiche à l'ouverture du fichier avec la macro suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub ouverture()
 
    'Atteindre la Feuille annexes pour créer le découpage et enregistrer les plans
 
    Sheets("Menu").Select
    Range("B2").Select
 
End Sub

Merci d'avance pour votre aide

Cordialement

[EricDgn]

Bonjour,

Pour moi, fonctionne correctement.

Cordialement.

[Ben_L]

Bonjour,

Essayez de remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Ouvrage").Select

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Ouvrage").Activate

[EDIT: applicable à tous les autres cas similaires
De façon générale, il est nécessaire d'activer une feuille avant d'y sélectionner une plage]

Cdt