Procédure trop grande worksheet_change

florebobosch -  
michel_m Messages postés 18903 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

  2.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    1. 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
    2. 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
    3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320 > 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
    4. 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
    5. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320 > florebobosch
       
      En revanche j'ai apparemment oublié les guillemets!

      et tu as aussi oublié de dire de quelle feuille il s'agissait !!! :-(
      0

Discussions similaires

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

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

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

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

1 réponse
Où est Charlie : le carnet secret solution
Utilisateur anonyme -
alban -

121 réponses