Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

l'ordre dans Private Sub

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Ilino
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Ilino

XLDnaute Barbatruc
Bonjour Forum
j'ai une question d'ordre générale : comment faire pour séparer les code dans la meme Private Sub Worksheet_Change ( exemple) ?
pourquoi cette question ??
je suis entrain de créer des codes et au En même temps je rajoute ces codes dans la même Private sub
y a t il une facon de faire l-ordre dans la Private sub ???
Grazie
 
Trier par date Trier par votes
Re : l'ordre dans Private Sub

Bonjour Ilino,

voici un exemple simple
l'ordre d'écriture du code n'a pas d'importance
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
'
' ici le code qui gère le changement en A1:A10
'
Exit Sub
End If

If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
'
' ici le code qui gère le changement en B1:B10
'
Exit Sub
End If

If Not Intersect(Target, Range("C1:C10")) Is Nothing Then
'
' ici le code qui gère le changement en C1:C10
'
Exit Sub
End If

End Sub
à+
Philippe
 
Dernière édition:
Vote positif 0 Vote négatif
Re : l'ordre dans Private Sub

Bonjour phlaurent55

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

'.....1 PARTIE

If Intersect(Target, [C6,C38,C56,E56,C90,C106,C116,F116,F170,H170,C294,F294,C372,F384,C42,C414]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Rows("40:67").Hidden = [C38] <> "Oui"
If [C56] <> "Oui" Then Rows("58:67").Hidden = True
If [E56] < 5 Then _
  Rows(68).Offset(2 * [E56] - 10).Resize(10 - 2 * [E56]).Hidden = True

'If [C38] = "Pas de Jonction" Or [C38] = "" Then CommandButton4.Visible = True And CommandButton5.Visible = True 'visible
Rows("8:39").Hidden = [C6] = "Non" Or [C6] = ""
Rows("78:111").Hidden = [C38] = "Pas de Jonction" Or [C38] = ""
Rows("92:95").Hidden = [C90] = "Non" Or [C90] = ""
Rows("108:111").Hidden = [C106] = "Non" Or [C106] = ""

Rows("118:157").Hidden = [C116] <> "Oui"
If [F116] < 5 Then _
  Rows(158).Offset(8 * [F116] - 40).Resize(40 - 8 * [F116]).Hidden = True
  
Rows("162:167").Hidden = [C38] = "Pas de Jonction" Or [C38] = ""

Rows("172:291").Hidden = [F170] <> "Oui"
If [H170] < 60 Then _
  Rows(292).Offset(2 * [H170] - 120).Resize(120 - 2 * [H170]).Hidden = True


Rows("296:315").Hidden = [C294] <> "Oui"
If [F294] < 10 Then _
  Rows(316).Offset(2 * [F294] - 20).Resize(20 - 2 * [F294]).Hidden = True

'Target.Select 'facultatif

Rows("344:393").Hidden = [C38] = "Pas de Jonction" Or [C38] = ""


Rows("374:377").Hidden = [C372] <> "Oui"

Rows("386:393").Hidden = [F384] <> "Oui"

Rows("416:419").Hidden = [C414] <> "Oui"




'....... 2 PARTIE

If Target.Address <> "$H$16" Then Exit Sub
Me.CommandButton8.Visible = Target.Value > 0

'Rows("344:377").Hidden = [C42] <> "Pylône ( Coupure )" Or [C42] <> "Pylône ( Piqûre)" Or [C42] <> "Poteau"
'[C38] = "Pas de Jonction" Or [C38] = "" Or


'.....3 PARTIE

If  Intersect(Target, Range("C72,C82,C98")) Is Nothing Then Exit Sub
If Range("C72") <> "Mixte" Or Range("C82") = "" Or Range("C98") = "" Or (Range("C82") <> Range("C98")) Then Exit Sub
    If MsgBox(" Attention , La nature de la liaison complète ( SAR_SDR) est" & Chr(10) _
        & Chr(10) & "   ..........................   " & [C72] & "   ..........................   " _
        & Chr(10) & "" & Chr(10) & "   Verifier les réponses C et D   ", vbYesNo, " Bonjour " & Application.UserName) = vbNo Then
        Exit Sub
    Else
        Range("C82:D82").ClearContents
        Range("C98:D98").ClearContents
    End If







End Sub

je veux séparer ces 3 parties mais ça n'a pas fonctionnée
GRAZIE
 
Dernière édition:
Vote positif 0 Vote négatif
Re : l'ordre dans Private Sub

Re,

dans le code ci-dessus, il y a 2 procédures différentes

1- Private Sub Worksheet_Change(ByVal Target As Range)
2- Private Sub Worksheet_SelectionChange(ByVal Target As Range)

...... normal que ça ne réponde pas à tes attentes 🙁

à+
Philippe

Edit: ....... le temps que je poste ma réponse, la question a été modifiée et le code présenté n'est plus le même 😡
 
Dernière édition:
Vote positif 0 Vote négatif
Re : l'ordre dans Private Sub

Re,

...... sans voir le fichier:

Application.ScreenUpdating = False au début de la première partie

n'est jamais remis à True avant le End Sub final

à+
Philippe
 
Vote positif 0 Vote négatif
Re : l'ordre dans Private Sub

Re, bonjour Philippe,

place des "not" devant les "if", enlève les "exix sub" et rajoute des "end if" à la fin :
Code: 
If  Not Intersect(Target, Range("C72,C82,C98")) Is Nothing Then 
If Range("C72") <> "Mixte" Or Range("C82") = "" Or Range("C98") = "" Or (Range("C82") <> Range("C98")) Then Exit Sub
    If MsgBox(" Attention , La nature de la liaison complète ( SAR_SDR) est" & Chr(10) _
        & Chr(10) & "   ..........................   " & [C72] & "   ..........................   " _
        & Chr(10) & "" & Chr(10) & "   Verifier les réponses C et D   ", vbYesNo, " Bonjour " & Application.UserName) = vbNo Then
        Exit Sub
    Else
        Range("C82:D82").ClearContents
        Range("C98:D98").ClearContents
    End If

End If

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : l'ordre dans Private Sub

Bonjour à tous.


En suivant la même idée que celle de Pierrot93, peut-être comme ceci ?​
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)

