Discussion :

[Phillip]

Bonjour,

J'ai le code suivant pour Excel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CONCA()
toto1 = 8
toto2 = 14
toto3 = 78
toto4 = 90
 
For lig = 2 To 6
'
'ci dessous : ne marche pas : Je voudrais concaténer toto avec le résultat de ma variable lig pour remplir tout mon tableau....Comment faire ? Quelle est la syntaxe ?
Cells(lig, 2).Value = toto & (lig - 1)
Next lig
 
End Sub

Merci

Cordialement

[joe.levrai]

Bonjour,

tu utilises des variables totoX (X étant un nombre), non déclarées au passage, pour lesquelles tu affectes des valeurs

et dans ta boucle, tu utilises une nouvelle variable toto qui n'est ni déclarée, ni affectée d'une quelconque valeur.

Que cherches-tu exactement à faire avec tous ces totoX ? Et pourquoi ensuite utiliser un toto sorti de derrière les fagots ?

[ARTURO83]

Bonsoir,

Ceci , si j'ai bien compris

Code :

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

1
2
3
4
5
6
7
8
9
Sub CONCA()
    toto1 = 8
    toto2 = 14
    toto3 = 78
    toto4 = 90
    For lig = 2 To 5
        Cells(lig, 2).Value = Application.WorksheetFunction.Choose(lig - 1, toto1, toto2, toto3, toto4)
    Next lig
End Sub

Cdlt

[Phillip]

Merci pour vos réponses mais Arturo83, je ne voudrais pas avoir à lister tous les toto, car j'en ai 50...
et pour joe.levrai et tous, je vais essayer de clarifier

J'ai une macro qui calcule 50 paramètres et les stocke dans 50 variables qu'on peut appeller toto1 à toto50....

Je voulais, pour des raisons de test, mettre toto1 dans une cellule ligne 2, colonne 2 par exemple, toto2 la ligne 3 etc jusqu'à toto50..

Soit je le fais à la main avec 50 lignes
cells(2,2).value=toto1
cells(3,2).value=toto2 etc...

Ou je fais une boucle pour remplir mes cellules et je dis que
lig=2
cells(lig,2).value=toto "indice lig-1" avec totoindicelig-1=toto1 ! Et mon problème c'est que je ne sais pas concaténer toto avec lig-1 et que cela fasse toto1 !

C'est possible ou pas ?

Merci

Cordialement

[ARTURO83]

"]'ai une macro qui calcule 50 paramètres et les stocke dans 50 variables.........Je voulais mettre toto1 dans une cellule ligne 2, colonne 2 par exemple, toto2 la ligne 3 etc jusqu'à toto50..

Alors, pourquoi passer par des variables intermédiaires? pourquoi ne pas mettre directement les 50 paramètres dans les cellules de destinations?

[Patrice740]

Bonjour,

Utilises un tableau :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub CONCA()
Dim toto(1 To 4)
  toto(1) = 8
  toto(2) = 14
  toto(3) = 78
  toto(4) = 90
  For lig = 1 To UBound(toto)
    Cells(lig + 1, 2).Value = toto(lig)
  Next lig
End Sub

[Pierre Fauconnier]

Salut.

comme Arturo, je me pose la question de l'utilité de passer par 50 variables si c'est, au final, pour les transférer dans des cellules. De plus, un exemple avec des toto1 et toto2 n'aide pas vraiment à se faire une idée de ce que tu as réellement comme situation ni de ce que tu veux réaliser. Ca nous permet uniquement de répondre à cette question étroite sans avoir une vue plus large de ton problème et donc, de ce que tu souhaites réellement obtenir.

Cela dit, si tu as 50 paramètres à stocker, utilise plutôt un tableau qu'une suite de 50 variables. Pour valoriser le tableau, ce sera soit le même code que pour valoriser tes 50 variables soit une boucle si un algorithme peut être déterminé, mais tu pourras alors transférer ton tableau en une fois dans une plage.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Test()
  Dim Toto(1 To 50, 1 To 1)
 
  Toto(1, 1) = "Bonjour"
  Toto(2, 1) = "Au revoir"
  '...
  '...
  Toto(50, 1) = "Dernier Toto"
  Range("c2:c51").Value = Toto
End Sub

Edit: Les grands esprits se rencontrent, Patrice... Perso, je passe par un tableau à deux dimensions pour valoriser ma plage sans boucle