Macro à appliquer sur plusieurs feuilles

Le 28/01/2016 à 09:49

Bonjour.

C'est desserrement que je m'en remet à vous pour ce problème qui me dépasse. Donc voila, j'ai créé un planning aux mois étendu sur 5 feuilles (soit 5 semaines) nommé: sm1,sm2....sm5 ainsi qu'une autre feuilles qui me sert à entré les données qui quand je clic sur le bouton macro classe automatiquement les informations dans le planning en fonction du la date et l'heure.

Cette macro marche très bien mais le seul souci qu'elle est bien trop longue [75 fois la même commande qui s’étant sur 3 lignes donc 225 ligne au total (seulement pour une semaine...)] donc quand j'ai voulu la faire pour les 4 autres évidement j'ai eu le droit au fameux "erreur de compilation procédure trop grande " . Je sais qu'il y a une manip avec le "for each sheets" mais il me le faudrait seulement pour mes 5 feuilles et je ne trouve pas la solution et aussi je ne sais pas se qu'il faut mettre à la place du "Sheets("sm1").Range(..." qui est présent sur toutes les lignes de la macro x) .

Donc svp sauvé moi, car moi je sature là...

Merci d'avance.

ma macro:

 Private Sub CommandButton1_Click()
'sm1'
If Range("A2") = Sheets("sm1").Range("C1") And Range("A3") = Sheets("sm1").Range("A3") Then
Sheets("sm1").Range("C3") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("D1") And Range("A3") = Sheets("sm1").Range("A3") Then
Sheets("sm1").Range("D3") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("E1") And Range("A3") = Sheets("sm1").Range("A3") Then
Sheets("sm1").Range("E3") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("F1") And Range("A3") = Sheets("sm1").Range("A3") Then
Sheets("sm1").Range("F3") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("G1") And Range("A3") = Sheets("sm1").Range("A3") Then
Sheets("sm1").Range("G3") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("C1") And Range("A3") = Sheets("sm1").Range("A6") Then
Sheets("sm1").Range("C6") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("D1") And Range("A3") = Sheets("sm1").Range("A6") Then
Sheets("sm1").Range("D6") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("E1") And Range("A3") = Sheets("sm1").Range("A6") Then
Sheets("sm1").Range("E6") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("F1") And Range("A3") = Sheets("sm1").Range("A6") Then
Sheets("sm1").Range("F6") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("G1") And Range("A3") = Sheets("sm1").Range("A6") Then
Sheets("sm1").Range("G6") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("C1") And Range("A3") = Sheets("sm1").Range("A9") Then
Sheets("sm1").Range("C9") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("D1") And Range("A3") = Sheets("sm1").Range("A9") Then
Sheets("sm1").Range("D9") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("E1") And Range("A3") = Sheets("sm1").Range("A9") Then
Sheets("sm1").Range("E9") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("F1") And Range("A3") = Sheets("sm1").Range("A9") Then
Sheets("sm1").Range("F9") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("G1") And Range("A3") = Sheets("sm1").Range("A9") Then
Sheets("sm1").Range("G9") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("C1") And Range("A3") = Sheets("sm1").Range("A12") Then
Sheets("sm1").Range("C12") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("D1") And Range("A3") = Sheets("sm1").Range("A12") Then
Sheets("sm1").Range("D12") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("E1") And Range("A3") = Sheets("sm1").Range("A12") Then
Sheets("sm1").Range("E12") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("F1") And Range("A3") = Sheets("sm1").Range("A12") Then
Sheets("sm1").Range("F12") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("G1") And Range("A3") = Sheets("sm1").Range("A12") Then
Sheets("sm1").Range("G12") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("C1") And Range("A3") = Sheets("sm1").Range("A15") Then
Sheets("sm1").Range("C15") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("D1") And Range("A3") = Sheets("sm1").Range("A15") Then
Sheets("sm1").Range("D15") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("E1") And Range("A3") = Sheets("sm1").Range("A15") Then
Sheets("sm1").Range("E15") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("F1") And Range("A3") = Sheets("sm1").Range("A15") Then
Sheets("sm1").Range("F15") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("G1") And Range("A3") = Sheets("sm1").Range("A15") Then
Sheets("sm1").Range("G15") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("C1") And Range("A3") = Sheets("sm1").Range("A18") Then
Sheets("sm1").Range("C18") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("D1") And Range("A3") = Sheets("sm1").Range("A18") Then
Sheets("sm1").Range("D18") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("E1") And Range("A3") = Sheets("sm1").Range("A18") Then
Sheets("sm1").Range("E18") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("F1") And Range("A3") = Sheets("sm1").Range("A18") Then
Sheets("sm1").Range("F18") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("G1") And Range("A3") = Sheets("sm1").Range("A18") Then
Sheets("sm1").Range("G18") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("C1") And Range("A3") = Sheets("sm1").Range("A21") Then
Sheets("sm1").Range("C21") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("D1") And Range("A3") = Sheets("sm1").Range("A21") Then
Sheets("sm1").Range("D21") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("E1") And Range("A3") = Sheets("sm1").Range("A21") Then
Sheets("sm1").Range("E21") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("F1") And Range("A3") = Sheets("sm1").Range("A21") Then
Sheets("sm1").Range("F21") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("G1") And Range("A3") = Sheets("sm1").Range("A21") Then
Sheets("sm1").Range("G21") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("C1") And Range("A3") = Sheets("sm1").Range("A24") Then
Sheets("sm1").Range("C24") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("D1") And Range("A3") = Sheets("sm1").Range("A24") Then
Sheets("sm1").Range("D24") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("E1") And Range("A3") = Sheets("sm1").Range("A24") Then
Sheets("sm1").Range("E24") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("F1") And Range("A3") = Sheets("sm1").Range("A24") Then
Sheets("sm1").Range("F24") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("G1") And Range("A3") = Sheets("sm1").Range("A24") Then
Sheets("sm1").Range("G24") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("C1") And Range("A3") = Sheets("sm1").Range("A39") Then
Sheets("sm1").Range("C39") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("D1") And Range("A3") = Sheets("sm1").Range("A39") Then
Sheets("sm1").Range("D39") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("E1") And Range("A3") = Sheets("sm1").Range("A39") Then
Sheets("sm1").Range("E39") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("F1") And Range("A3") = Sheets("sm1").Range("A39") Then
Sheets("sm1").Range("F39") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("G1") And Range("A3") = Sheets("sm1").Range("A36") Then
Sheets("sm1").Range("G39") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("C1") And Range("A3") = Sheets("sm1").Range("A42") Then
Sheets("sm1").Range("C42") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("D1") And Range("A3") = Sheets("sm1").Range("A42") Then
Sheets("sm1").Range("D42") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("E1") And Range("A3") = Sheets("sm1").Range("A42") Then
Sheets("sm1").Range("E42") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("F1") And Range("A3") = Sheets("sm1").Range("A42") Then
Sheets("sm1").Range("F42") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("G1") And Range("A3") = Sheets("sm1").Range("A39") Then
Sheets("sm1").Range("G39") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("C1") And Range("A3") = Sheets("sm1").Range("A45") Then
Sheets("sm1").Range("C45") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("D1") And Range("A3") = Sheets("sm1").Range("A45") Then
Sheets("sm1").Range("D45") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("E1") And Range("A3") = Sheets("sm1").Range("A45") Then
Sheets("sm1").Range("E45") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("F1") And Range("A3") = Sheets("sm1").Range("A45") Then
Sheets("sm1").Range("F45") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("G1") And Range("A3") = Sheets("sm1").Range("A42") Then
Sheets("sm1").Range("G42") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("C1") And Range("A3") = Sheets("sm1").Range("A48") Then
Sheets("sm1").Range("C48") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("D1") And Range("A3") = Sheets("sm1").Range("A48") Then
Sheets("sm1").Range("D48") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("E1") And Range("A3") = Sheets("sm1").Range("A48") Then
Sheets("sm1").Range("E48") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("F1") And Range("A3") = Sheets("sm1").Range("A48") Then
Sheets("sm1").Range("F48") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("G1") And Range("A3") = Sheets("sm1").Range("A45") Then
Sheets("sm1").Range("G45") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("C1") And Range("A3") = Sheets("sm1").Range("A51") Then
Sheets("sm1").Range("C51") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("D1") And Range("A3") = Sheets("sm1").Range("A51") Then
Sheets("sm1").Range("D51") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("E1") And Range("A3") = Sheets("sm1").Range("A51") Then
Sheets("sm1").Range("E51") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("F1") And Range("A3") = Sheets("sm1").Range("A51") Then
Sheets("sm1").Range("F51") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("G1") And Range("A3") = Sheets("sm1").Range("A48") Then
Sheets("sm1").Range("G48") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("C1") And Range("A3") = Sheets("sm1").Range("A54") Then
Sheets("sm1").Range("C54") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("D1") And Range("A3") = Sheets("sm1").Range("A54") Then
Sheets("sm1").Range("D54") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("E1") And Range("A3") = Sheets("sm1").Range("A54") Then
Sheets("sm1").Range("E54") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("F1") And Range("A3") = Sheets("sm1").Range("A54") Then
Sheets("sm1").Range("F54") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("G1") And Range("A3") = Sheets("sm1").Range("A51") Then
Sheets("sm1").Range("G51") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("C1") And Range("A3") = Sheets("sm1").Range("A57") Then
Sheets("sm1").Range("C57") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("D1") And Range("A3") = Sheets("sm1").Range("A57") Then
Sheets("sm1").Range("D57") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("E1") And Range("A3") = Sheets("sm1").Range("A57") Then
Sheets("sm1").Range("E57") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("F1") And Range("A3") = Sheets("sm1").Range("A57") Then
Sheets("sm1").Range("F57") = Range("C2")
Else: End If
If Range("A2") = Sheets("sm1").Range("G1") And Range("A3") = Sheets("sm1").Range("A54") Then
Sheets("sm1").Range("G54") = Range("C2")
Else: End If

End Sub

Le 28/01/2016 à 10:31

Bonjour et bienvenue sur le forum

Si tu joignais ton fichier complet, il serait plus facile de t'aider.

Bye !

Le 28/01/2016 à 10:46

bonjour gmb, voici mon fichier .

Au plaisir

31planning-v2.xlsm (52.96 Ko)

Le 28/01/2016 à 10:46

bonjour gmb, voici mon fichier .

Au plaisir

Le 28/01/2016 à 12:47