Cellules vides

Le
rthompson
Bonjour à toutes et tous

Avant de poser une question

Le fait de nettoyer sa BAL accélère "SERIEUSEMENT" votre vitesse
Pensez-y et merci pour le conseil

Back to work

Dans la colonne A les noms

Dans les colonne B C D E F des chifrres de ventes

Je voudrais (via macro) cacher toutes les lignes qui contiennent une cellule
vide
dans la plage B2:F6000
Et puis je ferais mon total avec le fameux 109 découvert il y a quelques
jours (ça, c'est un truc qu'est bon ça)

J'ai commencé un truc et (bien entendu) je coince

Quel commande utilise-t-on pour que cela fonctionne

Ci-dessous le départ du code


A bientôt et merci

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
'
' Onlyallcollections Macro
' Macro recorded 30/08/2007 by
'
Application.ScreenUpdating = False
For Each C In Range([B2], [F6000])
If
et ici il faudrait dire
si une cellule entre B et F est vide
il faut cacher la ligne
EntireRow.Hidden = True
Else
End If
Next C

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
papou
Le #4681091
Bonjour
With Range("B2:F6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End With

Cordialement
Pascal

"rthompson" news:
Bonjour à toutes et tous

Avant de poser une question

Le fait de nettoyer sa BAL accélère "SERIEUSEMENT" votre vitesse
Pensez-y et merci pour le conseil

Back to work

Dans la colonne A les noms

Dans les colonne B C D E F des chifrres de ventes

Je voudrais (via macro) cacher toutes les lignes qui contiennent une
cellule vide
dans la plage B2:F6000
Et puis je ferais mon total avec le fameux 109 découvert il y a quelques
jours (ça, c'est un truc qu'est bon ça)

J'ai commencé un truc et (bien entendu) je coince

Quel commande utilise-t-on pour que cela fonctionne

Ci-dessous le départ du code


A bientôt et merci

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
'
' Onlyallcollections Macro
' Macro recorded 30/08/2007 by
'
Application.ScreenUpdating = False
For Each C In Range([B2], [F6000])
If
et ici il faudrait dire
si une cellule entre B et F est vide
il faut cacher la ligne
EntireRow.Hidden = True
Else
End If
Next C

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub




rthompson
Le #4681061
Bonjour et merci

Voici ce que j'ai maintenant

xxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
Application.ScreenUpdating = False
With
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End With
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxx

Mais cela ne réagit pas
Je suis en Excel 2003 (à tout hasard)

Ce que je faisais jusqu'à présent était ceci

Dans une colonne H j'ai la formule
=IF(B2=0;0;IF(C2=0;0;IF(D2=0;0;IF(E2=0;0;SUM(B2:E2)))))
Et puis je fais un tri descendant sur cette colonne
Et je les cache manuellement
Mais c'est long

Il peut n'y avoir qu'une cellule de vide sur une ligne ou plusieurs
Et c'est seulement si TOUTES les cellule de la ligne entre B et E sont
remplies
qu'elles doivent rester visibles

A bientôt et encore merci

Rex





"papou"
Bonjour
With Range("B2:F6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End With

Cordialement
Pascal

"rthompson" news:
Bonjour à toutes et tous

Avant de poser une question

Le fait de nettoyer sa BAL accélère "SERIEUSEMENT" votre vitesse
Pensez-y et merci pour le conseil

Back to work

Dans la colonne A les noms

Dans les colonne B C D E F des chifrres de ventes

Je voudrais (via macro) cacher toutes les lignes qui contiennent une
cellule vide
dans la plage B2:F6000
Et puis je ferais mon total avec le fameux 109 découvert il y a quelques
jours (ça, c'est un truc qu'est bon ça)

J'ai commencé un truc et (bien entendu) je coince

Quel commande utilise-t-on pour que cela fonctionne

Ci-dessous le départ du code


A bientôt et merci

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
'
' Onlyallcollections Macro
' Macro recorded 30/08/2007 by
'
Application.ScreenUpdating = False
For Each C In Range([B2], [F6000])
If
et ici il faudrait dire
si une cellule entre B et F est vide
il faut cacher la ligne
EntireRow.Hidden = True
Else
End If
Next C

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub








papou
Le #4681031
Re
(je suis aussi en Excel 2003)
La syntaxe telle que je te l'ai fournie fonctionne avec les critères que tu
as donnés :
With Range("B2:E6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End with

Soit sur 3 lignes
Si tu veux le mettre sur une seule ligne :
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

Cordialement
Pascal

"rthompson" news:
Bonjour et merci

Voici ce que j'ai maintenant

xxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
Application.ScreenUpdating = False
With
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End With
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxx

Mais cela ne réagit pas
Je suis en Excel 2003 (à tout hasard)

Ce que je faisais jusqu'à présent était ceci

Dans une colonne H j'ai la formule
=IF(B2=0;0;IF(C2=0;0;IF(D2=0;0;IF(E2=0;0;SUM(B2:E2)))))
Et puis je fais un tri descendant sur cette colonne
Et je les cache manuellement
Mais c'est long

Il peut n'y avoir qu'une cellule de vide sur une ligne ou plusieurs
Et c'est seulement si TOUTES les cellule de la ligne entre B et E sont
remplies
qu'elles doivent rester visibles

A bientôt et encore merci

Rex





"papou" news:
Bonjour
With Range("B2:F6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End With

Cordialement
Pascal

"rthompson" news:
Bonjour à toutes et tous

Avant de poser une question

Le fait de nettoyer sa BAL accélère "SERIEUSEMENT" votre vitesse
Pensez-y et merci pour le conseil

Back to work

Dans la colonne A les noms

Dans les colonne B C D E F des chifrres de ventes

Je voudrais (via macro) cacher toutes les lignes qui contiennent une
cellule vide
dans la plage B2:F6000
Et puis je ferais mon total avec le fameux 109 découvert il y a quelques
jours (ça, c'est un truc qu'est bon ça)

J'ai commencé un truc et (bien entendu) je coince

Quel commande utilise-t-on pour que cela fonctionne

Ci-dessous le départ du code


A bientôt et merci

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
'
' Onlyallcollections Macro
' Macro recorded 30/08/2007 by
'
Application.ScreenUpdating = False
For Each C In Range([B2], [F6000])
If
et ici il faudrait dire
si une cellule entre B et F est vide
il faut cacher la ligne
EntireRow.Hidden = True
Else
End If
Next C

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub












rthompson
Le #4681001
Bonjour et MERCI

C'est bizarre j'aurais pas cru que les With et End With empêchait le bon
fonctionnement

Voici ce qui GRACE A TOI fonctionne

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

En me basant sur ces lignes je vais essayer de faire un truc dans le genre

Si en A2 j'ai PAID je vais colorier les cellules A2:H2 en vertclair

Si j'y arrive pas je relancerais le fil

A bientôt

Et surtout merci

Rex ;-))) )))






