voila je travaille avec une base sql qui m'exporte une base de donnée exel
de a2 jusque indéfini
je veut pouvoir modifier le nombre dans ces celule en rajoutant une condition
ex plus grand que 99 doit rester 99
plus petit que 99 rajouté le nombre defini
puit je l'exporte vers la base sql



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
18
19
20
21
22
23
24
25
26
27
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 31/01/2008 par Boomscud
'
' Touche de raccourci du clavier: Ctrl+b
 
10 p = InputBox("entrez le nombre de ligne")
 
si je choisi exemple 565
a partir de A2 jusque a la ligne A565
 
puit appliqué a tout les nombres dans les cellules
 
 
20 n = InputBox("entrez le nombre")
 
     If  > 99 Then  = 99
     If  < 99 Then  = n + 25
     If  > 99 Then  = 99
 
puit les rangé dans leurs cellule respective
 
If c < 10 Then GoTo 10
 
 
End Sub