'.....1 PARTIE

    If Not Intersect(Target, [C6,C38,C56,E56,C90,C106,C116,F116,F170,H170,C294,F294,C372,F384,C42,C414]) Is Nothing Then
        Application.ScreenUpdating = False
        Rows("40:67").Hidden = [C38] <> "Oui"
        If [C56] <> "Oui" Then Rows("58:67").Hidden = True
        If [E56] < 5 Then _
          Rows(68).Offset(2 * [E56] - 10).Resize(10 - 2 * [E56]).Hidden = True

'If [C38] = "Pas de Jonction" Or [C38] = "" Then CommandButton4.Visible = True And CommandButton5.Visible = True 'visible
        Rows("8:39").Hidden = [C6] = "Non" Or [C6] = ""
        Rows("78:111").Hidden = [C38] = "Pas de Jonction" Or [C38] = ""
        Rows("92:95").Hidden = [C90] = "Non" Or [C90] = ""
        Rows("108:111").Hidden = [C106] = "Non" Or [C106] = ""

        Rows("118:157").Hidden = [C116] <> "Oui"
        If [F116] < 5 Then _
          Rows(158).Offset(8 * [F116] - 40).Resize(40 - 8 * [F116]).Hidden = True
 
        Rows("162:167").Hidden = [C38] = "Pas de Jonction" Or [C38] = ""

        Rows("172:291").Hidden = [F170] <> "Oui"
        If [H170] < 60 Then _
          Rows(292).Offset(2 * [H170] - 120).Resize(120 - 2 * [H170]).Hidden = True

        Rows("296:315").Hidden = [C294] <> "Oui"
        If [F294] < 10 Then _
          Rows(316).Offset(2 * [F294] - 20).Resize(20 - 2 * [F294]).Hidden = True

'Target.Select 'facultatif

        Rows("344:393").Hidden = [C38] = "Pas de Jonction" Or [C38] = ""

        Rows("374:377").Hidden = [C372] <> "Oui"

        Rows("386:393").Hidden = [F384] <> "Oui"

        Rows("416:419").Hidden = [C414] <> "Oui"

    End If

'....... 2 PARTIE

    If Target.Address = "$H$16" Then
        Me.CommandButton8.Visible = Target.Value > 0

'Rows("344:377").Hidden = [C42] <> "Pylône ( Coupure )" Or [C42] <> "Pylône ( Piqûre)" Or [C42] <> "Poteau"
'[C38] = "Pas de Jonction" Or [C38] = "" Or

    End If

