Aide code VBA

[eduraiss]

Bonjour le forum

Voici le code ci-dessous qui devrait me permettre de
Dans le colonne J lorsque je rencontre 1 je sélectionne la cellule en colonne A et j'exécute une macro
dans la même colonne lorsque je rencontre 2 je sélectionne la cellule en colonne A et j'exécute une macro

idem lorsque je rencontre un 3

même si il y a plusieurs 1 je veux exécuter la macro que une fois
mais le code ci dessous bug lorsque l'on passe a la recherche du 2

Si vous pouvez me donner un coup de main

merci


Sub test20()

Dim c As Range
Dim a As Range
With Range("j:j")

Set c = .Find(1, , xlValues, xlWhole, xlByColumns)
c.Offset(0, -9).Select
Call test4


Set c = .Find(2, , xlValues, xlWhole, xlByColumns)
c.Offset(0, -9).Select
Call test4


Set c = .Find(3, , xlValues, xlWhole, xlByColumns)
c.Offset(0, -9).Select
Call test4

End With
End Sub

 

[Pierrot93]

Re : Aide code VBA

Bonjour,

peut être que la valeur 2 n'est pas trouvée, tester alors si c ne vaut pas "nothing"...

bon après midi
@+

 

[eduraiss]

Re : Aide code VBA

Re
Bonjour pierrot93
la valeur 2 existe

merci

 

[Pierrot93]

Re : Aide code VBA

Re,

bah... mets un bout de fichier en pièce jointe avec les codes reproduisant le problème posé, que nous puissions tester....

 

[eduraiss]

Re : Aide code VBA

Voici un bout de fichier

 

[Pierrot93]

Re : Aide code VBA

Bonjour,

tu selectionnes un autre onglet dans ta procédure "test4" :

Sheets("SOURCE").Select

remplace ceci :

Sheets("SOURCE").Select
                'A activer lors de la mise en route des évaluation
                '========================
                ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

par cela :

Sheets("SOURCE").PrintOut Copies:=1, Collate:=True

bonne journée
@+

 

[eduraiss]

Re : Aide code VBA

Bonjour le forum, pierrot

Merci beaucoup , j'avais trouvé hier soir le fait que oui j'allais sur la feuille source et que je ne revenais pas sur la feuille référent

Merci quand même pour ton aide

Cordialement,