imprimé selon condition cellules

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Février 2020

• #2

Bonjour,
Voici un module testé :

VB:

Sub Impression()
For Mois = 20 To 31
    If Sheets("Résultat").Range("D" & Mois) = "a" Then
        Worksheets(Range("A" & Mois).Value).PrintOut
        Range("F" & Mois) = "OK"
    End If
Next Mois
End Sub

J'avais oublié le fichier ...

 

Pièces jointes

• Poste 1--- (V2).xlsm

  691.9 KB · Affichages: 5

Dernière édition: 15 Février 2020

Vote positif 0 Vote négatif

T

TEMAGOULTFARID

XLDnaute Occasionnel

• 15 Février 2020

• #3

merci infiniment,
cependant lorsque je sélectionne la périodicité dans la colonne D20😀31 et que le mois en cours colonne E (orange), il m'imprime systématiquement janvier et février et place le "OK" dans la ligne de janv et non sur la ligne févr.Peut être que je me suis mal exprimé , ce que je souhaite c'est que le système imprime que la période sélectionnée Colonne D du mois en cours avec le "OK" sur la ligne a coté du mois en cours colonne F
Je m’excuse de l'abus sur votre temps et c'est vrillement sympa.Je vous écrirai en Message privé , mon projet, bien a vous

 

Vote positif 0 Vote négatif

T

TEMAGOULTFARID

XLDnaute Occasionnel

• 15 Février 2020

• #4

j'ai oublié , il y a aussi un bug , je vous met le fichier en PJ avec le défaut merci

 

Pièces jointes

• Poste 1---.xlsm

  829.1 KB · Affichages: 3

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Février 2020

• #5

Désolé je n'avais pas compris.
Je l'ai testé, ça marche.
Si vous continuez à avoir l'erreur sur le printout, faites un enregistrement de macros et imprimez. Vous verrez bien quelle est la bonne syntaxe pour votre imprimante.
Sur la mienne ( HP3050A en wifi) le printout marche.

 

Pièces jointes

• Poste 1--- (V4).xlsm

  702 KB · Affichages: 3

Vote positif 0 Vote négatif

T

TEMAGOULTFARID

XLDnaute Occasionnel

• 15 Février 2020

• #6

Bonsoir, j'ai suivie votre conseil et malheureusement ca bug , je vous met en PJ le fichier avec une image du bug merci

 

Pièces jointes

• Poste 1--- (V4).xlsm

  953 KB · Affichages: 5

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Février 2020

• #7

Bonsoir,
La macro recherche une feuille nommée : MP espace 2020 espace No mois. J'ai vérifié ca fonctionne chez moi. Auriez vous un espace derrière le mois ?
Essayez de renommer la page.
De mon coté Je vais rectifier.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Février 2020

• #8

Vos noms de feuilles comportent deux espaces après MP. Pourquoi en avoir mis deux ?
C'est le genre de détail qui fait qu'on peut chercher longtemps un bug.

La PJ devrait fonctionner.

 

Pièces jointes

• Poste 1--- (V5).xlsm

  989.8 KB · Affichages: 13

Vote positif 0 Vote négatif

T

TEMAGOULTFARID

XLDnaute Occasionnel

• 16 Février 2020

• #9

Bonjour,
effectivement 🙄 , je n'avais vu cette erreur grossière,j'ai corrigé dans le module 3 et cela fonctionne tres bien.Vraiment désolé pour cette perte de temps que je vous ai pris.
merci infiniment , vous pouvez pas imaginer a quel point cela va m’être utile.
bien cordialement

 

Vote positif 0 Vote négatif

T

TEMAGOULTFARID

XLDnaute Occasionnel

• 16 Février 2020

• #10

