Problème concaténation (centrage cellule)

Version imprimable

Boujour , donc après diverses opérations je voudrais centrer une plage de valeur.
Le problème c'est que cette page dépend de deux données que va entrée l'utilisateur :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub essai() Message0bis = InputBox("Entrez le nombre de moule:", "Moule", "Nbre moule") Message0 = InputBox("Entrez le nombre d'échantillon :", "Echantillon", "Nbre echantillon") Dim tableau As Integer Dim Table As String tableau = Message0bis * Message0 * 148 Table = "F" & tableau Range("A1: Table").HorizontalAlignment = xlCenter 'centre valeurs des cellules End Sub
Les deux parametre sont message0 et message0bis.
Donc j'essay de faire une concaténation.Mais cela ne fonctionne pas.
Exemple: l'utilisateur entre comme valeur 22 et 2 d'ou tableau=6512

donc je voudrais centrer mes cellules défini de A1 a F6512.
comment réaliser la concaténation
merci de votre aide

pour le principe on va déclarer les variable au début du programme et on va déclarer toutes les variable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub essai()
 
Dim tableau As Integer
Dim Table As String
dim Message0bis  as integer
dim Message0  as integer
 
Message0bis = InputBox("Entrez le nombre de moule:", "Moule", "Nbre moule")
Message0 = InputBox("Entrez le nombre d'échantillon :", "Echantillon", "Nbre echantillon")
 
 
 
tableau = Message0bis * Message0 * 148
 
Range("A1: F" & tableau).HorizontalAlignment = xlCenter 'centre valeurs des cellules
 
End Sub

remarque on aurait très bien pu faire

Code:

1
2
Table = "F" & tableau
Range("A1:" & Table)....

26/05/2009, 16h24
DeaD78

Bonjour,

Il faut écrire

Code:

Range("A1:" & Table)

et non

Code:

Range("A1: Table")

et ça marche :ccool:

A plus tard !

EDIT : et mince, encore un post croisé :cry: Salut Krovax 8-)