Selection a colonne variable dans une autre feuille

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Selection a colonne variable dans une autre feuille

Swatch_n7

Bonjour,

Je cherche à sélectionner une plage de donnée (dans le but de la copier) avec un numéro de colonne variable sur une autre feuille du classeur.
Si je ne sort pas de ma feuille il n'y a pas de problème. Mais avec ces codes j'ai toujours un message d'erreur :

Code :

Sheets("FeuilleB" ).Range(Cells(i, 1), Cells(i, 10)).Select

Code :

Worksheets("FeuilleB" ).Activate
ActiveSheet.Range(Cells(i, 1), Cells(i, 10)).Select

Et d'autres tournures que j'ai essayé en vain.

Une idée ?

Merci !

Publicité

Marc L

Bonjour.

Sans message d'erreur précis ni le numéro de la ligne déclenchant l'erreur …
Seule une plage dans la feuille active est sélectionnable.
La valeur de la variable i correspondant au numéro de la ligne (voir l'aide de la propriété Cells !) doit être vérifiée …
Consulter l'aide de la méthode Copy associée à Range et son exemple pour se rendre compte de l'inutilité d'une sélection ‼

Message cité 1 fois
Message édité par Marc L le 03-05-2013 à 20:51:13

Swatch_n7

L'erreur est toujours déclenchée par la ligne ou il y a le select. J'ai aussi essayé avec un range.copy mais le problème est le même.
C'est une erreur 1004.

Pour i, j'ai juste mis

Code :

dim i as integer
i = 1

Message édité par Swatch_n7 le 03-05-2013 à 22:21:01

Marc L

mais le problème est le même.
Sans voir le code, je peux en douter ! Erreur 1004, et le message dit quoi ?

Avec i égal à 1, cela correspond donc à la plage A1:J1 …
En supposant la feuille contenue dans le classeur actif, code à tester (sans argument Destination) :

Worksheets("FeuilleB" ).Range("A1:J1" ).Copy

Swatch_n7

Votre code fonctionne, mais il ne me permet pas d'avoir une colonne variable.

Voici le code que j'ai écris en entier

Code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
' Pour l'exemple
i = 1
Worksheets("Feuil2" ).Range(Cells(i, 1), Cells(i, 10)).Copy
End Sub

L'erreur survient au niveau de la ligne 7.
"Erreur d'exxécution '1004':
Erreur défnie par l'application ou par l'objet"

Merci pour votre aide.

Marc L

Eh oui, trois jours de perdus à cause d'une problématique mal exposée ‼ …

Pourquoi mon code test fonctionne-t-il ?
Tout simplement parce qu'il n'y a pas d’ambiguïté quant au Range rattaché à la feuille.

Le code d'origine, non seulement situé dans un module de classe d'une feuille (au fait laquelle ?)
et évidemment dans un évènement (donc ne pas oublier Target) - comment aurions-nous pu le deviner ? -
dans lequel certes le Range est bien rattaché mais pas les Cells le composant, d'où l'erreur !

Afin d'éviter l'usine à gaz, une vue d'ensemble et le code complet de l'événement SelectionChange sont nécessaires.

Pourquoi utiliser cet évènement, dans quelle feuille ?
Quel est le facteur déclenchant la copie ?
La feuille à copier est-elle dans le même classeur que celle contenant le code ?
Quelle est précisément la destination de la copie ?

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Selection a colonne variable dans une autre feuille

Sujets relatifs
Peut on garder une variable php en mémoire?	[Résolu][ImageMagick] Passer une variable à convert : ne marche pas :(
[VBA][Excel] modif- selection onglet source.[résolu]	Problème de variable
Passer une variable d'un script sh vers script mysql	Faire une somme mathématique sigma avec variable en vba.
Requête SQL : Même occurence dans une colonne	Incrémentation d'une variable en AJAX
Enregistrer une feuille au format txt	passage de variable a la volée vers une form
Plus de sujets relatifs à : Selection a colonne variable dans une autre feuille

Page générée en 0.025 secondes