XL 2013 Sélection entre deux MsgBox...

[StéphaneDeLà]

Bonjour,
Je n'ai pas trouvé ma réponse, je tente ici.


J'ai ce code :

If Selection.Count = 1 Then
MsgBox ("Veuillez sélectionner une plage de cellules à exporter.")
t = Timer()
' boucle qui dure 5 secondes
Do While t + 5> Timer()
DoEvents
Loop
' fermeture fenêtre
BOITE.Hide

Set Zone = Selection
ActiveSheet.PageSetup.PrintArea = Zone
End If

MsgBox ("Cet enregistrement remplacera tout autre fichier déjà créé pour la même date de planning"), vbOKOnly + i = vbInformation, "ATTENTION !"

Le truc qui m'ennuie, c'est la boucle, et je Deboge sur la ligne BOITE.Hide

Le but est d'être certain que la 1ère MsgBox n'apparaisse que si on n'a pas effectué de sélection (sinon la procédure se poursuit...), qu'après avoir cliqué sur "OK" elle laisse la sélection être faite par l'utilisateur, et que la 2ème n'apparaisse qu'après avoir validé la 1ère MsgBox et effectué une sélection (ce qui serait tout aussi bien).

Il s'agit d'un tableau évolutif dans lequel on ne voudra imprimer (en PDF) qu'une partie à chaque fois.

Possible, selon vous ?

Vous remerciant par avance...

 

[vgendron]

Bonjour

je ne comprends pas bien ce que tu souhaites faire..
cette ligne :
MsgBox ("Veuillez sélectionner une plage de cellules à exporter.")
se contente de mettre un message: l'utilisateur a juste à cliquer sur OK
et l'impression se lance avec la section active (celle qui était déjà active avant le message box

si tu veux laisser la main à l'utilisateur pour selectionner une zone, il faut repasser par l'inputbox

If Selection.Count = 1 Then 'si la section active ne contient qu'une cellule
 set Zone=application.inputbox("Veuillez sélectionner une plage de cellules à exporter.",type:=8) 'demande à l'utilisateur de selectionner une plage
'ici.rien n'empêche l'utiisateur de ne selectionne qu'une seule cellule....
ActiveSheet.PageSetup.PrintArea = Zone
End If

 

[vgendron]

si tu veux forcer l'utilisateur a selectionner une plage de plusieurs cellules

set Zone=selection 'on set la selection en cours'
while zone.count=1 'si il y a plusieurs cellules déjà selectionnées, le while est bypassé'
 set Zone=application.inputbox("Veuillez sélectionner une plage de PLUSIEURS cellules à exporter.",type:=8) 'demande à l'utilisateur de selectionner une plage
wend
ActiveSheet.PageSetup.PrintArea = Zone
End If

 

[StéphaneDeLà]

Bonjour

je ne comprends pas bien ce que tu souhaites faire..
cette ligne :
MsgBox ("Veuillez sélectionner une plage de cellules à exporter.")
se contente de mettre un message: l'utilisateur a juste à cliquer sur OK
et l'impression se lance avec la section active (celle qui était déjà active avant le message box

si tu veux laisser la main à l'utilisateur pour selectionner une zone, il faut repasser par l'inputbox

If Selection.Count = 1 Then 'si la section active ne contient qu'une cellule
 set Zone=application.inputbox("Veuillez sélectionner une plage de cellules à exporter.",type:=8) 'demande à l'utilisateur de selectionner une plage
'ici.rien n'empêche l'utiisateur de ne selectionne qu'une seule cellule....
ActiveSheet.PageSetup.PrintArea = Zone
End If

Bonjour et merci pour ta réponse !

Quand je sélectionne avec l'InputBox active, la zone passe en surbrillance mais n'est pas vraiment sélectionnée, donc ne s'imprime pas en PDF.
C'est pour çà que j'avais décidé de m'en passer et d'essayer d'afficher une MsgBox, qui après "OK" laisserait l'utilisateur sélectionner à la main, puis en re-cliquant pour appeler la macro d'impression celle-ci verrait qu'il y a bien une sélection, et se poursuivrait...

 

[TooFatBoy]

Bonjour,

Je n'ai pas trouvé ma réponse, je tente ici.

As-tu regardé ma réponse sur l'autre fil de discussion ?

 

[StéphaneDeLà]

Bonjour,


As-tu regardé ma réponse sur l'autre fil de discussion ?

Je viens de la voir et de l'essayer...
Mais ça ne me donne pas de MsgBox ni d'obligation de sélection, et ça imprims automatiquement toujours la même plage,, quoi que je fasse... 🤔

 

[vgendron]

et mon post 3 ?

et ca

PageSetup.PrintArea, propriété (Excel)

Rubrique de référence sur Office VBA

learn.microsoft.com

 

[StéphaneDeLà]

et mon post 3 ?

et ca

PageSetup.PrintArea, propriété (Excel)

Rubrique de référence sur Office VBA

learn.microsoft.com

Avec

If Selection.Count = 1 Then
MsgBox ("Veuillez sélectionner une plage de cellules à exporter.")
Set Zone = Selection 'on set la selection en cours'
While Zone.Count = 1 'si il y a plusieurs cellules déjà selectionnées, le while est bypassé'
Set Zone = Application.InputBox("Veuillez sélectionner une plage de PLUSIEURS cellules à exporter.", Type:=8) 'demande à l'utilisateur de selectionner une plage
Wend
ActiveSheet.PageSetup.PrintArea = Zone
End If

il déboge sur la ligne
ActiveSheet.PageSetup.PrintArea = Zone

'et je suis trop nul pour trouver ce qui bloque...

 

[StéphaneDeLà]

Mais comme la sélection n'est toujours pas réelle par l'inputBox, j'imagine que je me retrouverais encore avec une seule cellule dans mon PDF...

 

[vgendron]

il faut lire le lien de "et ca..."
==>zone.address

 

[StéphaneDeLà]

il faut lire le lien de "et ca..."
==>zone.address

Lu... Suis trop nul, je n'ai pas réussi à en tirer un résultat.

 

[TooFatBoy]

Mais ça ne me donne pas de MsgBox ni d'obligation de sélection, et ça imprims automatiquement toujours la même plage,, quoi que je fasse... 🤔

OK. Possible : j'ai écrit ça sur mon tél, donc sans tester.

Ce que j'ai essayé de corriger, c'est juste la logique de la macro.

 

[vgendron]

tu ne sais pas trop lire non plus visiblement..
je t'ai mis la solution..
zone.ADDRESS

 

[StéphaneDeLà]

tu ne sais pas trop lire non plus visiblement..
je t'ai mis la solution..
zone.ADDRESS

Ca doit être çà...

 

[StéphaneDeLà]

Bonjour,


As-tu regardé ma réponse sur l'autre fil de discussion ?

Quand je disais ne pas avoir trouvé la réponse, c'est au sujet des MsgBox, pour l'impression PDF avec la valeur de la cellule ça fonctionne nickel. 👍