Procedure too large

Résolu

r4944 Messages postés 122 Date d'inscription Statut Membre Dernière intervention -
NHenry Messages postés 15219 Date d'inscription Statut Modérateur Dernière intervention - 15 avril 2016 à 22:44

Bonjour,

Y'a til une idee pour eviter cet erreur "Procedure too large"

j'ai cree des drop down lists sur 10 cellules qui contiennent des codes et une fois on clique sur n'importe quel code de cette liste , on aura sa défintion dans la cellule juste en haut , ça fonctionne très bien pour les 10 premiéres cellules
mais je dois refaire la même chose pour d'autres cellules notons que c'est les mêmes codes et les mêmes définitions.malheureusement j'ai eu cet erreur qui me permettera de coninuer

voici une petite aperçu de mon code , je voulais savoir si y'a til une maniére pour éviter quelques lignes de code

Merci

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Address(0, 0) = "X4" Then
    
    Select Case Target
        Case "Educ": range1 = "B7"
        Case "EX1": range1 = "B25"
        Case "EX2": range1 = "B26"
        Case "EX3": range1 = "B27"
        Case "EX4": range1 = "B28"
        Case "EX5": range1 = "B29"
        Case "EX6": range1 = "B30"
        Case "EX7": range1 = "B31"
        Case "EX8": range1 = "B32"
        Case "EX9": range1 = "B33"
        Case "EX10": range1 = "B34"
        Case "A1": range1 = "B71"
        Case "A2": range1 = "B72"
        Case "PS1": range1 = "B73"
        Case "PS2": range1 = "B74"
        Case "AED1": range1 = "B45"
        Case "AED2": range1 = "B46"
     End Select
End If

If range1 <> "" Then
     Sheets("SBR").Range("X3") = _
                Sheets("Process Info").Range(range1).Value
End If
       
     
If Target.Address(0, 0) = "Y4" Then
    
    Select Case Target
        Case "Educ": range1a = "B7"
        Case "EX1": range1a = "B25"
        Case "EX2": range1a = "B26"
        Case "EX3": range1a = "B27"
        Case "EX4": range1a = "B28"
        Case "EX5": range1a = "B29"
        Case "EX6": range1a = "B30"
        Case "EX7": range1a = "B31"
        Case "EX8": range1a = "B32"
        Case "EX9": range1a = "B33"
        Case "EX10": range1a = "B34"
        Case "A1": range1a = "B71"
        Case "A2": range1a = "B72"
        Case "PS1": range1a = "B73"
        Case "PS2": range1a = "B74"
        Case "AED1": range1a = "B45"
         Case "AED2": range1a = "B46"
     End Select
End If

If range1a <> "" Then
     Sheets("SBR").Range("Y3") = _
                Sheets("Process Info").Range(range1a).Value
End If
       
     

If Target.Address(0, 0) = "Z4" Then
    
    Select Case Target
        Case "Educ": range1b = "B7"
        Case "EX1": range1b = "B25"
        Case "EX2": range1b = "B26"
        Case "EX3": range1b = "B27"
        Case "EX4": range1b = "B28"
        Case "EX5": range1b = "B29"
        Case "EX6": range1b = "B30"
        Case "EX7": range1b = "B31"
        Case "EX8": range1b = "B32"
        Case "EX9": range1b = "B33"
        Case "EX10": range1b = "B34"
        Case "A1": range1b = "B71"
        Case "A2": range1b = "B72"
        Case "PS1": range1b = "B73"
        Case "PS2": range1b = "B74"
        Case "AED1": range1b = "B45"
         Case "AED2": range1b = "B46"
     End Select
End If

If range1b <> "" Then
     Sheets("SBR").Range("Z3") = _
                Sheets("Process Info").Range(range1b).Value
End If
       
    

If Target.Address(0, 0) = "AA4" Then
    
    Select Case Target
        Case "Educ": range1c = "B7"
        Case "EX1": range1c = "B25"
        Case "EX2": range1c = "B26"
        Case "EX3": range1c = "B27"
        Case "EX4": range1c = "B28"
        Case "EX5": range1c = "B29"
        Case "EX6": range1c = "B30"
        Case "EX7": range1c = "B31"
        Case "EX8": range1c = "B32"
        Case "EX9": range1c = "B33"
        Case "EX10": range1c = "B34"
        Case "A1": range1c = "B71"
        Case "A2": range1c = "B72"
        Case "PS1": range1c = "B73"
        Case "PS2": range1c = "B74"
        Case "AED1": range1c = "B45"
         Case "AED2": range1c = "B46"
     End Select
