Procédure trop grande worksheet_change

florebobosch -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai une page d'entete d'un classeur qui comporte plusieurs listes déroulantes.
A chaque fois j'ai créé un code de façon à ce que selon le choix dans la liste différentes actions s'effectuent. Tout mon code se trouve dans mon Private Sub worksheet_change(ByVal Target As Range) qui se trouve dans le code VBA de la feuille ENTETE.
Malheureusement après les dernières modifications excel affiche maintenant l'erreur "procédure trop grande" lorsque je l'effectue...

Y-a-t-il un moyen de résoudre ce problème sans changer le code ? Et sinon comment raccourcir un code ?

En outre il n'est vraiment pas possible d'écrire plusieurs fonction dans la feuille ENTETE (plusieurs Worksheet_change) ? Cela rendrait mon code beaucoup plus rapide si le calcul des choix de chaque liste déroulante se faisait seul...

Merci pour votre aide!

Flore

3 réponses

Réponse 1 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Où en es-tu avec ce post?

https://forums.commentcamarche.net/forum/affich-33693264-lien-code-vba#p33693384
0
Réponse 2 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour 
................

Dans l’attente

EDIT:
Bonjour cslepivert

tiens, je n'avais pas fait le lien avec sa demande précédente, je supprime donc ma proposition de réponse...



 Michel
0
florebobosch
 
Bonjour,

Je viens de répondre au post précédent excusez moi de ne pas avoir répondu hier, j'ai tellement peur de ne pas finir mon travail à temps...

Pouvez-vous m'aider pour la question d'aujourd'hui ?

Merci d'être présents,

Flore
0
florebobosch
 
Voici une partie du code dans lequel j'ai supprimé les noms confidentiels, je ne sais pas si c'est compréhensible...

L'idée est là : pleins de listes déroulantes et à chaque fois selon le choix je cache des lignes et rempli les cases avec des 0 ou des 1...

Ce n'est pas possible de faire un code par liste déroulante et non de tout mettre dans le worksheet_change ?

Merci de votre aide!!



Private Sub Worksheet_Change(ByVal Target As Range)


' COTRAITANCE / SOUSTRAITANCE


If Target.Address = "$A$5" Then
Dim un As Double

un = "1,00"
Dim un1 As Double
un1 = "1,1"

If Target.Value = "Cotraitance" Then
Worksheets("Montage").Range("H6.M:H10.M") = un
Worksheets("Montage").Range("H13.M:H24.M") = un
Worksheets("Montage").Range("H27.M:H37.M") = un
Worksheets("Montage").Range("H40.M:H42.M") = un
Worksheets("Génie Civil").Range("H6.GC") = un
Worksheets("Génie Civil").Range("H9.GC:H19.GC") = un
Worksheets("Génie Civil").Range("H21.GC:H40.GC") = un
Worksheets("Génie Civil").Range("H43.GC:H48.GC") = un
Worksheets("Génie Civil").Range("H50.GC:H59.GC") = un
Worksheets("Génie Civil").Range("H62.GC:H68.GC") = un
Worksheets("Génie Civil").Range("H70.GC:H85.GC") = un
Worksheets("Options").Range("H33.O:H35.O") = un
Worksheets("ETUDES").Range("C22.ET").EntireRow.Hidden = False
Worksheets("ETUDES").Range("C22.ET") = un



Else
Worksheets("Montage").Range("H6.M:H10.M") = un1
Worksheets("Montage").Range("H13.M:H24.M") = un1
Worksheets("Montage").Range("H27.M:H37.M") = un1
Worksheets("Montage").Range("H40.M:H42.M") = un1

Worksheets("Génie Civil").Range("H6.GC") = un1
Worksheets("Génie Civil").Range("H9.GC:H19.GC") = un1
Worksheets("Génie Civil").Range("H21.GC:H40.GC") = un1
Worksheets("Génie Civil").Range("H43.GC:H48.GC") = un1
Worksheets("Génie Civil").Range("H50.GC:H59.GC") = un1
Worksheets("Génie Civil").Range("H62.GC:H68.GC") = un1
Worksheets("Génie Civil").Range("H70.GC:H85.GC") = un1