"papou"
Re
(je suis aussi en Excel 2003)
La syntaxe telle que je te l'ai fournie fonctionne avec les critères que
tu as donnés :
With Range("B2:E6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End with

Soit sur 3 lignes
Si tu veux le mettre sur une seule ligne :
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

Cordialement
Pascal

"rthompson" news:
Bonjour et merci

Voici ce que j'ai maintenant

xxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
Application.ScreenUpdating = False
With
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End With
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxx

Mais cela ne réagit pas
Je suis en Excel 2003 (à tout hasard)

Ce que je faisais jusqu'à présent était ceci

Dans une colonne H j'ai la formule
=IF(B2=0;0;IF(C2=0;0;IF(D2=0;0;IF(E2=0;0;SUM(B2:E2)))))
Et puis je fais un tri descendant sur cette colonne
Et je les cache manuellement
Mais c'est long

Il peut n'y avoir qu'une cellule de vide sur une ligne ou plusieurs
Et c'est seulement si TOUTES les cellule de la ligne entre B et E sont
remplies
qu'elles doivent rester visibles

A bientôt et encore merci

Rex





"papou" news:
Bonjour
With Range("B2:F6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End With

Cordialement
Pascal

"rthompson" de news:
Bonjour à toutes et tous

Avant de poser une question

Le fait de nettoyer sa BAL accélère "SERIEUSEMENT" votre vitesse
Pensez-y et merci pour le conseil

Back to work

Dans la colonne A les noms

Dans les colonne B C D E F des chifrres de ventes

Je voudrais (via macro) cacher toutes les lignes qui contiennent une
cellule vide
dans la plage B2:F6000
Et puis je ferais mon total avec le fameux 109 découvert il y a
quelques jours (ça, c'est un truc qu'est bon ça)

J'ai commencé un truc et (bien entendu) je coince

Quel commande utilise-t-on pour que cela fonctionne

Ci-dessous le départ du code


A bientôt et merci

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
'
' Onlyallcollections Macro
' Macro recorded 30/08/2007 by
'
Application.ScreenUpdating = False
For Each C In Range([B2], [F6000])
If
et ici il faudrait dire
si une cellule entre B et F est vide
il faut cacher la ligne
EntireRow.Hidden = True
Else
End If
Next C

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub
















papou
Le #4680981
My pleasure!

Cordialement
Pascal

"rthompson" news:
Bonjour et MERCI

C'est bizarre j'aurais pas cru que les With et End With empêchait le bon
fonctionnement

Voici ce qui GRACE A TOI fonctionne

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

En me basant sur ces lignes je vais essayer de faire un truc dans le genre

Si en A2 j'ai PAID je vais colorier les cellules A2:H2 en vertclair

Si j'y arrive pas je relancerais le fil

A bientôt

Et surtout merci

Rex ;-))) )))






