cellules vide

[Laurent]

Bonsoir à tous,

Voilà, j'ai un code du type :

Sheets('Listing entreprises').Select
Range('C7').Select
Selection.Copy
Sheets('Planning Entreprises').Select
ActiveSheet.Paste
Selection.AutoFilter Field:=1, Criteria1:='X'
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=1

Sheets('Listing entreprises').Select
Range('C8').Select
Selection.Copy
Sheets('Planning Entreprises').Select
ActiveSheet.Paste
Selection.AutoFilter Field:=1, Criteria1:='X'
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.AutoFilter Field:=1

avec une liste de C7 à C50, je souhaite que l'on passe directement 'sans imprimer' à la cellule C8 si la cellule C7 est vide

Est-ce possible?

D'avance merci à tous ce qui voudront bien se pencher sur mon problème qui j'en je sur n'en est pas vraiment un.

Laurent

 

[Hellboy]

Bonsoir Laurent

En insérant une condition qui vérifier si la cellules C7 est vide on arrive a faire ce que tu demande.

Sheets('Listing entreprises').Select
Range('C7').Select
If Selection.Value <> Empty Then
&nbsp; &nbsp; Selection.Copy
&nbsp; &nbsp; Sheets('Planning Entreprises').Select
&nbsp; &nbsp; ActiveSheet.Paste
&nbsp; &nbsp; Selection.AutoFilter Field:=1, Criteria1:='X'
&nbsp; &nbsp; Application.CutCopyMode = False
&nbsp; &nbsp; ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
&nbsp; &nbsp; Selection.AutoFilter Field:=1
Else
&nbsp; &nbsp; Sheets('Listing entreprises').Select
&nbsp; &nbsp; Range('C8').Select
&nbsp; &nbsp; Selection.Copy
&nbsp; &nbsp; Sheets('Planning Entreprises').Select
&nbsp; &nbsp; ActiveSheet.Paste
&nbsp; &nbsp; Selection.AutoFilter Field:=1, Criteria1:='X'
&nbsp; &nbsp; Application.CutCopyMode = False
&nbsp; &nbsp; ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
&nbsp; &nbsp; Selection.AutoFilter Field:=1
End If

Ici, j'ai assumé que tu voulais sauter toutes les autres commandes incluant l'impression. Si ce n'est pas le cas tu me bottera le ... plus tard.

 

[Laurent]

Bonsoir Hellboy

Merci de ta réponse, c'est presque ca en effet, je souhaite en fait à pouvoir faire cette démarche pour toutes les cellules de C7 à C50.

Si C8 est vide, on passe à C9, si C9 est vide, on passe à C10, et ainsi de suite jusqu' C50.

j'espere que je suis assez clair dans mes explications

Encore merci

Laurent

 

[Hellboy]

re Laurent

C'est clair, mais il y a encore des points de litiges.

Est-ce qu'il peut y avoir de l'info en C7, mais pas en C8, ni en C9, et de C10 a C50 c'est complet ? Soit très précis s.v.p. !

Ensuite, lorsque tu colle tes données dans Sheets('Planning Entreprises') tu veux les mettre ou ?, Sont-il a la suite de d'autres données ????
Ton Filtre est dans la feuille ? Sheets('Planning Entreprises')


Tu ne pourrais pas joindre ton fichier pour mieux voir ?


merci !

a+