Discussion :

[eno97]

Bonjour le forum

Je suis en train de faire une macro qui doit me sélectionner une colonne d'une feuille (qui s'appelle "Donnees") en fonction d'une lettre qui est rentrée dans une cellule d'une autre feuille (qui s'appelle "test").
Par exemple, si dans la cellule, la lettre "a" est rentrée, le programme doit sélectionner la colonne A de l'autre feuille.

J'ai tapé le code suivant :

Code :

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

1
2
3
4
5
6
7
Sub test()
    Dim numColonne As String
 
    numColonne = ThisWorkbook.Worksheets("test").Range("A1").Value
    ThisWorkbook.Worksheets("Donnees").Range(numColonne & ":" & numColonne).Select
 
End Sub

mais une erreur ("Erreur définie par l'application ou par l'objet") se produit au niveau de la dernière ligne de code.
Hors, si je reprends cette dernière ligne, mais que je ne note que :

Code :

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

Range(numColonne & ":" & numColonne).Select

le code fonctionne (mais il ne me sélectionne pas forcement la colonne de la bonne feuille selon quelle feuille est active)

est-ce que quelqu'un saurait d'où vient l'erreur de mon code?

merci d'avance

[Marc-L]

Bonjour,

pour pouvoir sélectionner, il faut d'abord activer la feuille …

Mais sélectionner n'est pas nécessaire pour opérer sur des données et donc, de facto, pas besoin d'activer !
A proscrire donc, travailler en direct sur les Range …


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[eno97]

Merci Marc-L pour ta réponse

En fait ce que je voudrais, c'est masquer la colonne renseigné avec le code

Code :

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

Worksheets("Donnees").Columns(numColonne & ":" & numColonne).EntireColumn.Hidden = True

mais celui-ci ne fonctionne pas non plus (la même erreur se produit)

est-ce que je suis obligé d'activé ma feuille "Donnees" pour que ce code fonctionne?

[Marc-L]

Ta ligne de code fonctionne depuis une feuille active pour cacher la colonne d'une autre feuille (inactive) du même classeur (actif) :
donc activer et sélectionner s'avèrent bien inutiles …

Simplification : Worksheets("Donnees").Columns(numColonne).Hidden = True …

[eno97]

Je viens de faire un test sur un autre classeur, et effectivement le code fonctionne (merci pour la simplification d'ailleurs)

Donc c'est le fichier sur lequel je travaille qui pose problème

Je vais essayer de voir d'où est-ce que ça provient

merci beaucoup

[Marc-L]

Feuille protégée, cellules fusionnées, …



_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …