Formule Excel

No problemo !

De rien

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

Cdlmnt

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

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

peut être un pb d'adresse de début tableau

Const codeb = 11     ' première colonne plage à traiter
Const lideb = 5     ' première ligne plage à traiter
Const lifin = 22    ' dernière ligne

sinon envoies ton fichier avec trois feuilles à traiter

Cdlmnt

De rien

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

Cdlmnt

Bonjour

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

Cdlmnt

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

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

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

Cdlmnt

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

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

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