Problème référence à une cellule

Le
Thierry
Bonjour,

j'ai un soucis avec VBA. Dans ma première feuille excel qui s'apelle
CRA j'ai ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
temp = ""

For j = 1 To [Paramètres!E12]

temp = temp & [Paramètres!I(j)] & ","

Next j

Lorsque je l'execute j'ai un problème lorsqu'il rencontre
[Paramètres!I(j)] sachant que la colonne I est dans la feuille Paramètres et
que c'est un tableau (d'ou j) dont le nombre d'entrée peux varier en
fonction de ce qui est saisie dans la feuille paramètres.



Est il possible de l'ecrire autrement ?



Merci pour votre aide






Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000739-0, 09/05/2007
Analyse le : 09/05/2007 17:11:01
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #4492171
bonjour Thierry,

essai comme ça,

temp = temp & Sheets("Paramètres").Range("I" & j) & ","

et s'assurer que j soit un nombre entier entre 1 et 65536

isabelle


Bonjour,

j'ai un soucis avec VBA. Dans ma première feuille excel qui s'apelle
CRA j'ai ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
temp = ""

For j = 1 To [Paramètres!E12]

temp = temp & [Paramètres!I(j)] & ","

Next j

Lorsque je l'execute j'ai un problème lorsqu'il rencontre
[Paramètres!I(j)] sachant que la colonne I est dans la feuille Paramètres et
que c'est un tableau (d'ou j) dont le nombre d'entrée peux varier en
fonction de ce qui est saisie dans la feuille paramètres.



Est il possible de l'ecrire autrement ?



Merci pour votre aide





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000739-0, 09/05/2007
Analyse le : 09/05/2007 17:11:01
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





Jacky
Le #4492091
Bonsoir,

En complément du code d'Isabelle que je salue au passage (prête pour la
grande traversée à la nage?) :-))

En fin de boucle
temp = Left(temp, Len(temp) - 1)
--
Salutations
JJ


"Thierry"
Bonjour,

j'ai un soucis avec VBA. Dans ma première feuille excel qui s'apelle
CRA j'ai ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
temp = ""

For j = 1 To [Paramètres!E12]

temp = temp & [Paramètres!I(j)] & ","

Next j

Lorsque je l'execute j'ai un problème lorsqu'il rencontre
[Paramètres!I(j)] sachant que la colonne I est dans la feuille Paramètres
et que c'est un tableau (d'ou j) dont le nombre d'entrée peux varier en
fonction de ce qui est saisie dans la feuille paramètres.



Est il possible de l'ecrire autrement ?



Merci pour votre aide





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000739-0, 09/05/2007
Analyse le : 09/05/2007 17:11:01
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com





Thierry
Le #4492061
Bonjour Isabelle,

J'ai essayé mais rien ne se passe aucune erreur mais je ne recupère rien.
J'ai essayé en mettant [
], idem aucune erreur mais rien ne se passe.



"isabelle" a écrit dans le message de news:
%
bonjour Thierry,

essai comme ça,

temp = temp & Sheets("Paramètres").Range("I" & j) & ","

et s'assurer que j soit un nombre entier entre 1 et 65536

isabelle


Bonjour,

j'ai un soucis avec VBA. Dans ma première feuille excel qui
s'apelle CRA j'ai ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
temp = ""

For j = 1 To [Paramètres!E12]

temp = temp & [Paramètres!I(j)] & ","

Next j

Lorsque je l'execute j'ai un problème lorsqu'il rencontre
[Paramètres!I(j)] sachant que la colonne I est dans la feuille Paramètres
et que c'est un tableau (d'ou j) dont le nombre d'entrée peux varier en
fonction de ce qui est saisie dans la feuille paramètres.



Est il possible de l'ecrire autrement ?



Merci pour votre aide





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000739-0, 09/05/2007
Analyse le : 09/05/2007 17:11:01
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000739-0, 09/05/2007
Analyse le : 09/05/2007 18:06:16
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000739-0, 09/05/2007
Analyse le : 09/05/2007 18:13:08
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


Thierry
Le #4492041
Bonjour Jacky,

Oui je l'ai ce code le voila :

temp = ""

For j = 1 To [Paramètres!E12]