Worksheets("Options").Range("H33.O:H35.O") = un1
Worksheets("ETUDES").Range("C22.ET").EntireRow.Hidden = True
Worksheets("ETUDES").Range("C22.ET") = "0"
End If
End If


'DEMONTAGE


If Target.Address = "$E$5" Then
If Target.Value = "Oui" Then
Worksheets("Démontage").Visible = True
Worksheets("RECAP").Range("A27").EntireRow.Hidden = False
Else
Worksheets("Démontage").Visible = False
Worksheets("RECAP").Range("A27").EntireRow.Hidden = True
End If
End If


' GARE MOTRICE

' STATION MOTRICE TENSION 7+



If Target.Address = "$B$8" Then
If Target.Value = "" Then
Sheets("").Visible = False
Sheets("").Visible = False
Sheets("").Visible = False
Sheets("").Visible = True

' remplissage de la feuille
Worksheets("").Range("B7.MTSP") = "0"
Worksheets("").Range("B8.MTSP:B12.MTSP") = "1"
Worksheets("").Range("B15.MTSP") = "1"
... etc



' remplissage et nettoyage de la feuille montage

Worksheets("Montage").Range("B27.M").EntireRow.Hidden = False
Worksheets("Montage").Range("B27.M") = "1"
Worksheets("Montage").Range("B28.M").EntireRow.Hidden = True
Worksheets("Montage").Range("B28.M") = "0"
Worksheets("Montage").Range("B29.M").EntireRow.Hidden = False
Worksheets("Montage").Range("B29.M") = "1"
Worksheets("Montage").Range("B30.M").EntireRow.Hidden = True
Worksheets("Montage").Range("B30.M") = "0"

' remplissage et nettoyage de la feuille dŽmontage

Worksheets("Démontage").Range("B13.D").EntireRow.Hidden = False
Worksheets("Démontage").Range("B13.D") = "1"
Worksheets("Démontage").Range("B14.D").EntireRow.Hidden = True
Worksheets("Démontage").Range("B14.D") = "0"
Worksheets("Démontage").Range("B15.D").EntireRow.Hidden = False
Worksheets("Démontage").Range("B15.D") = "1"
Worksheets("Démontage").Range("B16.D").EntireRow.Hidden = True
Worksheets("Démontage").Range("B16.D") = "0"


' remplissage et nettoyage de la feuille sŽcuritŽ

Worksheets("Sécurité").Range("B19.S").EntireRow.Hidden = False
Worksheets("Sécurité").Range("B19.S") = "1"
Worksheets("Sécurité").Range("B20.S").EntireRow.Hidden = True
Worksheets("Sécurité").Range("B20.S") = "0"
Worksheets("Sécurité").Range("B21.S").EntireRow.Hidden = False
Worksheets("Sécurité").Range("B21.S") = "1"


' calcul des totaux dans le rŽcapitulatif
Application.ScreenUpdating = False
Sheets("RECAP").Activate
Sheets("RECAP").Range("A10").Select
Selection.Hyperlinks(1).SubAddress = "" & "!A1"
Sheets("ENTETE").Select
Application.ScreenUpdating = True


Dim total3 As Double
Dim total4 As Double
Dim retour3 As Double
Dim retour4 As Double
total3 = Worksheets("").Range("G70.MTSP").Value
total4 = Worksheets("").Range("I70.MTSP").Value
retour3 = Worksheets("").Range("G92.MTSP").Value
retour4 = Worksheets("").Range("I92.MTSP").Value
Worksheets("RECAP").Range("D10.RE") = total3
Worksheets("RECAP").Range("F10.RE") = total4
Worksheets("RECAP").Range("D11.RE") = retour3
Worksheets("RECAP").Range("F11.RE") = retour4



' STATION MOTRICE TENSION M-I-7


ElseIf Target.Value = "" Then
Worksheets("").Visible = True
Worksheets("").Visible = False
Worksheets("").Visible = False
Worksheets("").Visible = False

' remplissage de la feuille
Worksheets("").Range("B8.MTMI") = "0"
Worksheets("").Range("B9.MTMI:B12.MTMI") = "1"
Worksheets("").Range("B15.MTMI") = "1"


' remplissage et nettoyage de la feuille montage