bonsoir, désolé de vous sollicité, je vous rassure cela fonctionne très bien, cependant j'ai oublié de vous dire qu'il y avait une autre condition qui doit prise en compte , c'est le contenu de la cellule B3 après le PM (voir le module 3)Dans cette cellule , un chiffre vient s'incrémenté qui détermine le n° de poste qui est généré lors de la création a partir d'un tableau de bord.J'ai essayé de le faire moi même, mais j'ai pratiquement passé la journée, Désolé encore un poussin qui essaie de prendre son envole.je ne vous cache que je vous re-solliciterais pour un autre fichier qui est lié a celui-ci juste pour une action.Par avance, merci bien cordialement

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 17 Février 2020

• #11

Bonjour,
Alors ça, le matin c'est indigeste !

qu'il y avait une autre condition qui doit prise en compte

Cliquez pour agrandir...

Qui doit être prise en compte pour quoi ?

c'est le contenu de la cellule B3 après le PM

Cliquez pour agrandir...

B3 de quelle feuille ? c'est quoi le PM ?

un chiffre vient s'incrémenté qui détermine le n° de poste qui est généré lors de la création

Cliquez pour agrandir...

Pourquoi ce chiffre doit il s'incrémenter ? A quoi sert il ?

Vous pourriez être un peu plus explicite ? 🙂

 

Vote positif 0 Vote négatif

T

TEMAGOULTFARID

XLDnaute Occasionnel

• 17 Février 2020

• #12

bonjour a vous,
désolé pour votre petit déjeuner ,
PM =Plan de Maintenance.
pour les autres question, je vous met en PJ , un fichier avec explicatif , cela sera plus parlant.
merci beaucoup
bien cordialement

 

Pièces jointes

• explicatif.xlsm

  529.3 KB · Affichages: 8

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 17 Février 2020

• #13

Vraiment, mais vraiment désolé je ne comprend pas :
1- Dans quelle feuille doit être implémentée cette valeur ? La feuille ressemble à Résultat, mais dans Résultat A1:A20 on n'a rien.
2- Qui doit incrémenter ce numéro ?
3- Et quand, à quel moment ?
4- La macro Test du module 3 est appelée par Résultat. Est ce à ce niveau qu'on doit construire cet indice ?

 

Vote positif 0 Vote négatif

T

TEMAGOULTFARID

XLDnaute Occasionnel

• 17 Février 2020

• #14

si , vous chercher un imbécile, il vous écris, je me suis mal exprimer.j'ai du prendre le raccourci le plus long🙁.ce que je souhaite est si possible d'ajouter une conditions la valeur de la cellule A3 dans cette macro que vous m'avez donné sur la ligne en gras.
desolé si je n'ai pas la syntaxe d'un Macro-niste VBA .
Par avance , merci
cordialement

Sub Impression()
Nomfeuille = "MP " & Year(Now()) & " " & Month(Now())
If FeuilleExiste(Nomfeuille) = True Then
Worksheets(Nomfeuille).PrintOut
Range("F" & 19 + Month(Now())) = "OK"
Else
MsgBox ("La feuille " & Nomfeuille & " n'existe pas.")
End If
End Sub
Function FeuilleExiste(Nom)
Dim Feuille As Worksheet
FeuilleExiste = False
For Each Feuille In Worksheets
If Feuille.Name = Nom Then
FeuilleExiste = True
Exit Function
End If
Next Feuille
End Function

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 17 Février 2020

• #15

Plusieurs solutions :

1- Nomfeuille = "MP" & Range("A3") & Year(Now()) & Month(Now())
Ce qui donne MP22202002 comme l'exemple dans l'explicatif.
J'ai pris A3 car c'est B3 dans votre post et A3 dans l'explicatif. Il suffit de changer si faux.

2- Nomfeuille = "MP" & " " & Range("A3") & Year(Now()) & Month(Now())
Ce qui donne MP 22202002 avec l'espace.

Mais attention, cela signifie que vos onglets portent bien ce nom car ils me servent à imprimer la feuille.

 

Vote positif 0 Vote négatif