"papou" news:
Re
(je suis aussi en Excel 2003)
La syntaxe telle que je te l'ai fournie fonctionne avec les critères que
tu as donnés :
With Range("B2:E6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End with

Soit sur 3 lignes
Si tu veux le mettre sur une seule ligne :
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

Cordialement
Pascal

"rthompson" news:
Bonjour et merci

Voici ce que j'ai maintenant

xxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
Application.ScreenUpdating = False
With
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End With
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxx

Mais cela ne réagit pas
Je suis en Excel 2003 (à tout hasard)

Ce que je faisais jusqu'à présent était ceci

Dans une colonne H j'ai la formule
=IF(B2=0;0;IF(C2=0;0;IF(D2=0;0;IF(E2=0;0;SUM(B2:E2)))))
Et puis je fais un tri descendant sur cette colonne
Et je les cache manuellement
Mais c'est long

Il peut n'y avoir qu'une cellule de vide sur une ligne ou plusieurs
Et c'est seulement si TOUTES les cellule de la ligne entre B et E sont
remplies
qu'elles doivent rester visibles

A bientôt et encore merci

Rex





"papou" news:
Bonjour
With Range("B2:F6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End With

Cordialement
Pascal

"rthompson" de news:
Bonjour à toutes et tous

Avant de poser une question

Le fait de nettoyer sa BAL accélère "SERIEUSEMENT" votre vitesse
Pensez-y et merci pour le conseil

Back to work

Dans la colonne A les noms

Dans les colonne B C D E F des chifrres de ventes

Je voudrais (via macro) cacher toutes les lignes qui contiennent une
cellule vide
dans la plage B2:F6000
Et puis je ferais mon total avec le fameux 109 découvert il y a
quelques jours (ça, c'est un truc qu'est bon ça)

J'ai commencé un truc et (bien entendu) je coince

Quel commande utilise-t-on pour que cela fonctionne

Ci-dessous le départ du code


A bientôt et merci

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
'
' Onlyallcollections Macro
' Macro recorded 30/08/2007 by
'
Application.ScreenUpdating = False
For Each C In Range([B2], [F6000])
If
et ici il faudrait dire
si une cellule entre B et F est vide
il faut cacher la ligne
EntireRow.Hidden = True
Else
End If
Next C

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub




















rthompson
Le #4680941
Bonjour

C'est encore moi
Et j'espère que tu es encore là ;-))))))


Dans le code ci-dessous (qui fonctionne MERCI)

Seul les cellules vides sont coloriés
Si je fais entirerow c'est toute la ligne qui est coloré (c'est logique)

Mais comment faire pour que tout les cellules de cette ligne mais uniquement
de la plage soient coloriées

Dans mon exemple je voudrais que se soit les cellules entre les colonnes A
et E qui soient coloriées et pas toute la ligne

A bientôt

Et merci

Rex

xxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).Select
'''' ici il faudrait dire que les lignes dont il y a une cellule
vide sont coloriés
"" mais seulement de la colonne A à la colonne E
"" et en plus pour un autre projet comment faire pour
"" que ce soit une cellule spécifique qui soit coloriée
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et puis je vais un peu jouer avec les palettes de Gedee
Cela promet du plaisir

Rex ;-))) )))




"papou" %
My pleasure!

Cordialement
Pascal

"rthompson" news:
Bonjour et MERCI

C'est bizarre j'aurais pas cru que les With et End With empêchait le bon
fonctionnement

Voici ce qui GRACE A TOI fonctionne

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

En me basant sur ces lignes je vais essayer de faire un truc dans le
genre

Si en A2 j'ai PAID je vais colorier les cellules A2:H2 en vertclair

Si j'y arrive pas je relancerais le fil

A bientôt

Et surtout merci

Rex ;-))) )))






"papou" news:
Re
(je suis aussi en Excel 2003)
La syntaxe telle que je te l'ai fournie fonctionne avec les critères que
tu as donnés :
With Range("B2:E6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End with

Soit sur 3 lignes
Si tu veux le mettre sur une seule ligne :
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

Cordialement
Pascal

"rthompson" de news:
Bonjour et merci

Voici ce que j'ai maintenant

xxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
Application.ScreenUpdating = False
With
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
True
End With
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxx

Mais cela ne réagit pas
Je suis en Excel 2003 (à tout hasard)

Ce que je faisais jusqu'à présent était ceci

Dans une colonne H j'ai la formule
=IF(B2=0;0;IF(C2=0;0;IF(D2=0;0;IF(E2=0;0;SUM(B2:E2)))))
Et puis je fais un tri descendant sur cette colonne
Et je les cache manuellement
Mais c'est long

Il peut n'y avoir qu'une cellule de vide sur une ligne ou plusieurs
Et c'est seulement si TOUTES les cellule de la ligne entre B et E sont
remplies
qu'elles doivent rester visibles

A bientôt et encore merci

Rex





"papou" news:
Bonjour
With Range("B2:F6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End With

Cordialement
Pascal

"rthompson" de news:
Bonjour à toutes et tous

Avant de poser une question

Le fait de nettoyer sa BAL accélère "SERIEUSEMENT" votre vitesse
Pensez-y et merci pour le conseil

Back to work

Dans la colonne A les noms

Dans les colonne B C D E F des chifrres de ventes

Je voudrais (via macro) cacher toutes les lignes qui contiennent une
cellule vide
dans la plage B2:F6000
Et puis je ferais mon total avec le fameux 109 découvert il y a
quelques jours (ça, c'est un truc qu'est bon ça)

J'ai commencé un truc et (bien entendu) je coince

Quel commande utilise-t-on pour que cela fonctionne

Ci-dessous le départ du code


A bientôt et merci

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
'
' Onlyallcollections Macro
' Macro recorded 30/08/2007 by
'
Application.ScreenUpdating = False
For Each C In Range([B2], [F6000])
If
et ici il faudrait dire
si une cellule entre B et F est vide
il faut cacher la ligne
EntireRow.Hidden = True
Else
End If
Next C

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub
























papou
Le #4680931
Rex
Tu n'es pas loin :

With Range("A2:E6000").SpecialCells(xlCellTypeBlanks).Interior
.ColorIndex = 6
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

Par contre moi pas comprendre ensuite :
"" et en plus pour un autre projet comment faire pour
"" que ce soit une cellule spécifique qui soit coloriée


Cordialement
Pascal

"rthompson" news: OPLan$
Bonjour

C'est encore moi
Et j'espère que tu es encore là ;-))))))


Dans le code ci-dessous (qui fonctionne MERCI)

Seul les cellules vides sont coloriés
Si je fais entirerow c'est toute la ligne qui est coloré (c'est logique)

Mais comment faire pour que tout les cellules de cette ligne mais
uniquement de la plage soient coloriées

Dans mon exemple je voudrais que se soit les cellules entre les colonnes A
et E qui soient coloriées et pas toute la ligne

A bientôt

Et merci

Rex

xxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).Select
'''' ici il faudrait dire que les lignes dont il y a une cellule
vide sont coloriés
"" mais seulement de la colonne A à la colonne E
"" et en plus pour un autre projet comment faire pour
"" que ce soit une cellule spécifique qui soit coloriée
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et puis je vais un peu jouer avec les palettes de Gedee
Cela promet du plaisir

