correction programme vba

[zumye]

bonsoir
pouvez vous me dire pourquoi ce programme ne marche pas?
cela devrait me permettre sur ma feuille nommée "recap" en faisant un double clic sur une cellule dans la colonne A (ex: A6 comportant le nom Binv), d'imprimer la feuille Binv.

sub imprimer ()
Dim L As Integer, i As Integer
L = Sheets("Recap").Range("A65536").End(xlUp).Row
For i = 3 To L
If Target = "" Then Exit Sub
If Target = Range("A" & i) Then
a = Target
Sheets(a).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Recap").Select
End If
Next
end sub

 

[gilbert_RGI]

Re : correction programme vba

Bonjour

employer ActiveCell à la place de Target

Cdlt

RGI

 

[zumye]

Re : correction programme vba

bonsoir
j'ai remplacé les 3 targets par ActiveCell mais aucune réaction

 

[Excel_lent]

Re : correction programme vba

Bonsoir à tous sans oublier les autres.

Gilbert a raison : Target n'est utilisable, tel que, hors d'une macro événementielle.
Si tu passes par celle du DoubleClick, utilise une variable comme dans l'exemple joint.

 

[gilbert_RGI]

Re : correction programme vba

Bonjour

bonsoir
j'ai remplacé les 3 targets par ActiveCell mais aucune réaction

j'ai fait ceci et ça fonctionne

Sub imprimer()
    Dim L As Integer, i As Integer
    L = Sheets("Recap").Range("A65536").End(xlUp).Row
    For i = 3 To L
        If ActiveCell = "" Then Exit Sub
        If ActiveCell = Range("A" & i) Then
            a = ActiveCell.Value
            Sheets(a).Select
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
            Sheets("Recap").Select
        End If
    Next
End Sub

à la condition que la feuille (a) existe et ne soit pas vide

Cdlt

RGI

 

[deudecos]

Re : correction programme vba

Salut a tous,

Juste une petite remarque a Zumye,
Pourquoi n'avoir pas pose cette question sur le fil precedement ouvert puisque c'en est la continuite ?
https://www.excel-downloads.com/threads/imprime-feuilles-correspondant-a-une-colonne.91590/
Tu mobilise de l'espace forum pour rien...

Bonne journee

Olivier

 

[zumye]

Re : correction programme vba

merci pour les réponses
pour deudecos, desolé je connais pas trop encore le fonctionnement du système mais ok pour ce coup ci j'ai compris
merci

 

[zumye]

Re : correction programme vba

j'ai un problème de débogage
la linge : If nom = Range("A" & i) Then
est surligné en jaune
pouquoi? merci

 

[gilbert_RGI]

Re : correction programme vba

Bonjour

vérifier le Range

nom correspond à quoi ?

 

[zumye]

Re : correction programme vba

range , ca veut dire colonne?
car ca doit faire référence à la colonne a
merci

 

[gilbert_RGI]

Re : correction programme vba

range , ca veut dire colonne?
car ca doit faire référence à la colonne a
merci

Non 😡 Range ne veut pas dire colonne

c'est un objet qui représente une cellule unique ou une plage de cellules

dans Range("A" & i) c'est "A" qui représente la colonne
et i qui est une variable représentant le n° de ligne