pb vba

[zumye]

bonjour le forum

je n'arrive pas a faire fonctionner ce vba qui me permet d'imprimer a partir d'une colonne (comportant tout les noms des onglets) sur un double clic d'imprimer la page choisis.

j'ai dans un module :

Sub imprime(nom)
Dim L As Integer, i As Integer
L = Range("A65536").End(xlUp).Row 'déjà dans la feuille "Recap"
For i = 3 To L
If nom = "" Then Exit Sub
If nom = Range("A" & i) Then
Sheets(nom).Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
MsgBox " Cette feuille est en impression" 'point d'arrêt pour contrôle, pas envie d'imprimer
Sheets("Recap").Activate
Exit For
End If
Next
End Sub


et sur ma page ou se situe ma fameuse colonne a :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = False
nom = Target
imprime (nom) 'pour porter la variable
End Sub


mon probleme est quand je double clic sur un nom situé dans la colonne a j'ai la ligne "If nom = Range("A" & i) Then" qui est surligné en jaune"

d'ou vient l'erreur?

merci

 

[Cousinhub]

Re : pb vba

Bonsoir,
pour préserver la valeur de "nom", il faut que tu déclares ta variable en Public dans le module. Essaie avec :

Public nom
Sub imprime(nom)
'.......
End Sub

 

[zumye]

Re : pb vba

ca ne marche tjs pas et en plus j'ai oublié de mettre le debut dans mon module j'ai :
Option Explicit
Public nom As String 'Public pour garder la valeur partout
Sub imprime(nom)
Dim L As Integer, i As Integer
L = Range("A65536").End(xlUp).Row 'déjà dans la feuille "Recap"
For i = 3 To L
If nom = "" Then Exit Sub
If nom = Range("A" & i) Then
Sheets(nom).Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
MsgBox " Cette feuille est en impression" 'point d'arrêt pour contrôle, pas envie d'imprimer
Sheets("Recap").Activate
Exit For
End If
Next
End Sub

 

[Dan]

Re : pb vba

Bonjour,

A première vue, je ne vois pas le pourquoi du EXIT FOR
Par contre il me semble qu'il te manque un END IF à la place.

BhBh, le NOM vient d'une private qui est la valeur TARGET. Il me semble qu'il faudrait plutôt faire ceci --> Sub imprime(nom as string)

A vous lire

Dan

 

[zumye]

Re : pb vba

j'ai tout essayer, c'est tout le programme qui doit etre a revoir.
une idée ?

 

[Cousinhub]

Re : pb vba

Re-
essaie avec ceci :

dans l'évènement de feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [A1:A3]) Is Nothing And Target <> "" Then
    laFeuille = Target
    Call imprime
    Cancel = True
End If
End Sub

et dans un module :

Public laFeuille As String
Sub imprime()
Sheets(laFeuille).PrintPreview  'ou PrintOut
End Sub

 

[Excel_lent]

Re : pb vba

autocensure

 

[zumye]

Re : pb vba

je dois mal m'y prendre car il n'y aucune reaction
ma feuille ou se trouve le double clic s'appelle Recap
j'ai installé les VBA et remplacé le mot lafeuille par Recap
Recap = Target
Recap = Target
Sheets(Recap).PrintPreview

ou se trouve mon erreur?

merci

 

[Cousinhub]

Re : pb vba

Re-,
ce n'était pas la peine de renommer la variable...
L'as-tu également modifié dans la variable?

regarde l'exemple :

 

[zumye]

Re : pb vba

merci ca fonctionne