Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel macro... dure, dure !!!

macro... dure, dure !!!

5 réponses
Avatar
cris570
Salut à tous et toutes,
J'ai créer avec votre aide une macro, pour imprimer une devis cela
fonctionne , merci à Ru-Th et RaMa.
Mais je voudrais aussi imprimer une autre feuille si mon devis est égal ou
supérieur à 40000 euros.
J'ai procédé ainsi, mais cela ne fonctionne pas !!!
Comment dois-je l'incorporer à ma macro, car je l'ai placé sous cette forme
et cela ne fonctionne pas :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If ("$H$72") >= 40000 Then
End If
If Target.Address = "$M$75" Then
Cancel = True
Sheets("Edition devis").PrintOut
MsgBox "Impression en cours"
End If
End Sub

Merci
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ChrisV
Bonjour Cris570,

Mais je voudrais aussi imprimer une autre feuille si mon devis...


Pas sû d'avoir bien saisi...? Tu désires imprimer 2 feuilles du devis
seulement si le montant dudit devis est >= à 40000, ou bien ne pouvoir
imprimer le devis que si le montant est >= à 40000 ?
Dans l'affirmative...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Range("H72").Value < 40000 Then Exit Sub
If Target.Address = "$M$75" Then
Cancel = True
Sheets("Edition devis").PrintOut
MsgBox "Impression en cours"
End If
End Sub


ChrisV


"cris570" a écrit dans le message de news:

Salut à tous et toutes,
J'ai créer avec votre aide une macro, pour imprimer une devis cela
fonctionne , merci à Ru-Th et RaMa.
Mais je voudrais aussi imprimer une autre feuille si mon devis est égal ou
supérieur à 40000 euros.
J'ai procédé ainsi, mais cela ne fonctionne pas !!!
Comment dois-je l'incorporer à ma macro, car je l'ai placé sous cette
forme
et cela ne fonctionne pas :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If ("$H$72") >= 40000 Then
End If
If Target.Address = "$M$75" Then
Cancel = True
Sheets("Edition devis").PrintOut
MsgBox "Impression en cours"
End If
End Sub

Merci



Avatar
cris570
Imprimer le devis (Feuille: Edition devis), quel que soit le montant, ce que
ma macro actuelle fait, et imprimer une autre page supplémentaire si le
devis est égal ou supérieur à 40000 euros (Feuille : Check-list).
Avatar
ChrisV
Re,

Non testée, un truc du genre...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Address = "$M$75" Then
Cancel = True
Sheets("Edition devis").PrintOut
If [H72] >= 40000 Then Sheets("Check-list").PrintOut
MsgBox "Impression en cours"
End If
End Sub


ChrisV


"cris570" a écrit dans le message de news:
%23a%
Imprimer le devis (Feuille: Edition devis), quel que soit le montant, ce
que ma macro actuelle fait, et imprimer une autre page supplémentaire si
le devis est égal ou supérieur à 40000 euros (Feuille : Check-list).



Avatar
ChrisV
Re,

A la re-lecture, c'est finalement pas très clair...
...et imprimer une autre page supplémentaire...


Si tu désires:
Edition devis -> impression 1 feuille quelque soit le montant, et
édition de Check-list seulement si devis >@000
ou
Edition devis -> impression 1 feuille quelque soit le montant, et
édition d'une seconde feuille Edition devis seulement si Check-list >@000
?

ChrisV


"cris570" a écrit dans le message de news:
%23a%
Imprimer le devis (Feuille: Edition devis), quel que soit le montant, ce
que ma macro actuelle fait, et imprimer une autre page supplémentaire si
le devis est égal ou supérieur à 40000 euros (Feuille : Check-list).



Avatar
cris570
Merci ça fonctionne, super!!!