Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel suis-je victime d'une fatwa?

suis-je victime d'une fatwa?

19 réponses
Avatar
jps
bonjour m'sieurs dames
qu'ai-je encore fait au bon Dieu pour que mes versets ci-dessous soient ceux
de Satan?
et pourquoi que cette proc ne me supprime que les cellules vertes (émeraude,
certes) de la première ligne rencontrée par la boucle?
messieurs les jurés, mon client n'a pourtant rien fait et je vous remercie
de lui accorder non solum votre clémence sed etiam votre soutien...
jps

Sub test()
Dim c As Range
For Each c In Range("a2:H141")
If c.Interior.ColorIndex = 35 Then c.Delete
Next c
End Sub
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
Jacquouille
Salut Paulo
Tes cellules, elles sont colorisées à la menotte ou bien via une MEFC ?

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"jps" a écrit dans le message de news:

bonjour m'sieurs dames
qu'ai-je encore fait au bon Dieu pour que mes versets ci-dessous soient
ceux
de Satan?
et pourquoi que cette proc ne me supprime que les cellules vertes
(émeraude,
certes) de la première ligne rencontrée par la boucle?
messieurs les jurés, mon client n'a pourtant rien fait et je vous remercie
de lui accorder non solum votre clémence sed etiam votre soutien...
jps

Sub test()
Dim c As Range
For Each c In Range("a2:H141")
If c.Interior.ColorIndex = 35 Then c.Delete
Next c
End Sub





Avatar
RaMa
b*n JPS

teste ton verre

m'est avis que c'est 50 la couleur d'allah
salutations
RaMa

"jps" a écrit dans le message de news:

bonjour m'sieurs dames
qu'ai-je encore fait au bon Dieu pour que mes versets ci-dessous soient
ceux
de Satan?
et pourquoi que cette proc ne me supprime que les cellules vertes
(émeraude,
certes) de la première ligne rencontrée par la boucle?
messieurs les jurés, mon client n'a pourtant rien fait et je vous remercie
de lui accorder non solum votre clémence sed etiam votre soutien...
jps

Sub test()
Dim c As Range
For Each c In Range("a2:H141")
If c.Interior.ColorIndex = 35 Then c.Delete
Next c
End Sub





Avatar
Jacquouille
Re
Es-tu bien certain de l'indice des couleurs? Sont-elles bien toutes en 35
????

http://www.excelabo.net/xl/formats.php#chartescouleurs

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"jps" a écrit dans le message de news:

bonjour m'sieurs dames
qu'ai-je encore fait au bon Dieu pour que mes versets ci-dessous soient
ceux
de Satan?
et pourquoi que cette proc ne me supprime que les cellules vertes
(émeraude,
certes) de la première ligne rencontrée par la boucle?
messieurs les jurés, mon client n'a pourtant rien fait et je vous remercie
de lui accorder non solum votre clémence sed etiam votre soutien...
jps

Sub test()
Dim c As Range
For Each c In Range("a2:H141")
If c.Interior.ColorIndex = 35 Then c.Delete
Next c
End Sub





Avatar
jps
réponse collégiale à raoul et à jacquouille :
la couleur ne vient pas d'une MEFC et son index est bien 35...
je retourne sur mon tapis de prière
jps

"RaMa" a écrit dans le message de
news:
b*n JPS

teste ton verre

m'est avis que c'est 50 la couleur d'allah
salutations
RaMa

"jps" a écrit dans le message de news:

bonjour m'sieurs dames
qu'ai-je encore fait au bon Dieu pour que mes versets ci-dessous soient
ceux
de Satan?
et pourquoi que cette proc ne me supprime que les cellules vertes
(émeraude,
certes) de la première ligne rencontrée par la boucle?
messieurs les jurés, mon client n'a pourtant rien fait et je vous
remercie


de lui accorder non solum votre clémence sed etiam votre soutien...
jps

Sub test()
Dim c As Range
For Each c In Range("a2:H141")
If c.Interior.ColorIndex = 35 Then c.Delete
Next c
End Sub









Avatar
Daniel.M
Maître,

La destruction d'une cellule fait varier l'ordre de bouclage.
C'est pour ça qu'on doit passer de la dernière cellule à la première

Dim i&, j&, ii&, jj&, p As Range
Set p = Range("A2:H141")
ii = p.Rows.Count
jj = p.Columns.Count

For i = ii To 1 Step -1
For j = jj To 1 Step -1
If p(i, j).Interior.ColorIndex = 35 Then p(i, j).Delete Shift:=xlToLeft
Next j
Next i

Salutations,

Daniel M.

"jps" wrote in message
news:
bonjour m'sieurs dames
qu'ai-je encore fait au bon Dieu pour que mes versets ci-dessous soient ceux
de Satan?
et pourquoi que cette proc ne me supprime que les cellules vertes (émeraude,
certes) de la première ligne rencontrée par la boucle?
messieurs les jurés, mon client n'a pourtant rien fait et je vous remercie
de lui accorder non solum votre clémence sed etiam votre soutien...
jps

Sub test()
Dim c As Range
For Each c In Range("a2:H141")
If c.Interior.ColorIndex = 35 Then c.Delete
Next c
End Sub





Avatar
michelxld
bonjour à tous

Jps , tu peux tester

Sub test()
Dim i As Integer, j As Integer

For j = 141 To 2 Step -1
For i = 8 To 1 Step -1
If Cells(j, i).Interior.ColorIndex = 35 Then Cells(j, i).Delete
Next i
Next j
End Sub