End If

If range1c <> "" Then
     Sheets("SBR").Range("AA3") = _
                Sheets("Process Info").Range(range1c).Value
End If
       
     

If Target.Address(0, 0) = "AB4" Then
    
    Select Case Target
        Case "Educ": range1x = "B7"
        Case "EX1": range1x = "B25"
        Case "EX2": range1x = "B26"
        Case "EX3": range1x = "B27"
        Case "EX4": range1x = "B28"
        Case "EX5": range1x = "B29"
        Case "EX6": range1x = "B30"
        Case "EX7": range1x = "B31"
        Case "EX8": range1x = "B32"
        Case "EX9": range1x = "B33"
        Case "EX10": range1x = "B34"
        Case "A1": range1x = "B71"
        Case "A2": range1x = "B72"
        Case "PS1": range1x = "B73"
        Case "PS2": range1x = "B74"
        Case "AED1": range1x = "B45"
         Case "AED2": range1x = "B46"
     End Select
End If

If range1x <> "" Then
     Sheets("SBR").Range("AB3") = _
                Sheets("Process Info").Range(range1x).Value
End If
       
     



If Target.Address(0, 0) = "AB4" Then
    
    Select Case Target
        Case "Educ": range1z = "B7"
        Case "EX1": range1z = "B25"
        Case "EX2": range1z = "B26"
        Case "EX3": range1z = "B27"
        Case "EX4": range1z = "B28"
        Case "EX5": range1z = "B29"
        Case "EX6": range1z = "B30"
        Case "EX7": range1z = "B31"
        Case "EX8": range1z = "B32"
        Case "EX9": range1z = "B33"
        Case "EX10": range1z = "B34"
        Case "A1": range1z = "B71"
        Case "A2": range1z = "B72"
        Case "PS1": range1z = "B73"
        Case "PS2": range1z = "B74"
        Case "AED1": range1z = "B45"
         Case "AED2": range1z = "B46"
     End Select
End If

If range1z <> "" Then
     Sheets("SBR").Range("AB3") = _
                Sheets("Process Info").Range(range1z).Value
End If
       
     


If Target.Address(0, 0) = "AC4" Then
    
    Select Case Target
        Case "Educ": range1s = "B7"
        Case "EX1": range1s = "B25"
        Case "EX2": range1s = "B26"
        Case "EX3": range1s = "B27"
        Case "EX4": range1s = "B28"
        Case "EX5": range1s = "B29"
        Case "EX6": range1s = "B30"
        Case "EX7": range1s = "B31"
        Case "EX8": range1s = "B32"
        Case "EX9": range1s = "B33"
        Case "EX10": range1s = "B34"
        Case "A1": range1s = "B71"
        Case "A2": range1s = "B72"
        Case "PS1": range1s = "B73"
        Case "PS2": range1s = "B74"
        Case "AED1": range1s = "B45"
         Case "AED2": range1s = "B46"
     End Select
End If
       
