Formule Excel Fermé

Question

Bonjour, 


J'ai deux questions
1. J'ai une liste deroulante dans chaque cellule de ma colonne G (de G5 à G22) : une fois que toutes ces cellules sont renseignées avec un des choix de ma liste deroulante, je veux un message dans G23 "MAINTENANCE VALIDÉ" 

2. Lorsque G23 Annonce "maintenance validé", mes collones de GàJ se masquent

Merci 
Configuration: Android / Chrome 80.0.3987.149

via55 · Answer

Bonjour

1) Pour le message en G23 une formule =SI(NBVAL(G5:G22)=18;"MAINTENANCE VALIDÉE";"")

2) Pour le masquage des colonnes il faut une macro
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("G23") = "MAINTENANCE VALIDÉE" Then
Columns("G:J").Select
    Selection.EntireColumn.Hidden = True
    End If
End Sub
dlmnt
Via

PapyLuc51 · Answer

Bonjour

Pour le 1. cette formule

=SI(NB.VIDE(G5:G22)=0;"MAINTENANCE VALIDÉE";"")

Pour le 2. Il faut une macro pour un masquage automatique.

Sinon sélectionner en cliquant en haut sur la tête des colonnes (clic sur G et glisser vers J en maintenant le clic de la souris) puis clic droit et masquer ; c'est aussi bien.

Cordialement

ccm81 · Answer

Bonjour

Pour le masquage, il va falloir passer par une macro
 https://www.cjoint.com/c/JEsi0TjdsWB

Sinon en G23 
=SI(NBVAL(G5:G22)=18;"maintenance validée";"")

Cdlmnt

ccm81 · Answer

Un essai 
https://mon-partage.fr/f/TEkPf7G7/

Cdlmnt

ccm81 · Answer

Bonjour

Tu colles ce code dans le module de la feuille à traiter

Option Explicit

Const codeb = 7     ' première colonne plage à traiter
Const cofin = 131   ' denière colonne  EA
Const lideb = 5     ' première ligne plage à traiter
Const lifin = 22    ' dernière ligne

Const nbco = 4      ' nbre colonnes à masquer par plage

Private Sub Worksheet_Change(ByVal Target As Range)
Dim co As Long, li As Long, plage As Range, co1 As String, co2 As String, adr As String
If Target.Count > 1 Then Exit Sub
co = Target.Column
li = Target.Row
adr = Cells(li, co).Address
co1 = Split(adr, "$")(1)
adr = Cells(li, co + nbco - 1).Address
co2 = Split(adr, "$")(1)
If (co - codeb) Mod nbco = 0 Then
  If li >= lideb And li <= lifin Then
    Set plage = Range(Cells(lideb, co), Cells(lifin, co))
    If Not Intersect(Target, plage) Is Nothing Then
      If Application.WorksheetFunction.CountBlank(plage) = 0 Then
        Cells(lifin + 1, co).Value = "MAINTENANCE VALIDEE"
        Application.Wait (Now + TimeValue("0:00:3"))    ' attend 3s avant de masquer
        Columns(co1 & ":" & co2).EntireColumn.Hidden = True
      End If
    End If
  End If
End If
End Sub

Une fois la première colonne de la plage (de 18 lignes et 4 colonnes) à traiter est remplie, la macro se lancera
Si les adresses ne sont plus les mêmes dans ton fichier, tu modifies les valeurs des constantes (Const) en début de code
https://mon-partage.fr/f/ySZVPThA/

Cdlmnt

KarlyneLoriau · Answer

Merci ça marche !! Par contre j'ai ce même tableau, dans plusieurs feuilles différentes, et je n'arrive pas à appliquer ce code dans chacune des feuilles. Comment faire ? 

Merci

ccm81 · Answer

Bonjour

Il te suffit (en principe) de recopier le code dans les modules des feuilles à traiter
https://mon-partage.fr/f/7x4LrWHe/

Cdlmnt

ccm81 · Answer

De rien

Non cela ne fonctionne pas 
Avec mon fichier ou avec le tien ?

Cdlmnt

ccm81 · Answer

peut être un pb d'adresse de début tableau
Const codeb = 11     ' première colonne plage à traiterConst lideb = 5     ' première ligne plage à traiterConst lifin = 22    ' dernière ligne
sinon envoies ton fichier avec trois feuilles à traiter

Cdlmnt

KarlyneLoriau · Answer

J'ai pas réussi, je vous ai copier mon tableau entier.
https://mon-partage.fr/f/9vlZV8cf/

Je souhaite appliquer la macro à toutes les feuilles qui suivent "balance" 

Merci encore vous me sauvez

ccm81 · Answer

Le pb vient du fait que la dernière ligne n'est pas la même dans toutes les feuilles
Const lifin = 22    ' dernière ligne
Donc deux solutions (à toi de choisir)
S1. Tu modifies la valeur de lifin dans chacun des modules (et c'est fini)
S2. Dans mon retour, je m'y suis pris autrement pour ne pas avoir à faire la manip
Je récupère la valeur de lifin (qui devient une variable)  en recherchant dans les colonnes "D:F" le mot "Commentaire" 
je t'ai modifié le code dans Balances, Zebra et Soudeuses, qu'il te faudra recopier dans les autres modules (pas sur que ça te prenne moins de temps !)
https://mon-partage.fr/f/VJyoCm1P/

Cdlmnt

ccm81 · Answer

De rien

Si c'est fini, peux tu mettre le sujet à résolu (en haut dans ton premier message)

Cdlmnt

ccm81 · Answer

No problemo !

Formule Excel

13 réponses

Discussions similaires