Bjour,
J'ai crée ce code sous excel, pour que quand j'ai un fond bleu sur une
cellule, ça m 'imprime sur une ou plusieurs feuille toutes les lignes dont la
cellule a un fond bleu
Mais quand je la lance ça marche sauf l'impression qui fonctionne mais qui
me lance une boucle interminable. Quel ligne en + à taper dans le programme
pour que celle ci s'arrete
For RwIndex = 7 To 200
For colIndex = 5 To 5
With Worksheets("feuil1").Cells(RwIndex, colIndex)
If Cells(RwIndex, colIndex).Interior.ColorIndex <> bleu Then
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End If
End With
Next colIndex
Next RwIndex
--
Merci de votre aide
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michel.legorgeu
Bonjour,
je ne suis pas très versé en VBA, mais il me semble que ton programme fait l'inverse de ce que tu veux faire.
En effet tu nous dis que tu veux imprimer toutes les lignes dont la cellule a un fond bleu, et ta ligne "If Cells(RwIndex, colIndex).Interior.ColorIndex <> bleu Then " imprime toutes les lignes dont une cellule a un fond différent de bleu.
If Cells(RwIndex, colIndex).Interior.ColorIndex = bleu Then
serait peut être meilleur (en supposant que " "bleu soit reconnu par VBA). Sur ce dernier point il faudrait a mon avis écrire le numéro de colorindex de bleu (à rechercher).
A+
Gill Rougemeche "squeepy" a écrit dans le message de news:
Bjour, J'ai crée ce code sous excel, pour que quand j'ai un fond bleu sur une cellule, ça m 'imprime sur une ou plusieurs feuille toutes les lignes dont la cellule a un fond bleu Mais quand je la lance ça marche sauf l'impression qui fonctionne mais qui me lance une boucle interminable. Quel ligne en + à taper dans le programme pour que celle ci s'arrete
For RwIndex = 7 To 200 For colIndex = 5 To 5 With Worksheets("feuil1").Cells(RwIndex, colIndex) If Cells(RwIndex, colIndex).Interior.ColorIndex <> bleu Then
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True End If End With Next colIndex Next RwIndex -- Merci de votre aide
Bonjour,
je ne suis pas très versé en VBA, mais il me semble que ton programme fait
l'inverse de ce que tu veux faire.
En effet tu nous dis que tu veux imprimer toutes les lignes dont la cellule
a un fond bleu, et ta ligne "If Cells(RwIndex, colIndex).Interior.ColorIndex
<> bleu Then " imprime toutes les lignes dont une cellule a un fond
différent de bleu.
If Cells(RwIndex, colIndex).Interior.ColorIndex = bleu Then
serait peut être meilleur (en supposant que " "bleu soit reconnu par
VBA). Sur ce dernier point il faudrait a mon avis écrire le numéro de
colorindex de bleu (à rechercher).
A+
Gill Rougemeche
"squeepy" <squeepy@discussions.microsoft.com> a écrit dans le message de
news: 9E4A3FAC-3DB8-487D-9BE7-B37C1204DAAE@microsoft.com...
Bjour,
J'ai crée ce code sous excel, pour que quand j'ai un fond bleu sur une
cellule, ça m 'imprime sur une ou plusieurs feuille toutes les lignes dont
la
cellule a un fond bleu
Mais quand je la lance ça marche sauf l'impression qui fonctionne mais qui
me lance une boucle interminable. Quel ligne en + à taper dans le
programme
pour que celle ci s'arrete
For RwIndex = 7 To 200
For colIndex = 5 To 5
With Worksheets("feuil1").Cells(RwIndex, colIndex)
If Cells(RwIndex, colIndex).Interior.ColorIndex <> bleu Then
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End If
End With
Next colIndex
Next RwIndex
--
Merci de votre aide
je ne suis pas très versé en VBA, mais il me semble que ton programme fait l'inverse de ce que tu veux faire.
En effet tu nous dis que tu veux imprimer toutes les lignes dont la cellule a un fond bleu, et ta ligne "If Cells(RwIndex, colIndex).Interior.ColorIndex <> bleu Then " imprime toutes les lignes dont une cellule a un fond différent de bleu.
If Cells(RwIndex, colIndex).Interior.ColorIndex = bleu Then
serait peut être meilleur (en supposant que " "bleu soit reconnu par VBA). Sur ce dernier point il faudrait a mon avis écrire le numéro de colorindex de bleu (à rechercher).
A+
Gill Rougemeche "squeepy" a écrit dans le message de news:
Bjour, J'ai crée ce code sous excel, pour que quand j'ai un fond bleu sur une cellule, ça m 'imprime sur une ou plusieurs feuille toutes les lignes dont la cellule a un fond bleu Mais quand je la lance ça marche sauf l'impression qui fonctionne mais qui me lance une boucle interminable. Quel ligne en + à taper dans le programme pour que celle ci s'arrete
For RwIndex = 7 To 200 For colIndex = 5 To 5 With Worksheets("feuil1").Cells(RwIndex, colIndex) If Cells(RwIndex, colIndex).Interior.ColorIndex <> bleu Then
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True End If End With Next colIndex Next RwIndex -- Merci de votre aide
squeepy
Ok, merci si qu'un pourré me dire comment faire pour les impressions.
Bjour, J'ai crée ce code sous excel, pour que quand j'ai un fond bleu sur une cellule, ça m 'imprime sur une ou plusieurs feuille toutes les lignes dont la cellule a un fond bleu Mais quand je la lance ça marche sauf l'impression qui fonctionne mais qui me lance une boucle interminable. Quel ligne en + à taper dans le programme pour que celle ci s'arrete
For RwIndex = 7 To 200 For colIndex = 5 To 5 With Worksheets("feuil1").Cells(RwIndex, colIndex) If Cells(RwIndex, colIndex).Interior.ColorIndex <> bleu Then
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True End If End With Next colIndex Next RwIndex -- Merci de votre aide
Ok, merci
si qu'un pourré me dire comment faire pour les impressions.
Bjour,
J'ai crée ce code sous excel, pour que quand j'ai un fond bleu sur une
cellule, ça m 'imprime sur une ou plusieurs feuille toutes les lignes dont la
cellule a un fond bleu
Mais quand je la lance ça marche sauf l'impression qui fonctionne mais qui
me lance une boucle interminable. Quel ligne en + à taper dans le programme
pour que celle ci s'arrete
For RwIndex = 7 To 200
For colIndex = 5 To 5
With Worksheets("feuil1").Cells(RwIndex, colIndex)
If Cells(RwIndex, colIndex).Interior.ColorIndex <> bleu Then
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End If
End With
Next colIndex
Next RwIndex
--
Merci de votre aide
Ok, merci si qu'un pourré me dire comment faire pour les impressions.
Bjour, J'ai crée ce code sous excel, pour que quand j'ai un fond bleu sur une cellule, ça m 'imprime sur une ou plusieurs feuille toutes les lignes dont la cellule a un fond bleu Mais quand je la lance ça marche sauf l'impression qui fonctionne mais qui me lance une boucle interminable. Quel ligne en + à taper dans le programme pour que celle ci s'arrete
For RwIndex = 7 To 200 For colIndex = 5 To 5 With Worksheets("feuil1").Cells(RwIndex, colIndex) If Cells(RwIndex, colIndex).Interior.ColorIndex <> bleu Then
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True End If End With Next colIndex Next RwIndex -- Merci de votre aide