If Target.Address(0, 0) = "BB4" Then
    
    Select Case Target
        
         Case "K1": sbr3 = "B49"
        Case "K2": sbr3 = "B50"
        Case "K3": sbr3 = "B51"
        Case "K4": sbr3 = "B52"
        Case "K5": sbr3 = "B53"
        Case "K6": sbr3 = "B54"
        Case "K7": sbr3 = "B55"
        Case "K8": sbr3 = "B56"
        Case "K9": sbr3 = "B57"
        Case "K10": sbr3 = "B58"
        Case "K11": sbr3 = "B59"
        Case "K12": sbr3 = "B60"
        Case "K13": sbr3 = "B61"
        Case "K14": sbr3 = "B62"
        Case "K15": sbr3 = "B63"
        Case "K16": sbr3 = "B64"
        Case "K17": sbr3 = "B65"
        Case "K18": sbr3 = "B66"
        Case "K19": sbr3 = "B67"
        Case "K20": sbr3 = "B68"
        Case "A1": sbr3 = "B71"
        Case "A2": sbr3 = "B72"
        Case "A3": sbr3 = "B73"
        Case "A4": sbr3 = "B74"
        Case "A5": sbr3 = "B75"
        Case "A6": sbr3 = "B76"
        Case "A7": sbr3 = "B77"
        Case "A8": sbr3 = "B78"
        Case "A9": sbr3 = "B79"
        Case "A10": sbr3 = "B80"
        Case "PS1": sbr3 = "B83"
        Case "PS2": sbr3 = "B84"
        Case "PS3": sbr3 = "B85"
        Case "PS4": sbr3 = "B86"
        Case "PS5": sbr3 = "B87"
        Case "PS6": sbr3 = "B88"
        Case "PS7": sbr3 = "B89"
        Case "PS8": sbr3 = "B90"
        Case "PS9": sbr3 = "B91"
        Case "PS10": sbr3 = "B92"
     
        Case "Cmp1": sbr3 = "B95"
        Case "Cmp2": sbr3 = "B96"
        Case "Cmp3": sbr3 = "B97"
        Case "Cmp4": sbr3 = "B98"
        Case "Cmp5": sbr3 = "B99"
        Case "Cmp6": sbr3 = "B100"
        Case "Cmp7": sbr3 = "B101"
        Case "Cmp8": sbr3 = "B102"
        Case "Cmp9": sbr3 = "B103"
        Case "Cmp10": sbr3 = "B104"
        Case "Cmp11": sbr3 = "B107"
        Case "Cmp12": sbr3 = "B108"
        Case "Cmp13": sbr3 = "B109"
        Case "Cmp14": sbr3 = "B110"
        Case "Cmp15": sbr3 = "B111"
     
        
        
        
     End Select
End If

If sbr3 <> "" Then
     Sheets("SBR").Range("BA3") = _
                Sheets("Process Info").Range(sbr3).Value
End If
       

If Target.Address(0, 0) = "BD4" Then
    
    Select Case Target
      Case "K1": sbr4 = "B49"
        Case "K2": sbr4 = "B50"
        Case "K3": sbr4 = "B51"
        Case "K4": sbr4 = "B52"
        Case "K5": sbr4 = "B53"
        Case "K6": sbr4 = "B54"
        Case "K7": sbr4 = "B55"
        Case "K8": sbr4 = "B56"
        Case "K9": sbr4 = "B57"
        Case "K10": sbr4 = "B58"
        Case "K11": sbr4 = "B59"
        Case "K12": sbr4 = "B60"
        Case "K13": sbr4 = "B61"
        Case "K14": sbr4 = "B62"
        Case "K15": sbr4 = "B63"
        Case "K16": sbr4 = "B64"
        Case "K17": sbr4 = "B65"
        Case "K18": sbr4 = "B66"
        Case "K19": sbr4 = "B67"
        Case "K20": sbr4 = "B68"
        Case "A1": sbr4 = "B71"
        Case "A2": sbr4 = "B72"
        Case "A3": sbr4 = "B73"
        Case "A4": sbr4 = "B74"
        Case "A5": sbr4 = "B75"
        Case "A6": sbr4 = "B76"
        Case "A7": sbr4 = "B77"
        Case "A8": sbr4 = "B78"
        Case "A9": sbr4 = "B79"
        Case "A10": sbr4 = "B80"
        Case "PS1": sbr4 = "B83"
        Case "PS2": sbr4 = "B84"
        Case "PS3": sbr4 = "B85"
        Case "PS4": sbr4 = "B86"
        Case "PS5": sbr4 = "B87"
        Case "PS6": sbr4 = "B88"
        Case "PS7": sbr4 = "B89"
        Case "PS8": sbr4 = "B90"
        Case "PS9": sbr4 = "B91"
        Case "PS10": sbr4 = "B92"
     
        Case "Cmp1": sbr4 = "B95"
        Case "Cmp2": sbr4 = "B96"
        Case "Cmp3": sbr4 = "B97"
        Case "Cmp4": sbr4 = "B98"
        Case "Cmp5": sbr4 = "B99"
        Case "Cmp6": sbr4 = "B100"
        Case "Cmp7": sbr4 = "B101"
        Case "Cmp8": sbr4 = "B102"
        Case "Cmp9": sbr4 = "B103"
        Case "Cmp10": sbr4 = "B104"
        Case "Cmp11": sbr4 = "B107"
        Case "Cmp12": sbr4 = "B108"
        Case "Cmp13": sbr4 = "B109"
        Case "Cmp14": sbr4 = "B110"
        Case "Cmp15": sbr4 = "B111"
     

     End Select
End If

If sbr4 <> "" Then
     Sheets("SBR").Range("BC3") = _
                Sheets("Process Info").Range(sbr4).Value
End If
       

