Discussion :

[stageinfo]

Bonjour à tous et à toutes, je souhaiterai créer une macro me permettant d'imprimer une facture à condition que la case Total ( bleu)ne soit pas vide!
Probleme , c'est ma premier macro, et je n'ai aucune idée de comment faire j'ai tente qque chose qui me ramene à une erreur.

je suis nouveau sur le forum et j'apprecierai votre aide, veuillez excuser mon faible niveau dans le domaine je debute

Merci d'avance pour votre aide !

[halaster08]

Bonjour,

Bienvenue sur le forum.

Je te conseille la lecture de ceci: http://www.developpez.net/forums/d84...s-discussions/

Poste plutôt ton code (avec la balise #), avec l'endroit précis où l'erreur se produit et la description de l'erreur

[Menhir]

http://www.developpez.net/forums/d84...s-discussions/

Tu devrais plutôt présenter ton code.
http://club.developpez.com/regles/#LIII-E

[stageinfo]

okok Excusez moi

Code :

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

1
2
3
4
5
6
7
Sub MacroImpres()
     If Sh.Range("facture!k29") <> "" Then
        Exit Sub
'   Else ActiveSheet.PrintOut Copies:=1, Collate:=True
'
  End If
End Sub

C'est mieux ?

[halaster08]

C'est déjà mieux

Code :

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

Sh.Range("facture!k29")

D'où sort tu ce code? que représente "sh" ?
Si tu veux pointer vers la cellule K29 de la feuille facture utilise ceci

Code :

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

sheets("facture").range("K29")

[stageinfo]

Aucune idée ça devrait etre un diminutif de ""sheets" surement ..
ok merci !
Mon problème est que la case soit vide ou pas la macro prend fin directement, elle ne prend pas en compte le sinon de la ligne suivante.
auriez vous une explication ou une aide svp ?

[Menhir]

auriez vous une explication ou une aide svp ?

Est-ce que tu as lu mon message ?

[Menhir]

Quand tu copies une portion de code, essaye de la comprendre.

Je pense que tu as du reprendre ta ligne If dans un autre code.
Elle utilise une variable (Sh) mais comme tu n'as pas repris le reste du code, cette variable n'est pas renseignée.
Ce qui doit certainement te générer une erreur à l'exécution. Tu aurais pu l'indiquer dans ta demande avec la désignation du message.

Remplace cette ligne par :

Code :

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

     If WorkSheets("facture").Range("k29").Value <> "" Then

Et supprime le Exit Sub et le Else.
Bin oui... si j'ai bien compris, tu veux imprimer si la case n'est pas vide. Or, si tu lis ton code, si la case n'est pas vide (<>""), tu demandes de quitter le code (Exit Sub) ce qui est le contraire de ce que tu veux.

En plus, ta condition me semble étrange : une case total qui peut être vide.
Il ne faut pas confondre "vide" et "nul".

[miandry_rabe]

Tu pourrais aussi donner un nom à la cellule dédiée au total pour ne pas rectifier le code à chaque fois que tu supprimes ou ajoute une ligne/colonne

Code :

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

1
2
3
4
5
6
7
Sub MacroImpres()
     If Sh.Range("Total_Facture") <> "" Then 'Total_Facture est le nom donné à la cellule k29 dans la feuille facture (gestionnaire de nom)
        Exit Sub
'   Else ActiveSheet.PrintOut Copies:=1, Collate:=True
'
  End If
End Sub