bon week end
michel

"jps" wrote:

bonjour m'sieurs dames
qu'ai-je encore fait au bon Dieu pour que mes versets ci-dessous soient ceux
de Satan?
et pourquoi que cette proc ne me supprime que les cellules vertes (émeraude,
certes) de la première ligne rencontrée par la boucle?
messieurs les jurés, mon client n'a pourtant rien fait et je vous remercie
de lui accorder non solum votre clémence sed etiam votre soutien...
jps

Sub test()
Dim c As Range
For Each c In Range("a2:H141")
If c.Interior.ColorIndex = 35 Then c.Delete
Next c
End Sub






Avatar
jps
"Daniel.M" a écrit dans le message de
news:
Maître,
ah! que j'aime!

La destruction d'une cellule fait varier l'ordre de bouclage.
C'est pour ça qu'on doit passer de la dernière cellule à la première
je subodorais bien quelquechose de ce genre

Dim i&, j&, ii&, jj&, p As Range
Set p = Range("A2:H141")
ii = p.Rows.Count
jj = p.Columns.Count

For i = ii To 1 Step -1
For j = jj To 1 Step -1
If p(i, j).Interior.ColorIndex = 35 Then p(i, j).Delete
Shift:=xlToLeft

Next j
Next i

Salutations,
de même + tous mes remerciements pour ta réponse éclairée

Daniel M.
jps


"jps" wrote in message
news:
bonjour m'sieurs dames
qu'ai-je encore fait au bon Dieu pour que mes versets ci-dessous soient
ceux


de Satan?
et pourquoi que cette proc ne me supprime que les cellules vertes
(émeraude,


certes) de la première ligne rencontrée par la boucle?
messieurs les jurés, mon client n'a pourtant rien fait et je vous
remercie


de lui accorder non solum votre clémence sed etiam votre soutien...
jps

Sub test()
Dim c As Range
For Each c In Range("a2:H141")
If c.Interior.ColorIndex = 35 Then c.Delete
Next c
End Sub









Avatar
jps
merci michel, je teste mais suis déjà sûr que ça va marcher....
encore merci pour la peine
bon week end
jps

"michelxld" a écrit dans le message de
news:
bonjour à tous

Jps , tu peux tester

Sub test()
Dim i As Integer, j As Integer

For j = 141 To 2 Step -1
For i = 8 To 1 Step -1
If Cells(j, i).Interior.ColorIndex = 35 Then Cells(j, i).Delete
Next i
Next j
End Sub


bon week end
michel

"jps" wrote:

bonjour m'sieurs dames
qu'ai-je encore fait au bon Dieu pour que mes versets ci-dessous soient
ceux


de Satan?
et pourquoi que cette proc ne me supprime que les cellules vertes
(émeraude,


certes) de la première ligne rencontrée par la boucle?
messieurs les jurés, mon client n'a pourtant rien fait et je vous
remercie


de lui accorder non solum votre clémence sed etiam votre soutien...
jps

Sub test()
Dim c As Range
For Each c In Range("a2:H141")
If c.Interior.ColorIndex = 35 Then c.Delete
Next c
End Sub








Avatar
Jacquouille
Bonsoir Dan
Cette réflexion est parfaitement valable lorqu'il s'agit d'éliminer des
lignes contenant des doublons.
Mais ici, on ne détruit pas la cel, puisque l'on efface simplement son
contenu. J'en prends pour preuve que lorsque tu delete(s) A2, ni A1 ni A3
ne changent de place. Je ne comprends donc pas pourquoi la boucle for each
ne continue pas. Par contre, lorsque l'on analyse une ligne par rapport à
une autre et qu'on la supprime, la suivante remonte d'une ligne et devient
donc celle qui vient d'être étudiée, d'où Excel la laisse là car il
considère qu'il l'a déjà analysée.
Peux-tu m'expliquer le pourquoi du comment, svp?
Un bien grand merci.....

--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"Daniel.M" a écrit dans le message de
news:
Maître,

La destruction d'une cellule fait varier l'ordre de bouclage.
C'est pour ça qu'on doit passer de la dernière cellule à la première

Dim i&, j&, ii&, jj&, p As Range
Set p = Range("A2:H141")
ii = p.Rows.Count
jj = p.Columns.Count

For i = ii To 1 Step -1
For j = jj To 1 Step -1
If p(i, j).Interior.ColorIndex = 35 Then p(i, j).Delete
Shift:=xlToLeft
Next j
Next i

Salutations,

Daniel M.

"jps" wrote in message
news:
bonjour m'sieurs dames
qu'ai-je encore fait au bon Dieu pour que mes versets ci-dessous soient
ceux
de Satan?
et pourquoi que cette proc ne me supprime que les cellules vertes
(émeraude,
certes) de la première ligne rencontrée par la boucle?
messieurs les jurés, mon client n'a pourtant rien fait et je vous
remercie
de lui accorder non solum votre clémence sed etiam votre soutien...
jps

Sub test()
Dim c As Range
For Each c In Range("a2:H141")
If c.Interior.ColorIndex = 35 Then c.Delete
Next c
End Sub









Avatar
Frédo P
"jps" a écrit dans le message de
news:
merci michel, je teste mais suis déjà sûr que ça va marcher....
C'est ennuyeux la perte de mémoire, cela m'arrive aussi ,l'age n'arrange

rien, le "Saint Vie Vieux" non plus. Heureusement que l'on est pas tout seul
sur ce forum!

1 2