If Target.Address(0, 0) = "BF4" Then
    
    Select Case Target
 Case "K1": sbr2 = "B49"
        Case "K2": sbR5 = "B50"
        Case "K3": sbR5 = "B51"
        Case "K4": sbR5 = "B52"
        Case "K5": sbR5 = "B53"
        Case "K6": sbR5 = "B54"
        Case "K7": sbR5 = "B55"
        Case "K8": sbR5 = "B56"
        Case "K9": sbR5 = "B57"
        Case "K10": sbR5 = "B58"
        Case "K11": sbR5 = "B59"
        Case "K12": sbR5 = "B60"
        Case "K13": sbR5 = "B61"
        Case "K14": sbR5 = "B62"
        Case "K15": sbR5 = "B63"
        Case "K16": sbR5 = "B64"
        Case "K17": sbR5 = "B65"
        Case "K18": sbR5 = "B66"
        Case "K19": sbR5 = "B67"
        Case "K20": sbR5 = "B68"
        Case "A1": sbR5 = "B71"
        Case "A2": sbR5 = "B72"
        Case "A3": sbR5 = "B73"
        Case "A4": sbR5 = "B74"
        Case "A5": sbR5 = "B75"
        Case "A6": sbR5 = "B76"
        Case "A7": sbR5 = "B77"
        Case "A8": sbR5 = "B78"
        Case "A9": sbR5 = "B79"
        Case "A10": sbR5 = "B80"
        Case "PS1": sbR5 = "B83"
        Case "PS2": sbR5 = "B84"
        Case "PS3": sbR5 = "B85"
        Case "PS4": sbR5 = "B86"
        Case "PS5": sbR5 = "B87"
        Case "PS6": sbR5 = "B88"
        Case "PS7": sbR5 = "B89"
        Case "PS8": sbR5 = "B90"
        Case "PS9": sbR5 = "B91"
        Case "PS10": sbR5 = "B92"
     
        Case "Cmp1": sbR5 = "B95"
        Case "Cmp2": sbR5 = "B96"
        Case "Cmp3": sbR5 = "B97"
        Case "Cmp4": sbR5 = "B98"
        Case "Cmp5":  sbR5 = "B99"
        Case "Cmp6":  sbR5 = "B100"
        Case "Cmp7":  sbR5 = "B101"
        Case "Cmp8":  sbR5 = "B102"
        Case "Cmp9":  sbR5 = "B103"
        Case "Cmp10": sbR5 = "B104"
        Case "Cmp11": sbR5 = "B107"
        Case "Cmp12": sbR5 = "B108"
        Case "Cmp13": sbR5 = "B109"
        Case "Cmp14": sbR5 = "B110"
        Case "Cmp15": sbR5 = "B111"
     

     End Select
End If

If sbR5 <> "" Then
     Sheets("SBR").Range("BE3") = _
                Sheets("Process Info").Range(sbR5).Value
End If




If Target.Address(0, 0) = "BH4" Then
    
    Select Case Target
      Case "K1": sbr6 = "B49"
        Case "K2": sbr6 = "B50"
        Case "K3": sbr6 = "B51"
        Case "K4": sbr6 = "B52"
        Case "K5": sbr6 = "B53"
        Case "K6": sbr6 = "B54"
        Case "K7": sbr6 = "B55"
        Case "K8": sbr6 = "B56"
        Case "K9": sbr6 = "B57"
        Case "K10": sbr6 = "B58"
        Case "K11": sbr6 = "B59"
        Case "K12": sbr6 = "B60"
        Case "K13": sbr6 = "B61"
        Case "K14": sbr6 = "B62"
        Case "K15": sbr6 = "B63"
        Case "K16": sbr6 = "B64"
        Case "K17": sbr6 = "B65"
        Case "K18": sbr6 = "B66"
        Case "K19": sbr6 = "B67"
        Case "K20": sbr6 = "B68"
        Case "A1": sbr6 = "B71"
        Case "A2": sbr6 = "B72"
        Case "A3": sbr6 = "B73"
        Case "A4": sbr6 = "B74"
        Case "A5": sbr6 = "B75"
        Case "A6": sbr6 = "B76"
        Case "A7": sbr6 = "B77"
        Case "A8": sbr6 = "B78"
        Case "A9": sbr6 = "B79"
        Case "A10": sbr6 = "B80"
        Case "PS1": sbr6 = "B83"
        Case "PS2": sbr6 = "B84"
        Case "PS3": sbr6 = "B85"
        Case "PS4": sbr6 = "B86"
        Case "PS5": sbr6 = "B87"
        Case "PS6": sbr6 = "B88"
        Case "PS7": sbr6 = "B89"
        Case "PS8": sbr6 = "B90"
        Case "PS9": sbr6 = "B91"
        Case "PS10": sbr6 = "B92"
     
        Case "Cmp1": sbr6 = "B95"
        Case "Cmp2": sbr6 = "B96"
        Case "Cmp3": sbr6 = "B97"
        Case "Cmp4": sbr6 = "B98"
        Case "Cmp5": sbr6 = "B99"
        Case "Cmp6": sbr6 = "B100"
        Case "Cmp7": sbr6 = "B101"
        Case "Cmp8": sbr6 = "B102"
        Case "Cmp9": sbr6 = "B103"
        Case "Cmp10": sbr6 = "B104"
        Case "Cmp11": sbr6 = "B107"
        Case "Cmp12": sbr6 = "B108"
        Case "Cmp13": sbr6 = "B109"
        Case "Cmp14": sbr6 = "B110"
        Case "Cmp15": sbr6 = "B111"
     

     End Select