Rex ;-))) )))




"papou" news: %
My pleasure!

Cordialement
Pascal

"rthompson" news:
Bonjour et MERCI

C'est bizarre j'aurais pas cru que les With et End With empêchait le bon
fonctionnement

Voici ce qui GRACE A TOI fonctionne

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

En me basant sur ces lignes je vais essayer de faire un truc dans le
genre

Si en A2 j'ai PAID je vais colorier les cellules A2:H2 en vertclair

Si j'y arrive pas je relancerais le fil

A bientôt

Et surtout merci

Rex ;-))) )))






"papou" news:
Re
(je suis aussi en Excel 2003)
La syntaxe telle que je te l'ai fournie fonctionne avec les critères
que tu as donnés :
With Range("B2:E6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End with

Soit sur 3 lignes
Si tu veux le mettre sur une seule ligne :
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
True

Cordialement
Pascal

"rthompson" de news:
Bonjour et merci

Voici ce que j'ai maintenant

xxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
Application.ScreenUpdating = False
With
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
True
End With
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxx

Mais cela ne réagit pas
Je suis en Excel 2003 (à tout hasard)

Ce que je faisais jusqu'à présent était ceci

Dans une colonne H j'ai la formule
=IF(B2=0;0;IF(C2=0;0;IF(D2=0;0;IF(E2=0;0;SUM(B2:E2)))))
Et puis je fais un tri descendant sur cette colonne
Et je les cache manuellement
Mais c'est long

Il peut n'y avoir qu'une cellule de vide sur une ligne ou plusieurs
Et c'est seulement si TOUTES les cellule de la ligne entre B et E sont
remplies
qu'elles doivent rester visibles

A bientôt et encore merci

Rex





"papou" news:
Bonjour
With Range("B2:F6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End With

Cordialement
Pascal

"rthompson" message de news:
Bonjour à toutes et tous

Avant de poser une question

Le fait de nettoyer sa BAL accélère "SERIEUSEMENT" votre vitesse
Pensez-y et merci pour le conseil

Back to work

Dans la colonne A les noms

Dans les colonne B C D E F des chifrres de ventes

Je voudrais (via macro) cacher toutes les lignes qui contiennent une
cellule vide
dans la plage B2:F6000
Et puis je ferais mon total avec le fameux 109 découvert il y a
quelques jours (ça, c'est un truc qu'est bon ça)

J'ai commencé un truc et (bien entendu) je coince

Quel commande utilise-t-on pour que cela fonctionne

Ci-dessous le départ du code


A bientôt et merci

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
'
' Onlyallcollections Macro
' Macro recorded 30/08/2007 by
'
Application.ScreenUpdating = False
For Each C In Range([B2], [F6000])
If
et ici il faudrait dire
si une cellule entre B et F est vide
il faut cacher la ligne
EntireRow.Hidden = True
Else
End If
Next C

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub




























rthompson
Le #4680891
Désolé

Mais (et je le sais) je m'explique mal

Tu arrive au même résultat que moi

Et ce sont les cellules vides qui sont coloriées

Je voudrais que dans la plage A2:E6000

par exemple si D4 est vide
les cellules A4:E4 soient coloriées
Et pas uniquement les cellules vides ni la ligne complète
ça c'est pour le truc actuel

La suite c'est pour tout à fait autre chose
je voudrais que si dans une cellule H45 il y "Paid"
les cellules A45:C45 soient coloriés

Mais si tu parviens à me résoudre le premier,
il "FAUT" que je sois capable de résoudre le deuxième

A bientôt

Et merci

Rex ;-))) )))





