Discussion :

[leyeno]

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 :

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

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

[Krovax]

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

Code :

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

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 :

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

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

[DeaD78]

Bonjour,

Il faut écrire

Code :

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

Range("A1:" & Table)

et non

Code :

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

Range("A1: Table")

et ça marche

A plus tard !

EDIT : et mince, encore un post croisé Salut Krovax