'.....3 PARTIE

    If Not Intersect(Target, Range("C72,C82,C98")) Is Nothing Then
        If Not (Range("C72") <> "Mixte" Or Range("C82") = "" Or Range("C98") = "" Or (Range("C82") <> Range("C98"))) Then
            If MsgBox(" Attention , La nature de la liaison complète ( SAR_SDR) est" & Chr(10) _
                & Chr(10) & "   ..........................   " & [C72] & "   ..........................   " _
                & Chr(10) & "" & Chr(10) & "   Verifier les réponses C et D   ", vbYesNo, " Bonjour " & Application.UserName) <> vbNo Then
                Range("C82:D82").ClearContents
                Range("C98:D98").ClearContents
            End If
    End If

End Sub
Sans garantie, car je n'ai pas la moindre idée de ce que ce code doit faire...​


ROGER2327
#6887

Vendredi 6 Haha 141 (Sainte Tourte, lyrique et Sainte Bévue, sociologique - fête Suprême Quarte)
20 Vendémiaire An CCXXII, 6,2352h - pressoir
2013-W41-5T14:57:52Z
 
Vote positif 0 Vote négatif
Re : l'ordre dans Private Sub

Bonjour
donc la règle d'une maniéré générale est la suivante
1. place des "not" devant les "if"
2. enlève les "exix sub" si Elles existent
3. et rajoute des "end if" à la fin
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
'
' ici le code qui gère le changement en A1:A10
'
End If

If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
'
' ici le code qui gère le changement en B1:B10
'
End If

If Not Intersect(Target, Range("C1:C10")) Is Nothing Then
'
' ici le code qui gère le changement en C1:C10
'
End If

End Sub
N'est ce pas ???😱
 
Vote positif 0 Vote négatif
Re : l'ordre dans Private Sub

Re,
peut etre c'est une question idiote ????
dans la partie 2 pourquoi tu n'as pas ajouté le "Not" devant If??????😕😱🙁
 
Vote positif 0 Vote négatif
Re : l'ordre dans Private Sub

Re,

en l'absence de Roger :
Re,
peut etre c'est une question idiote ????
dans la partie 2 pourquoi tu n'as pas ajouté le "Not" devant If??????
Cliquez pour agrandir...
il n'y a pas de question idiote.
c'est une autre façon de tester, si une seule cellule.... souvent plusieurs possibilités en vba....
 
Vote positif 0 Vote négatif
Re : l'ordre dans Private Sub

Re...

Ilino à dit:
Re,
peut etre c'est une question idiote ????
dans la partie 2 pourquoi tu n'as pas ajouté le "Not" devant If??????😕😱🙁
Cliquez pour agrandir...
... parce que j'ai remplacé
Target.Address <> "$H$16"​
par
Target.Address = "$H$16"​


ROGER2327
#6888

Vendredi 6 Haha 141 (Sainte Tourte, lyrique et Sainte Bévue, sociologique - fête Suprême Quarte)
20 Vendémiaire An CCXXII, 6,7119h - pressoir
2013-W41-5T16:06:31Z
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

O
  • Question Question
XL 2016 [RÉSOLU] Charger une macro dés l'ouverture d'Excel
Réponses
8
Affichages
215
Dudu2
W
  • Résolu(e)
XL 2019 Cacher le signe de retour à la ligne dans une ListBox d'Userform
Réponses
5
Affichages
208
Webperegrino
W
N
  • Question Question
Autres comment effectuer une recherche ordre
2
Réponses
27
Affichages
774
n_turf
N
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
335
patricko-13
P
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
319
Nico Gre
N
  • Résolu(e)
XL 2016 Macros Généralités
Réponses
4
Affichages
246
sylvanu
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
Y
  • Résolu(e)
XL 2016 Calculs automatique XO pour des valeurs dans un tableau
Réponses
3
Affichages
141
dysorthographie
  • Question Question
Autres Séquenceur (Timer) dans autre instance d'Excel
Réponses
5
Affichages
453
Dranreb
U
  • Question Question
Autres [RÉSOLU] Peut-on faire une macro qui met une seule macro en commentaires puis le contraire!!!
2 3
Réponses
30
Affichages
2 K
un internaute
U
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
363
Piment
P
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
333
PRy
P
  • Résolu(e)
XL 2021 Temps réel d'éxécution macro
Réponses
3
Affichages
258
treza88
S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
521
vgendron
M
  • Question Question
Autres remplir auto. l'objet de l'email avec nom PJ dans Outlook (et si pas de pj alors aucun objet)
2
Réponses
29
Affichages
1 K
TooFatBoy
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
708
jeff1494
E
  • Résolu(e)
Microsoft 365 Private Sub Worksheet_Change ne fonctionne pas
Réponses
5
Affichages
635
Englobe
E
Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
550
youguybass
Y
  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
676
Etoto
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…