End If

Afficher la suite

A voir également:

Procedure too large
Hiberfil.sys too big - Guide
Too many hops - Forum Mail
Procédure de frigo vide - Forum Loisirs / Divertissements
Taxe foncière pour locataire - Forum Vos droits sur internet
Le point d'entrée de procédure eventsetinformation est introuvable advapi32.dll - Forum Windows

1 réponse

Réponse 1 / 1

NHenry Messages postés 15219 Date d'inscription Statut Modérateur Dernière intervention 365

Il te faut découper ta fonction, par exemple :

SELECT Case Target.Address(0, 0)
Case "BH4":
    SubTraitementBH4 Target
Case "BF4":
    SubTraitementBF4 Target
...
End Select

    Private SubTraitementBH4(Byval Target As Range)
    Select Case Target.Address(0, 0)
 Case "K1": sbr2 = "B49"
        Case "K2": sbR5 = "B50"
        Case "K3": sbR5 = "B51"
        Case "K4": sbR5 = "B52"
        Case "K5": sbR5 = "B53"
        Case "K6": sbR5 = "B54"
        Case "K7": sbR5 = "B55"
        Case "K8": sbR5 = "B56"
        Case "K9": sbR5 = "B57"
        Case "K10": sbR5 = "B58"
        Case "K11": sbR5 = "B59"
        Case "K12": sbR5 = "B60"
        Case "K13": sbR5 = "B61"
        Case "K14": sbR5 = "B62"
        Case "K15": sbR5 = "B63"
        Case "K16": sbR5 = "B64"
        Case "K17": sbR5 = "B65"
        Case "K18": sbR5 = "B66"
        Case "K19": sbR5 = "B67"
        Case "K20": sbR5 = "B68"
        Case "A1": sbR5 = "B71"
        Case "A2": sbR5 = "B72"
        Case "A3": sbR5 = "B73"
        Case "A4": sbR5 = "B74"
        Case "A5": sbR5 = "B75"
        Case "A6": sbR5 = "B76"
        Case "A7": sbR5 = "B77"
        Case "A8": sbR5 = "B78"
        Case "A9": sbR5 = "B79"
        Case "A10": sbR5 = "B80"
        Case "PS1": sbR5 = "B83"
        Case "PS2": sbR5 = "B84"
        Case "PS3": sbR5 = "B85"
        Case "PS4": sbR5 = "B86"
        Case "PS5": sbR5 = "B87"
        Case "PS6": sbR5 = "B88"
        Case "PS7": sbR5 = "B89"
        Case "PS8": sbR5 = "B90"
        Case "PS9": sbR5 = "B91"
        Case "PS10": sbR5 = "B92"
     
        Case "Cmp1": sbR5 = "B95"
        Case "Cmp2": sbR5 = "B96"
        Case "Cmp3": sbR5 = "B97"
        Case "Cmp4": sbR5 = "B98"
        Case "Cmp5":  sbR5 = "B99"
        Case "Cmp6":  sbR5 = "B100"
        Case "Cmp7":  sbR5 = "B101"
        Case "Cmp8":  sbR5 = "B102"
        Case "Cmp9":  sbR5 = "B103"
        Case "Cmp10": sbR5 = "B104"
        Case "Cmp11": sbR5 = "B107"
        Case "Cmp12": sbR5 = "B108"
        Case "Cmp13": sbR5 = "B109"
        Case "Cmp14": sbR5 = "B110"
        Case "Cmp15": sbR5 = "B111"
     

     End Select