Worksheets("Montage").Range("B27.M").EntireRow.Hidden = False
Worksheets("Montage").Range("B27.M") = "1"
Worksheets("Montage").Range("B28.M").EntireRow.Hidden = True
Worksheets("Montage").Range("B28.M") = "0"
Worksheets("Montage").Range("B29.M").EntireRow.Hidden = False
Worksheets("Montage").Range("B29.M") = "1"
Worksheets("Montage").Range("B30.M").EntireRow.Hidden = True
Worksheets("Montage").Range("B30.M") = "0"


' remplissage et nettoyage de la feuille dŽmontage

Worksheets("Démontage").Range("B13.D").EntireRow.Hidden = False
Worksheets("Démontage").Range("B13.D") = "1"
Worksheets("Démontage").Range("B14.D").EntireRow.Hidden = True
Worksheets("Démontage").Range("B14.D") = "0"
Worksheets("Démontage").Range("B15.D").EntireRow.Hidden = False
Worksheets("Démontage").Range("B15.D") = "1"
Worksheets("Démontage").Range("B16.D").EntireRow.Hidden = True
Worksheets("Démontage").Range("B16.D") = "0"


' remplissage et nettoyage de la feuille sŽcuritŽ

Worksheets("Sécurité").Range("B19.S").EntireRow.Hidden = False
Worksheets("Sécurité").Range("B19.S") = "1"
Worksheets("Sécurité").Range("B20.S").EntireRow.Hidden = False
Worksheets("Sécurité").Range("B20.S") = "1"
Worksheets("Sécurité").Range("B21.S").EntireRow.Hidden = True
Worksheets("Sécurité").Range("B21.S") = "0"

' calcul des totaux dans le rŽcapitulatif
Application.ScreenUpdating = False
Sheets("RECAP").Activate
Sheets("RECAP").Range("A10").Select
Selection.Hyperlinks(1).SubAddress = "" & "!A1"
Sheets("ENTETE").Select
Application.ScreenUpdating = True

Dim total1 As Double
Dim total2 As Double
Dim retour1 As Double
Dim retour2 As Double
total1 = Worksheets("").Range("G66.MTMI").Value
total2 = Worksheets("").Range("I66.MTMI").Value
retour1 = Worksheets("").Range("G87.MTMI").Value
retour2 = Worksheets("").Range("I87.MTMI").Value
Worksheets("RECAP").Range("D10.RE") = total1
Worksheets("RECAP").Range("F10.RE") = total2
Worksheets("RECAP").Range("D11.RE") = retour1
Worksheets("RECAP").Range("F11.RE") = retour2




End If


' LIGNE DE SECURITE



If Target.Address = "$E$23" Then
If Target.Value = "Aérienne" Then
Worksheets("Sécurité").Range("B33.S:B38.S").EntireRow.Hidden = False
Worksheets("Sécurité").Range("B34.S:B37.S") = "1"
Worksheets("Sécurité").Range("B39.S:B48.S").EntireRow.Hidden = True
Worksheets("Sécurité").Range("B39.S:B48.S") = "0"
Worksheets("Génie Civil").Range("B50.GC") = "0"
Worksheets("Génie Civil").Range("B50.GC").EntireRow.Hidden = True
If Worksheets("Démontage").Visible = True Then
Worksheets("Démontage").Range("B24.D") = "0"
Worksheets("Démontage").Range("B24.D").EntireRow.Hidden = True
Worksheets("Démontage").Range("B25.D") = "1"
Worksheets("Démontage").Range("B25.D").EntireRow.Hidden = False
End If

Else
Worksheets("Sécurité").Range("B33.S:B38.S").EntireRow.Hidden = True
Worksheets("Sécurité").Range("B34.S:B37.S") = "0"
Worksheets("Sécurité").Range("B39.S:B48.S").EntireRow.Hidden = False
Worksheets("Sécurité").Range("B40.S:B47.S") = "1"
Worksheets("Génie Civil").Range("B50.GC") = "1"
Worksheets("Génie Civil").Range("B50.GC").EntireRow.Hidden = False
If Worksheets("Démontage").Visible = True Then
Worksheets("Démontage").Range("B25.D") = "0"
Worksheets("Démontage").Range("B25.D").EntireRow.Hidden = True
Worksheets("Démontage").Range("B24.D") = "1"
Worksheets("Démontage").Range("B24.D").EntireRow.Hidden = False
End If