temp = temp & [Sheets("Paramètres").Range("I" & j)] & ","

Next j

For j = Plig + 2 To Plig + 2 + [Paramètres!E12]
Cells(j, 4).Validation.Delete
Cells(j, 4).Validation.Add xlValidateList, Formula1:=Left(temp,
Len(temp) - 1)
Next j


"Jacky"
Bonsoir,

En complément du code d'Isabelle que je salue au passage (prête pour la
grande traversée à la nage?) :-))

En fin de boucle
temp = Left(temp, Len(temp) - 1)
--
Salutations
JJ


"Thierry"
Bonjour,

j'ai un soucis avec VBA. Dans ma première feuille excel qui s'apelle
CRA j'ai ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
temp = ""

For j = 1 To [Paramètres!E12]

temp = temp & [Paramètres!I(j)] & ","

Next j

Lorsque je l'execute j'ai un problème lorsqu'il rencontre
[Paramètres!I(j)] sachant que la colonne I est dans la feuille Paramètres
et que c'est un tableau (d'ou j) dont le nombre d'entrée peux varier en
fonction de ce qui est saisie dans la feuille paramètres.



Est il possible de l'ecrire autrement ?



Merci pour votre aide





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000739-0, 09/05/2007
Analyse le : 09/05/2007 17:11:01
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000739-0, 09/05/2007
Analyse le : 09/05/2007 18:13:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000739-0, 09/05/2007
Analyse le : 09/05/2007 18:15:35
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


Thierry
Le #4492031
Desolé oui cela a marché c'etait ma condition de départ qui n'allait pas

Merci encore pour ce coup de Pouce et bonne nage Isabelle :)

"isabelle" a écrit dans le message de news:
%
bonjour Thierry,

essai comme ça,

temp = temp & Sheets("Paramètres").Range("I" & j) & ","

et s'assurer que j soit un nombre entier entre 1 et 65536

isabelle


Bonjour,

j'ai un soucis avec VBA. Dans ma première feuille excel qui
s'apelle CRA j'ai ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
temp = ""

For j = 1 To [Paramètres!E12]

temp = temp & [Paramètres!I(j)] & ","

Next j

Lorsque je l'execute j'ai un problème lorsqu'il rencontre
[Paramètres!I(j)] sachant que la colonne I est dans la feuille Paramètres
et que c'est un tableau (d'ou j) dont le nombre d'entrée peux varier en
fonction de ce qui est saisie dans la feuille paramètres.



Est il possible de l'ecrire autrement ?



Merci pour votre aide





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000739-0, 09/05/2007
Analyse le : 09/05/2007 17:11:01
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000739-0, 09/05/2007
Analyse le : 09/05/2007 18:06:16
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000739-0, 09/05/2007
Analyse le : 09/05/2007 18:18:47
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


Thierry
Le #4492021
Desolé oui cela a marché c'etait ma condition de départ qui n'allait pas

Merci

"Jacky"
Bonsoir,

En complément du code d'Isabelle que je salue au passage (prête pour la
grande traversée à la nage?) :-))

En fin de boucle
temp = Left(temp, Len(temp) - 1)
--
Salutations
JJ


"Thierry"
Bonjour,

j'ai un soucis avec VBA. Dans ma première feuille excel qui s'apelle
CRA j'ai ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
temp = ""

For j = 1 To [Paramètres!E12]

temp = temp & [Paramètres!I(j)] & ","

Next j

Lorsque je l'execute j'ai un problème lorsqu'il rencontre
[Paramètres!I(j)] sachant que la colonne I est dans la feuille Paramètres
et que c'est un tableau (d'ou j) dont le nombre d'entrée peux varier en
fonction de ce qui est saisie dans la feuille paramètres.



Est il possible de l'ecrire autrement ?



Merci pour votre aide





---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000739-0, 09/05/2007
Analyse le : 09/05/2007 17:11:01
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000739-0, 09/05/2007
Analyse le : 09/05/2007 18:13:10
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000739-0, 09/05/2007
Analyse le : 09/05/2007 18:19:02
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


isabelle
Le #4491071

En complément du code d'Isabelle que je salue au passage (prête pour la
grande traversée à la nage?) :-))


ho si peu ;-)

isabelle

Publicité
Poster une réponse
Anonyme