"papou" %
Rex
Tu n'es pas loin :

With Range("A2:E6000").SpecialCells(xlCellTypeBlanks).Interior
.ColorIndex = 6
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

Par contre moi pas comprendre ensuite :
"" et en plus pour un autre projet comment faire pour
"" que ce soit une cellule spécifique qui soit coloriée


Cordialement
Pascal

"rthompson" news: OPLan$
Bonjour

C'est encore moi
Et j'espère que tu es encore là ;-))))))


Dans le code ci-dessous (qui fonctionne MERCI)

Seul les cellules vides sont coloriés
Si je fais entirerow c'est toute la ligne qui est coloré (c'est logique)

Mais comment faire pour que tout les cellules de cette ligne mais
uniquement de la plage soient coloriées

Dans mon exemple je voudrais que se soit les cellules entre les colonnes
A et E qui soient coloriées et pas toute la ligne

A bientôt

Et merci

Rex

xxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).Select
'''' ici il faudrait dire que les lignes dont il y a une
cellule vide sont coloriés
"" mais seulement de la colonne A à la colonne E
"" et en plus pour un autre projet comment faire pour
"" que ce soit une cellule spécifique qui soit coloriée
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et puis je vais un peu jouer avec les palettes de Gedee
Cela promet du plaisir

Rex ;-))) )))




"papou" news: %
My pleasure!

Cordialement
Pascal

"rthompson" de news:
Bonjour et MERCI

C'est bizarre j'aurais pas cru que les With et End With empêchait le
bon fonctionnement

Voici ce qui GRACE A TOI fonctionne

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
True
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

En me basant sur ces lignes je vais essayer de faire un truc dans le
genre

Si en A2 j'ai PAID je vais colorier les cellules A2:H2 en vertclair

Si j'y arrive pas je relancerais le fil

A bientôt

Et surtout merci

Rex ;-))) )))






"papou" news:
Re
(je suis aussi en Excel 2003)
La syntaxe telle que je te l'ai fournie fonctionne avec les critères
que tu as donnés :
With Range("B2:E6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End with

Soit sur 3 lignes
Si tu veux le mettre sur une seule ligne :
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
True

Cordialement
Pascal

"rthompson" de news:
Bonjour et merci

Voici ce que j'ai maintenant

xxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
Application.ScreenUpdating = False
With
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
True
End With
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxx

Mais cela ne réagit pas
Je suis en Excel 2003 (à tout hasard)

Ce que je faisais jusqu'à présent était ceci

Dans une colonne H j'ai la formule
=IF(B2=0;0;IF(C2=0;0;IF(D2=0;0;IF(E2=0;0;SUM(B2:E2)))))
Et puis je fais un tri descendant sur cette colonne
Et je les cache manuellement
Mais c'est long

Il peut n'y avoir qu'une cellule de vide sur une ligne ou plusieurs
Et c'est seulement si TOUTES les cellule de la ligne entre B et E
sont remplies
qu'elles doivent rester visibles

A bientôt et encore merci

Rex





"papou" de news:
Bonjour
With Range("B2:F6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End With

Cordialement
Pascal

"rthompson" message de news:
Bonjour à toutes et tous

Avant de poser une question

Le fait de nettoyer sa BAL accélère "SERIEUSEMENT" votre vitesse
Pensez-y et merci pour le conseil

Back to work

Dans la colonne A les noms

Dans les colonne B C D E F des chifrres de ventes

Je voudrais (via macro) cacher toutes les lignes qui contiennent
une cellule vide
dans la plage B2:F6000
Et puis je ferais mon total avec le fameux 109 découvert il y a
quelques jours (ça, c'est un truc qu'est bon ça)

J'ai commencé un truc et (bien entendu) je coince

Quel commande utilise-t-on pour que cela fonctionne

Ci-dessous le départ du code


A bientôt et merci

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
'
' Onlyallcollections Macro
' Macro recorded 30/08/2007 by
'
Application.ScreenUpdating = False
For Each C In Range([B2], [F6000])
If
et ici il faudrait dire
si une cellule entre B et F est vide
il faut cacher la ligne
EntireRow.Hidden = True
Else
End If
Next C

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub
































papou
Le #4680881
Rex
Dans ces conditions il serait plus simple d'utiliser la mise en forme
conditionnelle je pense.
Cordialement
Pascal

"rthompson" news:
Désolé

Mais (et je le sais) je m'explique mal

Tu arrive au même résultat que moi

Et ce sont les cellules vides qui sont coloriées

Je voudrais que dans la plage A2:E6000

par exemple si D4 est vide
les cellules A4:E4 soient coloriées
Et pas uniquement les cellules vides ni la ligne complète
ça c'est pour le truc actuel

La suite c'est pour tout à fait autre chose
je voudrais que si dans une cellule H45 il y "Paid"
les cellules A45:C45 soient coloriés

Mais si tu parviens à me résoudre le premier,
il "FAUT" que je sois capable de résoudre le deuxième

A bientôt

Et merci

Rex ;-))) )))





"papou" news: %
Rex
Tu n'es pas loin :

With Range("A2:E6000").SpecialCells(xlCellTypeBlanks).Interior
.ColorIndex = 6
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

Par contre moi pas comprendre ensuite :
"" et en plus pour un autre projet comment faire pour
"" que ce soit une cellule spécifique qui soit coloriée


Cordialement
Pascal

"rthompson" news: OPLan$
Bonjour

C'est encore moi
Et j'espère que tu es encore là ;-))))))


Dans le code ci-dessous (qui fonctionne MERCI)

Seul les cellules vides sont coloriés
Si je fais entirerow c'est toute la ligne qui est coloré (c'est
logique)

Mais comment faire pour que tout les cellules de cette ligne mais
uniquement de la plage soient coloriées

Dans mon exemple je voudrais que se soit les cellules entre les colonnes
A et E qui soient coloriées et pas toute la ligne

A bientôt

Et merci

Rex

xxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).Select
'''' ici il faudrait dire que les lignes dont il y a une
cellule vide sont coloriés
"" mais seulement de la colonne A à la colonne E
"" et en plus pour un autre projet comment faire pour
"" que ce soit une cellule spécifique qui soit coloriée
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et puis je vais un peu jouer avec les palettes de Gedee
Cela promet du plaisir

