Discussion :

[amomo]

Bonjour à tous,

Je m'excuse d'avance car je sais que des sujets similaires ont été postés dans le passé, mais mon piètre niveau en VBA rend difficile l'adaptation du code que j'ai pu lire dans ces topics.

Je travaille actuellement sur un fichier dans lequel j'automatise au maximum un fichier excel sur lequel les commerciaux de mon entreprise font leurs devis.

Je suis ennuyé avec un cas en particulier: j'ai un document excel dans lequel les commerciaux peuvent indiquer par OUI ou NON s'ils souhaitent inclure dans le devis une passerelle de maintenance (colonne C):
Leurs devis peut porter sur plusieurs éléments, et la décision de OUI ou NON concernant la passerelle doit être répétée à chaque ligne.

S'ils décident d'inclure une passerelle (par le choix de "OUI"), ils doivent renseigner les 5 colonnes D E F G H, sinon ces mêmes colonnes doivent être bloquées.
Par exemple, j'ai réussi avec validation de donnée et l'option personnalisé, à autoriser le renseignement de D2 E2 F2 G2 H2 si C2="OUI".
Cependant si je décide de changer C2 et mettre "NON", alors la valeur que j'ai renseignée ne sera pas effacée automatiquement alors qu'elle ne doit pas être prise en compte par la suite.

En résumé, j'aimerais comprendre comment automatiquement et simultanément:

1) bloquer les cellules de chaque ligne si la cellule correspondante en C="NON"
exemple: si C5="NON", alors D5 E5 F5 G5 H5 doivent être verrouillées

2) débloquer les cellules de chaque ligne où C est égale à "OUI", de manière à ce qu'elles puissent être renseignées manuellement
exemple: si C7="OUI", alors je peux saisir des chiffres dans D7 E7 F7 G7 H7

3) réinitialiser les valeurs de la ligne correspondante si la cellule en C passe de "OUI" à "NON"
exemple: si j'avais C3="OUI" et que je fais passer C3 à "NON", que toutes les valeurs que j'avais pu saisir en D3 E3 F3 G3 H3 s'effacent et que les D3 E3 F3 G3 H3 se verrouillent

Voici mon fichier excel:

ProblemeExcel.xlsmProblemeExcel.xlsm


Amomo

[edelweisseric]

Bonsoir à toutes et tous
Bonsoir amomo

Rapidement et si j'ai compris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim test As Integer
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveCell.Column = 3 Then
 
    ActiveSheet.Unprotect
 
    If test = 1 Then test = 0: Exit Sub
 
    If test = 2 Then
        test = 0
            Range("D" & Target.Row).Locked = True
            Range("D" & Target.Row).FormulaHidden = False
            ActiveSheet.Protect
        Exit Sub
    End If
 
    If Cells(Target.Row, 3) = "OUI" Then
        test = 1
        Range("D" & Target.Row & ":H" & Target.Row) = 3
    Else
        test = 2
        Range("D" & Target.Row & ":H" & Target.Row) = ""
    End If
 
End If
 
End Sub

A adapter

Eric

[unparia]

Bonjour
Je choisirais personnellement d'éviter ainsi la protection, pour un résultat tout aussi efficace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 3 And UCase(Target.Text) <> "OUI" Then
    Range("D" & Target.Row, "H" & Target.Row).ClearContents
 End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Select Case Target.Column
  Case 4 To 8
    If UCase(Range("C" & Target.Row).Text) <> "OUI" Then
      Target.Offset(0, -1).Select
    End If
  End Select
End Sub

Avec un avantage (cellules également inaccessibles si rien ou autre chose que "OUI" en C).

[edelweisseric]

Bonjour

Merci unparia

On voit bien que je n'ai pas encore 6 étoiles

Eric

[amomo]

Bonjour
Je choisirais personnellement d'éviter ainsi la protection, pour un résultat tout aussi efficace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 3 And UCase(Target.Text) <> "OUI" Then
    Range("D" & Target.Row, "H" & Target.Row).ClearContents
 End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Select Case Target.Column
  Case 4 To 8
    If UCase(Range("C" & Target.Row).Text) <> "OUI" Then
      Target.Offset(0, -1).Select
    End If
  End Select
