Augmentation automatique

[Aladin]

Bonjour le forum

Encore Aladin qui a besoin de vos services pour une lmacro pour balayer une colonne er rajouter 1 auc hiffres de la forme 8,2 et non aux entiers
Merci d' avance

Aladin

 

[bqtr]

Re : Augmentation automatique

Bonjour Aladin

Essaye comme ca :

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 🙂

 

[ninbihan]

Re : Augmentation automatique

Bonjour le Forum et Aladin,

Voici un code à tester

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 !!

 

[Aladin]

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

 

[ninbihan]

Re : Augmentation automatique

Re,

Tu peux essayer avec:

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:

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...

 

[bqtr]

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

 

[Aladin]

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