Rex ;-))) )))




"papou" news: %
My pleasure!

Cordialement
Pascal

"rthompson" de news:
Bonjour et MERCI

C'est bizarre j'aurais pas cru que les With et End With empêchait le
bon fonctionnement

Voici ce qui GRACE A TOI fonctionne

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
True
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

En me basant sur ces lignes je vais essayer de faire un truc dans le
genre

Si en A2 j'ai PAID je vais colorier les cellules A2:H2 en vertclair

Si j'y arrive pas je relancerais le fil

A bientôt

Et surtout merci

Rex ;-))) )))






"papou" news:
Re
(je suis aussi en Excel 2003)
La syntaxe telle que je te l'ai fournie fonctionne avec les critères
que tu as donnés :
With Range("B2:E6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End with

Soit sur 3 lignes
Si tu veux le mettre sur une seule ligne :
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
True

Cordialement
Pascal

"rthompson" message de news:
Bonjour et merci

Voici ce que j'ai maintenant

xxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
Application.ScreenUpdating = False
With
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
True
End With
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxx

Mais cela ne réagit pas
Je suis en Excel 2003 (à tout hasard)

Ce que je faisais jusqu'à présent était ceci

Dans une colonne H j'ai la formule
=IF(B2=0;0;IF(C2=0;0;IF(D2=0;0;IF(E2=0;0;SUM(B2:E2)))))
Et puis je fais un tri descendant sur cette colonne
Et je les cache manuellement
Mais c'est long

Il peut n'y avoir qu'une cellule de vide sur une ligne ou plusieurs
Et c'est seulement si TOUTES les cellule de la ligne entre B et E
sont remplies
qu'elles doivent rester visibles

A bientôt et encore merci

Rex





"papou" de news:
Bonjour
With Range("B2:F6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End With

Cordialement
Pascal

"rthompson" message de news:
Bonjour à toutes et tous

Avant de poser une question

Le fait de nettoyer sa BAL accélère "SERIEUSEMENT" votre vitesse
Pensez-y et merci pour le conseil

Back to work

Dans la colonne A les noms

Dans les colonne B C D E F des chifrres de ventes

Je voudrais (via macro) cacher toutes les lignes qui contiennent
une cellule vide
dans la plage B2:F6000
Et puis je ferais mon total avec le fameux 109 découvert il y a
quelques jours (ça, c'est un truc qu'est bon ça)

J'ai commencé un truc et (bien entendu) je coince

Quel commande utilise-t-on pour que cela fonctionne

Ci-dessous le départ du code


A bientôt et merci

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
'
' Onlyallcollections Macro
' Macro recorded 30/08/2007 by
'
Application.ScreenUpdating = False
For Each C In Range([B2], [F6000])
If
et ici il faudrait dire
si une cellule entre B et F est vide
il faut cacher la ligne
EntireRow.Hidden = True
Else
End If
Next C

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub




































papou
Le #4680871
Rex
Mais si tu y tiens vraiment voici une méthode :
Dim rng As Range
For Each rng In Range("A2:F6000").SpecialCells(xlCellTypeBlanks)
With Range("A" & rng.Row & ":E" & rng.Row).Interior
.ColorIndex = 6
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Next rng

Cordialement
Pascal

"papou"
Rex
Dans ces conditions il serait plus simple d'utiliser la mise en forme
conditionnelle je pense.
Cordialement
Pascal

"rthompson" news:
Désolé

Mais (et je le sais) je m'explique mal

Tu arrive au même résultat que moi

Et ce sont les cellules vides qui sont coloriées

Je voudrais que dans la plage A2:E6000

par exemple si D4 est vide
les cellules A4:E4 soient coloriées
Et pas uniquement les cellules vides ni la ligne complète
ça c'est pour le truc actuel

La suite c'est pour tout à fait autre chose
je voudrais que si dans une cellule H45 il y "Paid"
les cellules A45:C45 soient coloriés

Mais si tu parviens à me résoudre le premier,
il "FAUT" que je sois capable de résoudre le deuxième

A bientôt

Et merci

Rex ;-))) )))





