Augmentation automatique

bqtr

XLDnaute Accro

• 16 Août 2007

• #2

Re : Augmentation automatique

Bonjour Aladin

Essaye comme ca :

Code:

Sub ajout_1()

Dim i As Long
For i = 1 To Range("C65536").End(xlUp).Row
  If InStr(1, Cells(i, 3), ",") <> 0 Then
     Cells(i, 3) = Cells(i, 3) + 1
  End If
Next

End Sub

La macro liste les cellules de la colonne C et recherche la position de la virgule. Si elle est différente de 0 donc présente dans le chiffre, elle ajoute 1 à ce dernier.

A adapter à ton cas

Bonne journée

Bonjour ninbihan, Aladin aura le choix comme ca 🙂

 

Dernière édition: 16 Août 2007

Vote positif 0 Vote négatif

ninbihan

XLDnaute Impliqué

• 16 Août 2007

• #3

Re : Augmentation automatique

Bonjour le Forum et Aladin,

Voici un code à tester

Code:

Sub test()
For Each cell In Selection
If Int(cell.Value) <> cell.Value Then
cell.Value = cell.Value + 1
End If
Next cell
End Sub

Bonne après midi,

Ninbihan

Edit: pas vu BQTR, bonjour !!

 

Vote positif 0 Vote négatif

A

Aladin

XLDnaute Occasionnel

• 16 Août 2007

• #4

Re : Augmentation automatique

Bonjour bqtr et ninbihan
J' ai testé ta macro de bqtr et elle focntionne, me rajoute bien 1 et fait l' addition, mais il ne fait pas tout.
exemple 8,2+1 resiultat = 9,2
Moi je voudrais un arrondi du genre 8,2 = 9
Aladin

 

Vote positif 0 Vote négatif

ninbihan

XLDnaute Impliqué

• 16 Août 2007

• #5

Re : Augmentation automatique

Re,

Tu peux essayer avec:

Code:

Sub test()
For Each cell In Selection
If Int(cell.Value) <> cell.Value Then
cell.Value = WorksheetFunction.RoundUp(cell.Value, 0)
End If
Next cell
End Sub

Ou dans la macro de BQTR:

Code:

Sub ajout_1()

Dim i As Long
For i = 1 To Range("C65536").End(xlUp).Row
  If InStr(1, Cells(i, 3), ",") <> 0 Then
     Cells(i, 3) = WorksheetFunction.RoundUp(Cells(i, 3).Value, 0)
  End If
Next

End Sub

Edit: comme tu dis BQTR, ce n'était pas facile de deviner dans l'énoncé de départ...

 

Dernière édition: 16 Août 2007

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 16 Août 2007

• #6

Re : Augmentation automatique

Re,

Evidemment, c'est pas la même chose, mais comme ma boule de cristal est en panne, c'était pas facile de deviner que tu voulais un arrondi 😀

A prendre avec humour bien sûr 😉

bonne fin de journée

 

Vote positif 0 Vote négatif

A

Aladin

XLDnaute Occasionnel

• 16 Août 2007

• #7

Re : Augmentation automatique

bonsoir bqtr et ninbihan
Les test ont été concluants, je vous remercie tous les deux et excusez moi pour l' énoncé, je m' étais mal expliqué la première fois
Aladin

 

Vote positif 0 Vote négatif