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
MichDenis
Bonjour Suze32,
Tu devrais apporter des précisions sur ce que tu tentes de faire... "Faire apparaître des cellules" relève plus du prestidigitateur !
"suze32" a écrit dans le message de groupe de discussion :
Bonjour à tous,
Je cherche une macro ou une fonction sur Excel, me permettant de faire apparaître dans ma base de donnée, les cellules non coloriées.
Je vous remercie de vos réponses, bonne journée
Bonjour Suze32,
Tu devrais apporter des précisions sur ce que tu tentes de faire...
"Faire apparaître des cellules" relève plus du prestidigitateur !
"suze32" <suzescobar@gmail.com> a écrit dans le message de groupe de discussion :
647d0329-3a81-4065-a5cc-3687971bd7bb@w6g2000yqw.googlegroups.com...
Bonjour à tous,
Je cherche une macro ou une fonction sur Excel, me permettant de faire
apparaître dans ma base de donnée, les cellules non coloriées.
Tu devrais apporter des précisions sur ce que tu tentes de faire... "Faire apparaître des cellules" relève plus du prestidigitateur !
"suze32" a écrit dans le message de groupe de discussion :
Bonjour à tous,
Je cherche une macro ou une fonction sur Excel, me permettant de faire apparaître dans ma base de donnée, les cellules non coloriées.
Je vous remercie de vos réponses, bonne journée
FFO
Salut à toi
Aprés avoir sélectionné ta zone utilises ce code :
For Each c In Selection If c.Interior.ColorIndex = xlNone Then Trouvé = Trouvé & c.Address & vbLf End If Next MsgBox ("Cellule(s) non colorée(s) :" & vbLf & Trouvé)
Celà devrait te convenir
Dis moi !!!!!!
Salut à toi
Aprés avoir sélectionné ta zone utilises ce code :
For Each c In Selection
If c.Interior.ColorIndex = xlNone Then
Trouvé = Trouvé & c.Address & vbLf
End If
Next
MsgBox ("Cellule(s) non colorée(s) :" & vbLf & Trouvé)
Aprés avoir sélectionné ta zone utilises ce code :
For Each c In Selection If c.Interior.ColorIndex = xlNone Then Trouvé = Trouvé & c.Address & vbLf End If Next MsgBox ("Cellule(s) non colorée(s) :" & vbLf & Trouvé)
Celà devrait te convenir
Dis moi !!!!!!
suze32
On 6 août, 13:14, FFO wrote:
Salut à toi
Aprés avoir sélectionné ta zone utilises ce code :
For Each c In Selection If c.Interior.ColorIndex = xlNone Then Trouvé = Trouvé & c.Address & vbLf End If Next MsgBox ("Cellule(s) non colorée(s) :" & vbLf & Trouvé)
Celà devrait te convenir
Dis moi !!!!!!
Rebonjour,
Effectivement je n'ai pas été très explicite, je reprend :
J'ai une base de donnée à 5 colonnes et + de 600 lignes (Date, Libellé, Détail, Montant, Devise). Dans ma base de donée, j'ai surlignée certaines lignes pour les regrouper (les prélevements sont en jaune, les retrait en orange...). Maintenant j'aimerais faire apparaitres toutes les lignes qui n'ont pas été colorés.
Je ne sais pas si cela est + clair pour vous maintenant.
FFO j'essaye ta macro et je te dit!
Merci encore pour vos autres réponses
On 6 août, 13:14, FFO <F...@discussions.microsoft.com> wrote:
Salut à toi
Aprés avoir sélectionné ta zone utilises ce code :
For Each c In Selection
If c.Interior.ColorIndex = xlNone Then
Trouvé = Trouvé & c.Address & vbLf
End If
Next
MsgBox ("Cellule(s) non colorée(s) :" & vbLf & Trouvé)
Celà devrait te convenir
Dis moi !!!!!!
Rebonjour,
Effectivement je n'ai pas été très explicite, je reprend :
J'ai une base de donnée à 5 colonnes et + de 600 lignes (Date,
Libellé, Détail, Montant, Devise). Dans ma base de donée, j'ai
surlignée certaines lignes pour les regrouper (les prélevements sont
en jaune, les retrait en orange...). Maintenant j'aimerais faire
apparaitres toutes les lignes qui n'ont pas été colorés.
Je ne sais pas si cela est + clair pour vous maintenant.
Aprés avoir sélectionné ta zone utilises ce code :
For Each c In Selection If c.Interior.ColorIndex = xlNone Then Trouvé = Trouvé & c.Address & vbLf End If Next MsgBox ("Cellule(s) non colorée(s) :" & vbLf & Trouvé)
Celà devrait te convenir
Dis moi !!!!!!
Rebonjour,
Effectivement je n'ai pas été très explicite, je reprend :
J'ai une base de donnée à 5 colonnes et + de 600 lignes (Date, Libellé, Détail, Montant, Devise). Dans ma base de donée, j'ai surlignée certaines lignes pour les regrouper (les prélevements sont en jaune, les retrait en orange...). Maintenant j'aimerais faire apparaitres toutes les lignes qui n'ont pas été colorés.
Je ne sais pas si cela est + clair pour vous maintenant.
FFO j'essaye ta macro et je te dit!
Merci encore pour vos autres réponses
Jacquouille
Bonsoir Pourquoi ne fais-tu pas un filtre avec ta quatrième colonne "montant" < 0 (donc négatif, donc prélèvement) Copier-coller ce qui reste, puis refaire un filtre avec montant<0, d'où positif, d'où encaissement. D' autre part, quelle est la différence entre un retrait et un prélèvement ?
Ou, alors, reprendre l'idée de la macro de FFO
derL = [A65536].End(3).Row For Each c In Range("a1:e"&derL) If c.Interior.ColorIndex <> xlNone Then Rows(c).Delete end if next
Bonne chance
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"suze32" a écrit dans le message de news:
On 6 août, 13:14, FFO wrote:
Salut à toi
Aprés avoir sélectionné ta zone utilises ce code :
For Each c In Selection If c.Interior.ColorIndex = xlNone Then Trouvé = Trouvé & c.Address & vbLf End If Next MsgBox ("Cellule(s) non colorée(s) :" & vbLf & Trouvé)
Celà devrait te convenir
Dis moi !!!!!!
Rebonjour,
Effectivement je n'ai pas été très explicite, je reprend :
J'ai une base de donnée à 5 colonnes et + de 600 lignes (Date, Libellé, Détail, Montant, Devise). Dans ma base de donée, j'ai surlignée certaines lignes pour les regrouper (les prélevements sont en jaune, les retrait en orange...). Maintenant j'aimerais faire apparaitres toutes les lignes qui n'ont pas été colorés.
Je ne sais pas si cela est + clair pour vous maintenant.
FFO j'essaye ta macro et je te dit!
Merci encore pour vos autres réponses
Bonsoir
Pourquoi ne fais-tu pas un filtre avec ta quatrième colonne "montant" < 0
(donc négatif, donc prélèvement)
Copier-coller ce qui reste, puis refaire un filtre avec montant<0, d'où
positif, d'où encaissement.
D' autre part, quelle est la différence entre un retrait et un prélèvement ?
Ou, alors, reprendre l'idée de la macro de FFO
derL = [A65536].End(3).Row
For Each c In Range("a1:e"&derL)
If c.Interior.ColorIndex <> xlNone Then Rows(c).Delete
end if
next
Bonne chance
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"suze32" <suzescobar@gmail.com> a écrit dans le message de news:
3c5d1260-6e43-4285-af3e-334e0116b850@t13g2000yqt.googlegroups.com...
On 6 août, 13:14, FFO <F...@discussions.microsoft.com> wrote:
Salut à toi
Aprés avoir sélectionné ta zone utilises ce code :
For Each c In Selection
If c.Interior.ColorIndex = xlNone Then
Trouvé = Trouvé & c.Address & vbLf
End If
Next
MsgBox ("Cellule(s) non colorée(s) :" & vbLf & Trouvé)
Celà devrait te convenir
Dis moi !!!!!!
Rebonjour,
Effectivement je n'ai pas été très explicite, je reprend :
J'ai une base de donnée à 5 colonnes et + de 600 lignes (Date,
Libellé, Détail, Montant, Devise). Dans ma base de donée, j'ai
surlignée certaines lignes pour les regrouper (les prélevements sont
en jaune, les retrait en orange...). Maintenant j'aimerais faire
apparaitres toutes les lignes qui n'ont pas été colorés.
Je ne sais pas si cela est + clair pour vous maintenant.
Bonsoir Pourquoi ne fais-tu pas un filtre avec ta quatrième colonne "montant" < 0 (donc négatif, donc prélèvement) Copier-coller ce qui reste, puis refaire un filtre avec montant<0, d'où positif, d'où encaissement. D' autre part, quelle est la différence entre un retrait et un prélèvement ?
Ou, alors, reprendre l'idée de la macro de FFO
derL = [A65536].End(3).Row For Each c In Range("a1:e"&derL) If c.Interior.ColorIndex <> xlNone Then Rows(c).Delete end if next
Bonne chance
-- Bien amicalmement, "Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"suze32" a écrit dans le message de news:
On 6 août, 13:14, FFO wrote:
Salut à toi
Aprés avoir sélectionné ta zone utilises ce code :
For Each c In Selection If c.Interior.ColorIndex = xlNone Then Trouvé = Trouvé & c.Address & vbLf End If Next MsgBox ("Cellule(s) non colorée(s) :" & vbLf & Trouvé)
Celà devrait te convenir
Dis moi !!!!!!
Rebonjour,
Effectivement je n'ai pas été très explicite, je reprend :
J'ai une base de donnée à 5 colonnes et + de 600 lignes (Date, Libellé, Détail, Montant, Devise). Dans ma base de donée, j'ai surlignée certaines lignes pour les regrouper (les prélevements sont en jaune, les retrait en orange...). Maintenant j'aimerais faire apparaitres toutes les lignes qui n'ont pas été colorés.
Je ne sais pas si cela est + clair pour vous maintenant.