Faire varier des plages de cellules en VBA

bonjour eliane

vois si cela te conviens [file name=Classeurtest_20060302085357.zip size=10750]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeurtest_20060302085357.zip[/file]

Bonjour Eliane et Pierrejean

comme j'ai bossé j réponds quand même, je n'ai pas regardé le fichier de Pierrejean

dans le projet vba Feuil_2

Private Sub Worksheet_Activate()
ChargePierre = 0
ChargePaul = 0
ChargeJacques = 0
ChargeMarie = 0
ChargeJosie = 0
ChargeSylvie = 0
Application.ScreenUpdating = False
For i = 2 To 256 Step 3
For j = 2 To 20
Select Case Sheets('Feuil_1').Cells(j, i).Value
Case 'Pierre'
ChargePierre = ChargePierre + Sheets('Feuil_1').Cells(j, i - 1).Value
Case 'Paul'
ChargePaul = ChargePaul + Sheets('Feuil_1').Cells(j, i - 1).Value
Case 'Jacques'
ChargeJacques = ChargeJacques + Sheets('Feuil_1').Cells(j, i - 1).Value
Case 'Marie'
ChargeMarie = ChargeMarie + Sheets('Feuil_1').Cells(j, i - 1).Value
Case 'Josie'
ChargeJosie = ChargeJosie + Sheets('Feuil_1').Cells(j, i - 1).Value
Case 'Sylvie'
ChargeSylvie = ChargeSylvie + Sheets('Feuil_1').Cells(j, i - 1).Value
End Select
Next j
Next i
Range('A2').Value = ChargePierre
Range('B2').Value = ChargePaul
Range('C2').Value = ChargeJacques
Range('D2').Value = ChargeMarie
Range('E2').Value = ChargeJosie
Range('F2').Value = ChargeSylvie
Application.ScreenUpdating = True
End Sub

mets à jour la Feuil_2 à chaque activation

A+

bonjour ERIC S

regarde mon fichier tu verras que je me suis honteusement simplifié la vie

je prends en compte le fait qu'Eliane nous dit que tout se passe dans la plage A2:IV20

je te souhaite de trouver au plus vite le job que tu merites assurement

Pierre

re PierreJean

j'ai regardé ton fichier mais il n'y a rien d'honteux,pour ma part, j'ai écrit au km, basic car je n'ai pas encore le réflexe 'objet'

Par contre je pense plus intéressant de ne pas calculer sur ordre (un oubli est si vite arrivé)

A+

J'essaie vos sympatiques propositions ce vendredi et vous tiens informé avant lundi.

Effectivement, l'idée est d'avoir une mise à jour automatique de l'ensemble des 'somme.si' de la feuille 2 dès qu'un des noms de ressources est changé manuellement dans la feuille 1

Ce que je suppose avec la solution 'non objet' c'est que si la liste de choix s'allonge (ou change), mon code VBA doit être modifié ?

Dans la solution objet, y aurait-il une astuce pour qu'à chaque clik sur l'onglet feuille 2, les calculs se refassent tous automatiquement ?

Bon je passe aux essais et bises à tous pour les compléments d'info éventuels en ce sens

Lili

Bonsoir Eliane, PierreJean, Éric, bonsoir le forum,

Je me permets d'envoyer une proposition qui utilise l'outil de recherche d'Excel en VBA. Tu peux élargir la plage autant que tu les désires à condition toutefois qu'il n'y ait pas de trous (cellule vide) dans la ligne 1 car j'utilise Range('A1').CurrentRegion pour définit la plage de recherche.

La macro événementielle Change sur l'onglet feuil_1 actualise les valeur de feuil_2 à chaque changement. [file name=Classeur_Eliane.zip size=11314]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur_Eliane.zip[/file]

bonjour Eliane

comme le signale Robert mettre la macro en
feuil1_change permet d'obtenir les sommes a chaque mise a jour

pour ce qui est de l'accroissement de la region testee on peut jouer sur range('A2:IV20') ce que j'ais fait en mettant ('A2:IV25')

A toi de choisir la version qui te conviens le mieux

L'honneteté m'oblige à dire que celle de Robert est nettement plus professionnelle [file name=Classeurtest_20060303091827.zip size=10750]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeurtest_20060303091827.zip[/file]