Bon, problème (simple) : comment faire (si c'est possible !) pour qu'une macro s'adapte automatiquement si dans ma feuille je rajoute/supprime une ligne/colonne ?
Parce que là ça devient vite énervant de devoir parcourir à chaque fois ma macro (et près de 2000 lignes de code) si je modifie ma feuille (ce qui se passe à chaque révision de mon application suite à l'évolution du besoin de mes cliens).
Un petit copier/coller de ta macro et on se fera un plaisir d'y jeter un œil et de te trouver la meilleure solution à ce problème... Allez, fais un petit effort... Ctrl C puis Crtl V...
Édition
Salut Creepy, on s'est croisé. L'autre jour j'ai lu un post ou tu t'étais énervé grave (mais à mon sens tu avais tout à fait raison). Tu vois aujourd'hui c'est moi qui ai mes ragnagnas...
En fait, ça donne quelque chose comme ça (mais en bcp plus fourni) :
Code:
Sub Test()
Dim Somme As Integer
For I = 2 To 10
Somme = Somme + Cells(I, 1).Value
Next
Cells(2, 1).Value = Somme * Cells(I, 1).Value
End Sub
Le problème, c'est quand mon client me dit (exemple) : 'Et si on rajoutait une cellule de titre !'.
Donc j'insère une nouvelle ligne, ce qui décale mes lignes avec les valeurs, mais la macro considère toujours de 2 à 10 (alors qu'elle devrait faire de 3 à 11 maintenant).
Ce n'est qu'un exemple, mais quand ça survient toutes les semaines, c'est embetant. Ce que je voudrais, c'est que la macro réagisse comme les formules dans les cellules (qui, elles, s'adaptent aux ajout/suppr de lignes et colonnes).
PS : Oui, je sais, mon client est embétant ! :angry:
Dans cet exemple à adapter je considère que la somme se trouve dans la colonne A et que tout est vide en dessous de la dernière ligne éditée en A :
Sub Test()
Dim Somme As Integer
For I = 2 To Range('A65536').End(xlUp).Row
Somme = Somme + Cells(I, 1).Value
Next
Cells(2, 1).Value = Somme * Cells(I, 1).Value
End Sub