End If

End If



' CABLE


If Target.Address = "$E$14" Then
If Target.Value = "38" Then
If Range("H14") = "l" Then
Worksheets("Ligne").Range("C72.L").Font.Bold = True
Worksheets("Ligne").Range("C92.L").Font.Bold = False
Worksheets("Ligne").Range("C73.L").Font.Bold = True
Worksheets("Ligne").Range("C79.L").Font.Bold = False
Worksheets("Ligne").Range("C85.L").Font.Bold = False
Worksheets("Ligne").Range("C93.L").Font.Bold = False
Worksheets("Ligne").Range("C99.L").Font.Bold = False
Worksheets("Ligne").Range("C105.L").Font.Bold = False

Worksheets("Ligne").Range("B73.L:B78.L").EntireRow.Hidden = False
Worksheets("Ligne").Range("B80.L:B84.L") = "0"
Worksheets("Ligne").Range("B86.L:B91.L") = "0"
Worksheets("Ligne").Range("B94.L:B98.L") = "0"
Worksheets("Ligne").Range("B100.L:B104.L") = "0"
Worksheets("Ligne").Range("B106.L:B111.L") = "0"
Worksheets("Ligne").Range("B79.L:B111.L").EntireRow.Hidden = True
Worksheets("Ligne").Range("B74.L") = "1"
Worksheets("Ligne").Range("B76.L") = 100 + 2 * Worksheets("ENTETE").Range("E13.E")
Worksheets("Ligne").Range("B75.L") = "0"
Worksheets("Ligne").Range("B77.L:B78.L") = "0"
Worksheets("Ligne").Range("B72.L").EntireRow.Hidden = False
Worksheets("Ligne").Range("B92.L").EntireRow.Hidden = True

ElseIf Range("H14") = "" Then
Worksheets("Ligne").Range("C72.L").Font.Bold = True
Worksheets("Ligne").Range("C92.L").Font.Bold = False
Worksheets("Ligne").Range("C93.L").Font.Bold = True
Worksheets("Ligne").Range("C73.L").Font.Bold = False
Worksheets("Ligne").Range("C79.L").Font.Bold = False
Worksheets("Ligne").Range("C85.L").Font.Bold = False
Worksheets("Ligne").Range("C99.L").Font.Bold = False
Worksheets("Ligne").Range("C105.L").Font.Bold = False

Worksheets("Ligne").Range("B93.L:B98.L").EntireRow.Hidden = False
Worksheets("Ligne").Range("B80.L:B84.L") = "0"
Worksheets("Ligne").Range("B86.L:B91.L") = "0"
Worksheets("Ligne").Range("B74.L:B78.L") = "0"
Worksheets("Ligne").Range("B100.L:B104.L") = "0"
Worksheets("Ligne").Range("B106.L:B111.L") = "0"
Worksheets("Ligne").Range("B73.L:B91.L").EntireRow.Hidden = True
Worksheets("Ligne").Range("B99.L:B111.L").EntireRow.Hidden = True
Worksheets("Ligne").Range("B94.L") = "1"
Worksheets("Ligne").Range("B96.L") = 100 + 2 * Worksheets("ENTETE").Range("E13.E")
Worksheets("Ligne").Range("B95.L") = "0"
Worksheets("Ligne").Range("B97.L:B98.L") = "0"
Worksheets("Ligne").Range("B72.L").EntireRow.Hidden = True
Worksheets("Ligne").Range("B92.L").EntireRow.Hidden = False

End If

ElseIf Target.Value = "40.5" Then
If Range("H14") = "l" Then
Worksheets("Ligne").Range("C72.L").Font.Bold = True
Worksheets("Ligne").Range("C92.L").Font.Bold = False
Worksheets("Ligne").Range("C73.L").Font.Bold = False
Worksheets("Ligne").Range("C79.L").Font.Bold = True
Worksheets("Ligne").Range("C85.L").Font.Bold = False
Worksheets("Ligne").Range("C93.L").Font.Bold = False
Worksheets("Ligne").Range("C99.L").Font.Bold = False
Worksheets("Ligne").Range("C105.L").Font.Bold = False

