Discussion :

[Eleda]

Bonjour,

j'ai des numéros de compte dans une colonne excel et je souhaiterais que chaque cellule prenne un nom de la forme : cpte_1, cpte_2, cpte_3...
Voici mon code, mais il ne fonctionne pas :

Code :

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

1
2
3
4
5
 
For i = 1 To n
    cpte_& i = ActiveCell.Value
    ActiveCell.Offset(1, 0).Select
Next

Quelqu'un aurait-il une idée du problème et de la façon de la résoudre?

Merci!

[aalex_38]

Bonjour,

N'aurais-tu pas inverser les termes.

Pour renseigner la variable dans ta cellule, ce n'est pas :

cpte_& i = ActiveCell.Value

Mais l'inverse :

Code :

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

ActiveCell.value = cpte_& i

[Eleda]

Non car ma cellule active sur laquelle je me trouve dans excel contient une valeur : exemple : 20156
et c'est cette valeur que je veut appeler cpte_1.
Dans la cellule du dessous il y a une autre valeur : exemple : 51203 que je veux appeler cpte_2
et ainsi de suite...

[Pierre Fauconnier]

Bonjour

je souhaiterais que chaque cellule prenne un nom de la forme

Veux-tu:
- attribuer un nom à une cellule?
- dans un code VBA, attribuer les valeurs de tes cellules à des variables?

[Fvandermeulen]

Bonjour,
Alors il me semble que tu devrais mettre:

Code :

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

"Cpte_" & i = ActiveCell.Value

Désolé, j'aurais du tester...

[Eleda]

Alors de façon claire, je voudrais :
- dans un code VBA, attribuer les valeurs de mes cellules à des variables. Le nom de ces variables doit s'incrémenter : cpte_1, cpte_2, cpte_3 et ainsi de suite jusqu'à une valeur "n" définie auparavant.

La solution de Fvandeurmeulen ne fonctionne pas.

Merci de votre aide!

[Pierre Fauconnier]

Bonjour

Créer des variables de façon dynamique dans VBA n'est pas ce que l'on fait de plus simple.

Tu pourrais t'orienter vers un tableau redimensionné

Code :

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

1
2
3
4
redim Tableau(1 to 1)
dim NombreComptes as long
nombrecomptes = ' ici, quelque chose pour calculer le nombre de compte
redim Tableau(1 to nombrecomptes)

Pourrais-tu expliquer ce que tu souhaites réaliser? Il y a peut-être plus simple

[Eleda]

Merci de votre aide mais j'ai finalement contourné mon problème.
Cependant ma macro ne fonctionne toujours pas, ce que j'explique dans un nouveau post intitulé "incompatibilié de type"!