Procédure trop grande worksheet_change

Fermé

florebobosch - 7 juil. 2016 à 10:34
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 8 juil. 2016 à 08:39

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

A voir également:

Procédure trop grande worksheet_change
Barre des taches trop grande - Guide
Comment faire une grande photo sur instagram - Guide
Classez ces fichiers de la plus petite taille (1) à la plus grande (4). - Forum Bases de données
Alinéa trop grand word - Forum Bureautique
Le point d'entrée de procédure est introuvable dans la bibliothèque de liens dynamiques ✓ - Forum Windows

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
7 juil. 2016 à 10:43

Bonjour,

Où en es-tu avec ce post?

https://forums.commentcamarche.net/forum/affich-33693264-lien-code-vba#p33693384

Réponse 2 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
Modifié par michel_m le 7/07/2016 à 10:49

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

florebobosch
7 juil. 2016 à 10:52

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

florebobosch
7 juil. 2016 à 11:06

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..............................................................................................................

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310 > florebobosch
Modifié par michel_m le 7/07/2016 à 12:12

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

florebobosch
7 juil. 2016 à 12:22

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!

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310 > florebobosch
7 juil. 2016 à 14:15

En revanche j'ai apparemment oublié les guillemets!

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

Réponse 3 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
8 juil. 2016 à 08:39

https://bidou.developpez.com/article/VBA/

Discussions similaires

Fond d'écran rogné et zoomé

reduire une photo en fond d'ecran

iPhone : réduire une photo pour la mettre en fond d'écran

fond d'écran trop grand

taxe foncière pour locataire