Worksheets("Ligne").Range("B79.L:B84.L").EntireRow.Hidden = False
Worksheets("Ligne").Range("B94.L:B98.L") = "0"
Worksheets("Ligne").Range("B86.L:B91.L") = "0"
Worksheets("Ligne").Range("B74.L:B78.L") = "0"
Worksheets("Ligne").Range("B100.L:B104.L") = "0"
Worksheets("Ligne").Range("B106.L:B111.L") = "0"
Worksheets("Ligne").Range("B73.L:B78.L").EntireRow.Hidden = True
Worksheets("Ligne").Range("B85.L:B111.L").EntireRow.Hidden = True
Worksheets("Ligne").Range("B80.L") = "1"
Worksheets("Ligne").Range("B82.L") = 100 + 2 * Worksheets("ENTETE").Range("E13.E")
Worksheets("Ligne").Range("B81.L") = "0"
Worksheets("Ligne").Range("B83.L:B84.L") = "0"
Worksheets("Ligne").Range("B72.L").EntireRow.Hidden = False
Worksheets("Ligne").Range("B92.L").EntireRow.Hidden = True


ElseIf Range("H14") = "" Then
Worksheets("Ligne").Range("C72.L").Font.Bold = False
Worksheets("Ligne").Range("C92.L").Font.Bold = True
Worksheets("Ligne").Range("C73.L").Font.Bold = False
Worksheets("Ligne").Range("C79.L").Font.Bold = False
Worksheets("Ligne").Range("C85.L").Font.Bold = False
Worksheets("Ligne").Range("C93.L").Font.Bold = False
Worksheets("Ligne").Range("C99.L").Font.Bold = True
Worksheets("Ligne").Range("C105.L").Font.Bold = False

Worksheets("Ligne").Range("B99.L:B104.L").EntireRow.Hidden = False
Worksheets("Ligne").Range("B94.L:B98.L") = "0"
Worksheets("Ligne").Range("B86.L:B91.L") = "0"
Worksheets("Ligne").Range("B74.L:B78.L") = "0"
Worksheets("Ligne").Range("B80.L:B84.L") = "0"
Worksheets("Ligne").Range("B106.L:B111.L") = "0"
Worksheets("Ligne").Range("B73.L:B98.L").EntireRow.Hidden = True
Worksheets("Ligne").Range("B105.L:B111.L").EntireRow.Hidden = True
Worksheets("Ligne").Range("B100.L") = "1"
Worksheets("Ligne").Range("B102.L") = 100 + 2 * Worksheets("ENTETE").Range("E13.E")
Worksheets("Ligne").Range("B101.L") = "0"
Worksheets("Ligne").Range("B103.L:B104.L") = "0"
Worksheets("Ligne").Range("B72.L").EntireRow.Hidden = True
Worksheets("Ligne").Range("B92.L").EntireRow.Hidden = False


End If
ElseIf Target.Value = "42.5" Then
If Range("H14") = "l" Then
Worksheets("Ligne").Range("C72.L").Font.Bold = True
Worksheets("Ligne").Range("C92.L").Font.Bold = False
Worksheets("Ligne").Range("C73.L").Font.Bold = False
Worksheets("Ligne").Range("C79.L").Font.Bold = False
Worksheets("Ligne").Range("C85.L").Font.Bold = True
Worksheets("Ligne").Range("C93.L").Font.Bold = False
Worksheets("Ligne").Range("C99.L").Font.Bold = False
Worksheets("Ligne").Range("C105.L").Font.Bold = False

Worksheets("Ligne").Range("B85.L:B91.L").EntireRow.Hidden = False
Worksheets("Ligne").Range("B94.L:B98.L") = "0"
Worksheets("Ligne").Range("B100.L:B104.L") = "0"
Worksheets("Ligne").Range("B74.L:B78.L") = "0"
Worksheets("Ligne").Range("B80.L:B84.L") = "0"
Worksheets("Ligne").Range("B106.L:B111.L") = "0"
Worksheets("Ligne").Range("B73.L:B84.L").EntireRow.Hidden = True
Worksheets("Ligne").Range("B93.L:B111.L").EntireRow.Hidden = True
Worksheets("Ligne").Range("B86.L") = "1"
Worksheets("Ligne").Range("B87.L") = 100 + 2 * Worksheets("ENTETE").Range("E13.E")
Worksheets("Ligne").Range("B88.L:B91.L") = "0"
Worksheets("Ligne").Range("B72.L").EntireRow.Hidden = False
Worksheets("Ligne").Range("B92.L").EntireRow.Hidden = True