"papou" news: %
Rex
Tu n'es pas loin :

With Range("A2:E6000").SpecialCells(xlCellTypeBlanks).Interior
.ColorIndex = 6
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

Par contre moi pas comprendre ensuite :
"" et en plus pour un autre projet comment faire pour
"" que ce soit une cellule spécifique qui soit coloriée


Cordialement
Pascal

"rthompson" de news: OPLan$
Bonjour

C'est encore moi
Et j'espère que tu es encore là ;-))))))


Dans le code ci-dessous (qui fonctionne MERCI)

Seul les cellules vides sont coloriés
Si je fais entirerow c'est toute la ligne qui est coloré (c'est
logique)

Mais comment faire pour que tout les cellules de cette ligne mais
uniquement de la plage soient coloriées

Dans mon exemple je voudrais que se soit les cellules entre les
colonnes A et E qui soient coloriées et pas toute la ligne

A bientôt

Et merci

Rex

xxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).Select
'''' ici il faudrait dire que les lignes dont il y a une
cellule vide sont coloriés
"" mais seulement de la colonne A à la colonne E
"" et en plus pour un autre projet comment faire pour
"" que ce soit une cellule spécifique qui soit coloriée
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et puis je vais un peu jouer avec les palettes de Gedee
Cela promet du plaisir

Rex ;-))) )))




"papou" news: %
My pleasure!

Cordialement
Pascal

"rthompson" de news:
Bonjour et MERCI

C'est bizarre j'aurais pas cru que les With et End With empêchait le
bon fonctionnement

Voici ce qui GRACE A TOI fonctionne

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
True
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

En me basant sur ces lignes je vais essayer de faire un truc dans le
genre

Si en A2 j'ai PAID je vais colorier les cellules A2:H2 en vertclair

Si j'y arrive pas je relancerais le fil

A bientôt

Et surtout merci

Rex ;-))) )))






"papou" de news:
Re
(je suis aussi en Excel 2003)
La syntaxe telle que je te l'ai fournie fonctionne avec les critères
que tu as donnés :
With Range("B2:E6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End with

Soit sur 3 lignes
Si tu veux le mettre sur une seule ligne :
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
True

Cordialement
Pascal

"rthompson" message de news:
Bonjour et merci

Voici ce que j'ai maintenant

xxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
Application.ScreenUpdating = False
With
Range("B2:E6000").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden =
True
End With
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxx

Mais cela ne réagit pas
Je suis en Excel 2003 (à tout hasard)

Ce que je faisais jusqu'à présent était ceci

Dans une colonne H j'ai la formule
=IF(B2=0;0;IF(C2=0;0;IF(D2=0;0;IF(E2=0;0;SUM(B2:E2)))))
Et puis je fais un tri descendant sur cette colonne
Et je les cache manuellement
Mais c'est long

Il peut n'y avoir qu'une cellule de vide sur une ligne ou plusieurs
Et c'est seulement si TOUTES les cellule de la ligne entre B et E
sont remplies
qu'elles doivent rester visibles

A bientôt et encore merci

Rex





"papou" de news:
Bonjour
With Range("B2:F6000").SpecialCells(xlCellTypeBlanks)
.EntireRow.Hidden = True
End With

Cordialement
Pascal

"rthompson" message de news:
Bonjour à toutes et tous

Avant de poser une question

Le fait de nettoyer sa BAL accélère "SERIEUSEMENT" votre vitesse
Pensez-y et merci pour le conseil

Back to work

Dans la colonne A les noms

Dans les colonne B C D E F des chifrres de ventes

Je voudrais (via macro) cacher toutes les lignes qui contiennent
une cellule vide
dans la plage B2:F6000
Et puis je ferais mon total avec le fameux 109 découvert il y a
quelques jours (ça, c'est un truc qu'est bon ça)

J'ai commencé un truc et (bien entendu) je coince

Quel commande utilise-t-on pour que cela fonctionne

Ci-dessous le départ du code


A bientôt et merci

Rex ;-))) )))

xxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Onlyallcollections()
'
' Onlyallcollections Macro
' Macro recorded 30/08/2007 by
'
Application.ScreenUpdating = False
For Each C In Range([B2], [F6000])
If
et ici il faudrait dire
si une cellule entre B et F est vide
il faut cacher la ligne
EntireRow.Hidden = True
Else
End If
Next C

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub








































Publicité
Poster une réponse
Anonyme