Colonne sur excel en vba

Version imprimable

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:

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

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

Code:

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

05/02/2008, 09h03
cyberrage01

re

malheuresement cela ne fonctionne pas

et au niveau du nombre cela doit s"appliqué a l'ensemble des cellules
05/02/2008, 09h20
zebulon2212

A quel endroit ca plante ?
lance la macro en mode pas à pas.
Sur mon Pc ca fonctionne mais je n'ai peut-être pas compris ton but
05/02/2008, 09h31
cyberrage01

re

cela plante
a cette formule
If ActiveSheet.Range("A" & Str(i)).Value >= (99 - Nombre) Then

ou probléme de version?
05/02/2008, 09h42
zebulon2212

au temps pour moi
remplace Str() par Cstr()
Str(i) devient Cstr(i)
05/02/2008, 09h56
cyberrage01

je suis désole
maintenant il me met erreur de compilation

dsl te paraitre agressif dans mes demande ou question cela n'est pas le cas
05/02/2008, 10h04
zebulon2212

ca arrive de temps en temps je n'ai jamais compris pourquoi
Dans ce cas la je caste mes variables qui posent problemes
toujours en mode pas à pas essaye de voir quel variable pose probleme, et comme en c tu la caste.
exemple la variable i de type integer se caste int(i).
Ce que je ne comprend pas c'est pourquoi ca marche sur mon PC et pas le tiens

cela marche avec int
je te remercie cela fait 3 semaines que je bute
grand merci

et voila

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub xxx()
 
    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" & Int(i)).Value >= (99 - Nombre) Then
            ActiveSheet.Range("A" & Int(i)).Value = 99
        Else
            ActiveSheet.Range("A" & Int(i)).Value = ActiveSheet.Range("A" & Int(i)).Value + Nombre
        End If
    Next i
 
End Sub