If sbR5 <> "" Then
     Sheets("SBR").Range("BE3") = _
                Sheets("Process Info").Range(sbR5).Value
End If
End Sub

Tu peux aussi utiliser un tableau voir une collection, par exemple la fonction d'avant peut se réduire à :

Private SubTraitementBH4(Byval Target As Range)
	dim lCollection as New Collection

	lCollection.Add "B49","K1"
	lCollection.Add "B50","K2"
	lCollection.Add "B51","K3"
...
    
	On Local Error Resume Next
	Sheets("SBR").Range("BE3") = Sheets("Process Info").Range(lCollection(Target.Address(0,0)).Value
End Sub

Tu passes de 54 tests à seulement 1 seul.
De plus, l'initialisation de la liste des correspondances peut être faite de manière globale dans le WorkBook_Open avec la collection en variable publique, comme ça tu initialise à un seul endroit et ensuite, tu ne fais que le test.

Note, je n'ai pas M$ Office sur mon PC, donc le code est tapé directement dans un éditeur de teste.

r4944 Messages postés 122 Date d'inscription Statut Membre Dernière intervention

Bonjour ,
je viens de l' essayer le premier exemple j'ai eu une erreur '' Sub or function not defined ''

NHenry Messages postés 15219 Date d'inscription Statut Modérateur Dernière intervention 365

Avec quel code ?

r4944 Messages postés 122 Date d'inscription Statut Membre Dernière intervention

le premier code

r4944 Messages postés 122 Date d'inscription Statut Membre Dernière intervention

j'ai definit cette fonction a part

 Private Sub TraitementCX4(ByVal Target As Range)
    Select Case Target.Address(0, 0)
        
        
        Case "K1": sbrav = "B49"
        Case "K2": sbrav = "B50"
        Case "K3": sbrav = "B51"
        Case "K4": sbrav = "B52"
        Case "K5": sbrav = "B53"
        Case "K6": sbrav = "B54"
        Case "K7": sbrav = "B55"
        Case "K8": sbrav = "B56"
        Case "K9": sbrav = "B57"
        Case "K10": sbrav = "B58"
        Case "K11": sbrav = "B59"
        Case "K12": sbrav = "B60"
        Case "K13": sbrav = "B61"


     End Select
If sbrav <> "" Then
     Sheets("SBR").Range("CW3") = _
                Sheets("Process Info").Range(sbrav).Value
End If
End Sub

aprés je l'ai appelé a partir de l'autre fonction

Private Sub Worksheet_Change(ByVal Target As Range)



Select Case Target.Address(0, 0)
Case "CX4":
 SubTraitementCX4 Target


End Select




If Target.Address(0, 0) = "X4" Then
    
    Select Case Target
        Case "Educ": range1 = "B7"
        Case "EX1": range1 = "B25"
        Case "EX2": range1 = "B26"
        Case "EX3": range1 = "B27"
        Case "EX4": range1 = "B28"
        Case "EX5": range1 = "B29"
        Case "EX6": range1 = "B30"
        Case "EX7": range1 = "B31"
        Case "EX8": range1 = "B32"
        Case "EX9": range1 = "B33"
        Case "EX10": range1 = "B34"
        Case "A1": range1 = "B71"
        Case "A2": range1 = "B72"
        Case "PS1": range1 = "B73"
        Case "PS2": range1 = "B74"
        Case "AED1": range1 = "B45"
        Case "AED2": range1 = "B46"
     End Select
end if 


.
.
.
.
.
.
.
.
.
.

End If

NHenry Messages postés 15219 Date d'inscription Statut Modérateur Dernière intervention 365

Il ne s'agit pas de code séparés, mais de plusieurs suggestions.
Le premier morceau de code sert à l'appel des subs.
Il te faut faire l'équivalent du 2ième pour chaque Select Case utilisant Target.Address(0,0).

Je n'ai pas pour habitude de fournir du tout cuit, je laisse en général place à la découverte et l'apprentissage.

Discussions similaires

debloquer le code 400 bad request qui s'affiche à google

Problème de 400 Bad Request

400-Bad Request avec Firefox

le frigo ne marche pas....

problème de pixel

Votre réponse

Discussions similaires