Re,
Chose promise, chose due...
Je te retourne ton fichier, avec la macro et un bouton pour la lancer : https://www.excel-pratique.com/~files/doc/Guerin.xls
Pour tester : entres la valeur de l'augmentation en C3, et cliques sur le bouton vert
Attention : avant d'ouvrir le classeur, tu dois faire Outils/Macro/Sécurité, et être au maximum au niveau moyen, sinon tu n'as pas le droit d'exécuter les codes
- J'ai considéré que les valeurs à modifier sont dans la colonne E, sur tes 2 tableaux.
- Autre considération : je ne touche pas aux cellules qui contiennent des formules (question pour les pros VBA, n'y a t'il pas un autre moyen que
If Not Left(cel.Formula, 1) = "=" Then
pour vérifier que la cellule ne contient pas de formule ?)
- A la fin de la macro j'efface le contenu de C3 pour qu'il n'y ait pas d'erreur en appliquant deux fois l'augmentation.
Le code pour le forum :
Sub augmentation()
Dim cel As Range
For Each cel In Range("E16:E" & Range("E65536").End(xlUp).Row)
If Not Left(cel.Formula, 1) = "=" Then
If IsNumeric(cel) And cel > 0 Then
cel = cel + Range("C3")
End If
End If
Next cel
Range("C3").ClearContents
End Sub
PS : une chose me choque un peu, c'est d'appliquer une augmentation fixe plutôt qu'un pourcentage...