Range, mais comment ça marche ?

J

JCS isère

Guest

• 29 Octobre 2007

• #2

Re : Range, mais comment ça marche ?

Voici le code

Private Sub CommandButtonImprimerRèglements_Click()
Sheets("règlements").Activate
Range("N14").Select
Do While ActiveCell.Value <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 0).Select
Range(ActiveCell, "E14").Select
Selection.PrintOut Copies:=1, Collate:=True
Sheets("GTC Vienne").Activate
End Sub

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 29 Octobre 2007

• #3

Re : Range, mais comment ça marche ?

Bonjour

Je viens de tester ton code (sans l'impression )et pas d'erreur

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 29 Octobre 2007

• #4

Re : Range, mais comment ça marche ?

Bonsoir,
je suppose que ton bouton de commande est sur la feuille GTC?
tu ne peux donc sélectionner une autre cellule d'une autre feuille dans une Private Sub insérée dans le code de la feuille GTC,
je te propose de remplacer par :

Code:

Private Sub CommandButton1_Click()
With Sheets("règlements")
    .Range("E14:N" & .[N65000].End(xlUp).Row).PrintOut Copies:=1, Collate:=True
End With
End Sub

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 29 Octobre 2007

• #5

Re : Range, mais comment ça marche ?

Bonsoir JCS isère, Staple1600, Banzai64, le Forum,

JCS isère, pour régler ton problème simplement, copies ton code dans une procédure placée dans un module standard (ex: Module1) et fais appel à cette procédure dans l'évènement click de ton bouton.

Par ailleurs, en VBA, les Select sont généralement inutiles et souvent sources d'erreur (comme celle que tu rencontres).

Cordialement,

EDITION : pardon et bonsoir bhbh, je ne t'avais pas vu venir... Effectivement, j'ai interprété le code comme toi et ta façon de faire est une bonne solution également.

 

Dernière édition: 29 Octobre 2007

Vote positif 0 Vote négatif

J

JCS isère

Guest

• 29 Octobre 2007

• #6

Re : Range, mais comment ça marche ?

Voilà, j'ai compressé le fichier, j'espère qu'il passera bien dans les tuyaux, merci de t'intéresser à mon problème.

 

Pièces jointes

• Chèques fournisseurs7.zip

  40.5 KB · Affichages: 52

Vote positif 0 Vote négatif

J

JCS isère

Guest

• 29 Octobre 2007

• #7

Re : Range, mais comment ça marche ?

Dans l'ordre

- myDearFriend, tu me conseilles de copier mon code dans une procédure, mais comment je lance cette procédure.

- Staple1600, oui la macro de bhbh fonctionne bien.

- bhbh merci pour ta macro, elle fonctionne bien, mais tu me dis qu'avec une PrivateSub on ne peut pas sélectionner une cellule dans une autre feuille, pourtant ton code fonctionne et c'est une PrivateSub. Peux tu m'expliquer.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 29 Octobre 2007

• #8

Re : Range, mais comment ça marche ?

Re-,
regarde le code, je ne sélectionne aucune cellule
il en est de même si tu voulais écrire dans cette autre feuille, utilises l'instruction With :

par exemple :

With Sheets("règlements")
.Range("A1").Value = Date
.Range("E14:N" & .[N65000].End(xlUp).Row).PrintOut Copies:=1, Collate:=True
End With

Remarque le . (point) devant .Range ou devant .[N65000]
cela veut dire que je fais référence à la feuille ("règlements"), mais sans l'activer ou la sélectionner. De plus, dans la cellule A1, tu auras la date de l'impression (pour l'exemple)

 

Vote positif 0 Vote négatif

J

JCS isère

Guest

• 29 Octobre 2007

• #9

Re : Range, mais comment ça marche ?

bhbh, je te remercie pour tes explications, cela me permet de progresser.

myDearFriend, me conseille de copier mon code dans un module standard, quel avantage par rapport au code actuel et comment on fait pour créer ce module.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 29 Octobre 2007

• #10

Re : Range, mais comment ça marche ?

Bonsoir le fil,
pour créer un module, dans VBE, fenêtre projet (à gauche), tu cliques droit sur le "projet" de "ton fichier.xls" puis insertion module.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 29 Octobre 2007

• #11

Re : Range, mais comment ça marche ?

Re,
salut staple1600, arfffff, il a dù avoir une grosse journée😀🙂

 

Vote positif 0 Vote négatif

J

JCS isère

Guest

• 29 Octobre 2007

• #12

Re : Range, mais comment ça marche ?

C'est pas bien de se moquer, au fait j'en ai profité pour supprimer mes 10 modules vides (crée à l'insu de mon plein grès comme disait l'autre) ...

... et vous n'avez pas répondu à ma question "myDearFriend, me conseille de copier mon code dans un module standard, quel avantage par rapport au code actuel "

Merci

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 29 Octobre 2007

• #13

Re : Range, mais comment ça marche ?

Re,
faut pas le prendre mal JCS isère, mille excuse si je t'ai froissé.
Pour répondre à ta question, d'une feuille à l'autre,les modules gèrent la méthode "Select" et "Activate" alors que les "Private Sub" non (si je ne me trompe pas).
Ce qui est sûr, c'est que "Select" n'apporte rien dans un code mais au contraire celà l'alourdi et le ralenti........

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 29 Octobre 2007

• #14

Re : Range, mais comment ça marche ?

Re le fil,

JCS isère à dit:

myDearFriend, me conseille de copier mon code dans un module standard, quel avantage par rapport au code actuel

Cliquez pour agrandir...

La proposition que j'ai faite avait le simple avantage de ne pas remettre en cause ton propre code et de te démontrer que ce code pouvait être fonctionnel s'il était placé dans un module à part. C'était une façon d'essayer de te faire comprendre l'effet pervers qui peut résulter de l'utilisation des Select en VBA...

Il est évident que le code proposé par bhbh est ici la solution a adopter! (même si je reste persuadé qu'un module de code d'une feuille n'est pas le meilleur endroit pour coder le traitement d'une autre feuille...)

Cordialement,

 

Vote positif 0 Vote négatif

J

JCS isère

Guest

• 30 Octobre 2007

• #15

Re : Range, mais comment ça marche ?

Merci à tous pour ces explications, et pour le temps que vous y avez consacré, Skoobi, je te rassure, tu ne m'a nullement froissé, l'humour a toujours sa place même lorsque l'on parle de code VBA. J'ai appris quelque chose en vous relisant et c'est là le plus important.
A une prochaine fois peut être, il est l'heure d'aller bosser.

 

Vote positif 0 Vote négatif