Colonne sur excel en vba

**cyberrage01** · 04/02/2008, 14h22

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

**zebulon2212** · 04/02/2008, 16h29

On dirai que tu as apris le basic sur GWBasic ou QWBasic (comme moi en fait)

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
Public Sub NomMacro()
 
    Dim i, NbLigne, Nombre As Integer
 
    NbLigne = CInt(InputBox("Saisissez le nombre de ligne", "Saisie"))
    Nombre = CInt(InputBox("Saisissez le nombre à ajouter", "Saisie"))
 
    For i = 2 To NbLigne
        If ActiveSheet.Range("A" & Str(i)).Value >= (99 - Nombre) Then
            ActiveSheet.Range("A" & Str(i)).Value = 99
        Else
            ActiveSheet.Range("A" & Str(i)).Value = ActiveSheet.Range("A" & Str(i)).Value + Nombre
        End If
    Next i
 
End Sub

Ce n'est pas exactement ce que tu demandais mais tu peux adapter.
En meme temps si tu dois saisir le nombre à ajouter pour les 500 cellules que tu veux parcourir t'es pas rendu