C'est la premiere fois que j'ustilise la programmation sur excel.
Je dois préparer un tableau pour mon lieu de travail, et je dois absolument passer par une macro, le problème c'est que j'ai besoin que mon programme s'excute automatiquement et continuellement, sans mon intervention manuelle, et à chaque fois qu'il y a un changement dans le tableau pricipale.
Le tableau etlargement plus grand que cela, et à chaque fois on doit ref ce qui entraine une adition des block de case.
Merci d'avance pour votre aide
Code:
Public Sub TOTALCOUTT1()
Dim T1LOYER As Long
Dim Ligne As Long
Ligne = 13
While Cells(Ligne, 8) <> ""
T1LOYER = T1LOYER + Cells(Ligne, 8)
Ligne = Ligne + 13
Wend
Range("N2").Value = T1LOYER
End Sub
Merci d'avance pour votre repense,
c'est la 1er fois que je fais cela, du coup j'aurai tendence à avoir du mal, je vais joindre une capture d'ecran, resumant ce que j'ai fais, et ce que vous m'avais proposé, est ce vraiment cela? car meme avec cela je dois ajir manuellement pour que la valeur dans la case N2 suit le changement. Merci
non ton code n'est pas bien placé
clic sur ta feuille
dans la liste déroulante en haut à gauche : tu sélectionnes worksheet
dans la liste de droite : Change
le code devrait ressembler à :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect("C7:L34", Target) Is Nothing Then TOTALCOUTT1
End Sub
ce qui veut dire : quand une cellule change sur la feuille et que cette cellule fait partie de C7:L34, on lance la macro TOTALCOUTT1
ensuite, ta macro TOTALCOUTT1 doit se trouve dans un module standard (ce qui est déjà le cas
NB : évite de donner le même nom à une macro et au module qui la contient
pour ma part, mes modules de macros commencent par m_ ...
m_ pour macros
i_ pour initialisation
*_ tu peux créer ce que tu veux, mais les nom de macros et les noms de modules doivent commencer par une lettre
Bonjour.
Essayez avec :
If Not Intersect([C7:L34], Target) Is Nothing Then TOTALCOUTT1 ou bien, en plus long :
If Not Intersect(Range("C7:L34"), Target) Is Nothing Then TOTALCOUTT1