End Sub

Avec un avantage (cellules également inaccessibles si rien ou autre chose que "OUI" en C).

Bonjour à tous les deux,

merci pour vos réponses, vous me faites gager un temps incroyable !
Il y a juste une petite chose qui ne fonctionne pas encore comme je le souhaite: quand je passe de "OUI" à "NON", j'aimerais que les cellules de la ligne soient reset à "".
en ce moment; quand je passe de oui à non, la valeur que j'avais saisie quand j'avais oui reste dans les cases

Amomo

[unparia]

Il y a juste une petite chose qui ne fonctionne pas encore comme je le souhaite: quand je passe de "OUI" à "NON", j'aimerais que les cellules de la ligne soient reset à "".

Tu n'as donc pas appliqué rigoureusement mon code (qui fait cela).

[amomo]

Tu n'as donc pas appliqué rigoureusement mon code (qui fait cela).

Bonjour !

C'est étonnant parce que je l'ai copié collé pourtant (j'ai un peu honte de l'avouer; il faut vraiment que je me mettre à l'apprentissage du VBA...)

[unparia]

Merci pour le pouce rouge.
Je vais donc te rappeler ce que tu as écrit :

j'ai un document excel dans lequel les commerciaux peuvent indiquer par OUI ou NON

et qui fait que ce OUI ou ce NON ne sont pas le résultat de formules, mais de saisies et que dans ces conditions, l'évènement Change est forcément déclenché (et mon code avec).
Sur ce -->> Bye.

[Pierre Fauconnier]

Salut.

Tu dois mettre le code qui t'a été fourni dans le module de la feuille concernée, car c'est du code évènementiel qui sera déclenché sur une modification d'une cellule. Tu trouveras les modules de feuille dans l'arborescence de ton projet VBA (un peu plus haut que le module où tu l'as copié).

Mais évidemment, si on ne te le dis pas, tu ne sais pas le sucer de ton pouce...

[amomo]

Merci pour le pouce rouge.
Je vais donc te rappeler ce que tu as écrit :

et qui fait que ce OUI ou ce NON ne sont pas le résultat de formules, mais de saisies et que dans ces conditions, l'évènement Change est forcément déclenché (et mon code avec).
Sur ce -->> Bye.

Re !
Je ne t'ai pas mis de pouce rouge Unparia !
Au contraire je te remercie pour ton aide qui m'est très utile, d'ailleurs je t'ai mis un pouce vert
J'ai bien compris que les OUI et NON sont les résultats de ma saisie sur le tableur excel. Le code macro s'exécute en arrière plan pour permettre tout ce qu'on s'est dit dans le début du topic.

Pierre, je sais pour le coup, j'ai mis ça dans un module (je suis débutant mais j'ai quand même des bases )
Mon classeur est enregistré pour gérer les macros aussi, mais c'est étonnant, la formule ne fonctionne pas sur mon excel.
La saisie est "parfois" empêchée quand je mets NON.

J'espère que je vais finir par trouver le problème !

[Pierre Fauconnier]

Eventuellement, teste en mode debug.

Ce que j'ai dit sur l'endroit où mettre le code et ce que je dis ici, ce n'est pas pour te paraître offensant, mais il se pourrait qu'il n'y ait pas "OUI" ou "oui" dans la cellule, mais "OUI ", par exemple (ne ris pas, ça arrive bien plus souvent que tu pourrais le penser )...

[amomo]

C'est incroyable ça vient de marcher!
Apparemment la raison est qu'il y avait un espace après le premier End Sub !
Ou alors c'est de la magie !
En tout cas merci beaucoup, vous m'avez sauvé la vie

[unparia]

Bonjour Pierre
Mon petit doigt me dit qu'il n'est également pas impossible qu'il ait inhibé les évènements, à un moment ou à l'autre (et dans ce cas, ma foi, ils n'interviennent plus ..)
Ou encore (sait-on jamais ?) qu'il fasse ses tests en mode création et non exécution.

Mais on va y voir clair :
A amomo : Ajoute cette ligne à la procédure selectionchange

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 MsgBox "coucou" ' ---------------------------------------------------CETTE LIGNE
 Select Case Target.Column
  Case 4 To 8
    If UCase(Range("C" & Target.Row).Text) <> "OUI" Then
      Target.Offset(0, -1).Select
    End If
  End Select
 End Sub

Que se passe-t-il en cliquant sur n'importe quelle cellule de la feuille concernée ? -->> réponse ?

[amomo]

Bonjour Pierre
Mon petit doigt me dit qu'il n'est également pas impossible qu'il ait inhibé les évènements, à un moment ou à l'autre (et dans ce cas, ma foi, ils n'interviennent plus ..)

Que fait exactement cette ligne de code : Target.Offset(0, -1).Select ?

[amomo]

Bonjour Pierre
Mon petit doigt me dit qu'il n'est également pas impossible qu'il ait inhibé les évènements, à un moment ou à l'autre (et dans ce cas, ma foi, ils n'interviennent plus ..)
Ou encore (sait-on jamais ?) qu'il fasse ses tests en mode création et non exécution.

Mais on va y voir clair :
A amomo : Ajoute cette ligne à la procédure selectionchange

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 MsgBox "coucou" ' ---------------------------------------------------CETTE LIGNE
 Select Case Target.Column
  Case 4 To 8
    If UCase(Range("C" & Target.Row).Text) <> "OUI" Then
      Target.Offset(0, -1).Select
    End If
  End Select
 End Sub

Que se passe-t-il en cliquant sur n'importe quelle cellule de la feuille concernée ? -->> réponse ?

Alors ici j'ai un coucou qui s'affiche quand je change mes NON à OUI, et ensuite je peux compléter mon tableau sans problèmes, mais à chaque fois que je valide la saisie d'un caractère, ça me dit "coucou" ^^

[unparia]

Apparemment la raison est qu'il y avait un espace après le premier End Sub !

Un espace dans le code ? --->> Rien à voir !
Je crois plutôt que tu étais en mode création et non exécution

[unparia]

mais à chaque fois que je valide la saisie d'un caractère, ça me dit "coucou" ^^

tu peux maintenant la supprimer, cette ligne (qui n'était là que pour tester).

[amomo]

tu peux maintenant la supprimer, cette ligne (qui n'était là que pour tester).

j'ai une dernière question, histoire d'évoluer dans un environnement luxueux
Lorsque NON est sélectionné, est ce que je peux colorer en noir les cases on remplissables ?

Merci d'avance

Amomo

[Pierre Fauconnier]

Que fait exactement cette ligne de code : Target.Offset(0, -1).Select ?

L'objet Target dont il est question est celui qui est passé comme argument à la procédure (Private Sub Worksheet_SelectionChange(ByVal Target As Range) et correspond à la plage qui est modifiée (plage <> cellule => si modification de plusieurs cellules en même temps, la macro proposée par Jacques pourrait avoir un résultat inattendu). Offset veut dire déplacement, et dans Excel, on déplace d'abord par ligne puis par colonne. Cela veut dire que si on modifie une cellule des colonnes D à H, on va se décaler de 0 lignes et d'une colonne vers la gauche. Si tu es en G8 pour modifier, tu vas te retrouver en F8

j'ai une dernière question, histoire d'évoluer dans un environnement luxueux
Lorsque NON est sélectionné, est ce que je peux colorer en noir les cases on remplissables ?

Amomo

Il va falloir modifier légèrement le code de l'évènement Change pour incluse la clause ELSE dans le bloc IF. L'idée est de colorer en noir (ça va être très moche) D:H si NON en C, et de supprimer la couleur de fond en D:H si OUI en C

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 3 Then
    If UCase(Target.Text) <> "OUI" Then
      Range("D" & Target.Row, "H" & Target.Row).ClearContents
      Range("D" & Target.Row, "H" & Target.Row).Interior.Color = vbBlack
    Else
      Range("D" & Target.Row, "H" & Target.Row).Interior.Color = xlNone
    End If
 End If
End Sub

[amomo]

Salut Pierre, désolé pour ma réponse tardive !
Je te remercie pour les infos, tout est clair et tout marche comme sur des roulettes !

A très bientôt,

amomo