ElseIf Range("H14") = "" Then
Worksheets("Ligne").Range("C72.L").Font.Bold = False
Worksheets("Ligne").Range("C92.L").Font.Bold = True
Worksheets("Ligne").Range("C73.L").Font.Bold = False
Worksheets("Ligne").Range("C79.L").Font.Bold = False
Worksheets("Ligne").Range("C85.L").Font.Bold = False
Worksheets("Ligne").Range("C93.L").Font.Bold = False
Worksheets("Ligne").Range("C99.L").Font.Bold = False
Worksheets("Ligne").Range("C105.L").Font.Bold = True

Worksheets("Ligne").Range("B105.L:B111.L").EntireRow.Hidden = False
Worksheets("Ligne").Range("B94.L:B98.L") = "0"
Worksheets("Ligne").Range("B100.L:B104.L") = "0"
Worksheets("Ligne").Range("B74.L:B78.L") = "0"
Worksheets("Ligne").Range("B80.L:B84.L") = "0"
Worksheets("Ligne").Range("B86.L:B91.L") = "0"
Worksheets("Ligne").Range("B73.L:B104.L").EntireRow.Hidden = True
Worksheets("Ligne").Range("B106.L") = "1"
Worksheets("Ligne").Range("B107.L") = 100 + 2 * Worksheets("ENTETE").Range("E13.E")
Worksheets("Ligne").Range("B108.L:B111.L") = "0"
Worksheets("Ligne").Range("B72.L").EntireRow.Hidden = True
Worksheets("Ligne").Range("B92.L").EntireRow.Hidden = False

End If
End If
End If


' MOTEUR
' moteur Žlectrique



If Target.Address = "$E$22" Then


If Target.Value = "82KW" Then
If Worksheets("").Visible = True Then
Worksheets("").Range("B20.MTMI").EntireRow.Hidden = False
Worksheets("").Range("B20.MTMI") = "1"
Worksheets("").Range("B21.MTMI:B30.MTMI") = "0"
Worksheets("").Range("B21.MTMI:B30.MTMI").EntireRow.Hidden = True
ElseIf Worksheets("").Visible = True Then
Worksheets("").Range("B20.MTSP").EntireRow.Hidden = False
Worksheets("").Range("B20.MTSP") = "1"
Worksheets("").Range("B21.MTSP:B30.MTSP") = "0"


ElseIf Target.Value = "120KW" Then





ETC..............................................................................................................
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314 > florebobosch
 
mettre ton classeur avec le code car on ne voit pas ce que tu veux faire réellement 

Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci  par un clic droit sur le lien proposé dans le message de réponse

Dans l’attente

Au passage: que signifie
je connais range("C22") mais pas Range("C22.ET) ??

Worksheets("") renvoie une erreur 9
0
florebobosch
 
Je ne peux pas mettre mon classeur à cause de la confidentialité des données et je n'ai malheureusement pas le temps d'en créer un semblable pour l'envoyer, vous ne voyez vraiment pas mon problème ? :/

C22.ET et la case C22 de ma page ETUDE, j'ai renommé plusieurs cases comme ça de façon à ce que l'insertion de lignes n'empêche pas le code de fonctionner

En revanche j'ai apparemment oublié les guillemets!
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314 > florebobosch
 
En revanche j'ai apparemment oublié les guillemets!

et tu as aussi oublié de dire de quelle feuille il s'agissait !!! :-(
0
Réponse 3 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
https://bidou.developpez.com/article/VBA/
0

Discussions similaires

Fond d'écran rogné et zoomé
DeeJay-TheBot -
DeeJay-TheBot -

2 réponses
reduire une photo en fond d'ecran
romlou -
RaceGame -

5 réponses
fond d'écran trop grand
anonyme -
Chalolotte -

16 réponses
le frigo ne marche pas....
Nemo6456 -
Templier Nocturne -

1 réponse
Internat nourriture
shaun37 -
griggo -

4 réponses