Bonjour,
Encore une t'tite chose, mais qui me bloque :
J'ai un tableau avec des colonnes, chaque colonne contient des valeurs
(constantes) et des formules (sommes de certaines valeurs)
je voudrais faire la chose suivante :
Chaque mois, mettre aisément à Zéro toutes les valeurs (constantes).
Sachant que les zones ne sont pas contigues, et qu'elles sont trops
nombreuses pour leur affecter un seul nom,
j'ai fait la chose suivante :
Je demande à Excel de n'effacer que les valeurs dans chacune des colone
:
*-*-*-*
Sub remie_a_zero()
Range("E4:E231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Range("h4:h231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
(...)
end sub
*-*-*-*
(vous remarquerez que les colonnes ne sont pas contigues non plus.
Mais si Excel se trouve face à une sélection qui ne contient aucune
valeur,
la macro s'arrete (car message d'erreur)
j'ai alors pensé à ajouter un ON ERROR RESUME NEXT
mais alors là Excel ne tien plus du tout compte des critéres de
sélection,
et me supprime tout le contenu de la colonne.
j'ai essayé de faire un
SI (.....) alors
mais je me heurte à un blocage.
(désolé pour ce roman, mais j'ai pas réussi à faire clair, en
considérant
que ceci soit clair; et concis)
Merci
Bonjour,
Encore une t'tite chose, mais qui me bloque :
J'ai un tableau avec des colonnes, chaque colonne contient des valeurs
(constantes) et des formules (sommes de certaines valeurs)
je voudrais faire la chose suivante :
Chaque mois, mettre aisément à Zéro toutes les valeurs (constantes).
Sachant que les zones ne sont pas contigues, et qu'elles sont trops
nombreuses pour leur affecter un seul nom,
j'ai fait la chose suivante :
Je demande à Excel de n'effacer que les valeurs dans chacune des colone
:
*-*-*-*
Sub remie_a_zero()
Range("E4:E231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Range("h4:h231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
(...)
end sub
*-*-*-*
(vous remarquerez que les colonnes ne sont pas contigues non plus.
Mais si Excel se trouve face à une sélection qui ne contient aucune
valeur,
la macro s'arrete (car message d'erreur)
j'ai alors pensé à ajouter un ON ERROR RESUME NEXT
mais alors là Excel ne tien plus du tout compte des critéres de
sélection,
et me supprime tout le contenu de la colonne.
j'ai essayé de faire un
SI (.....) alors
mais je me heurte à un blocage.
(désolé pour ce roman, mais j'ai pas réussi à faire clair, en
considérant
que ceci soit clair; et concis)
Merci
Bonjour,
Encore une t'tite chose, mais qui me bloque :
J'ai un tableau avec des colonnes, chaque colonne contient des valeurs
(constantes) et des formules (sommes de certaines valeurs)
je voudrais faire la chose suivante :
Chaque mois, mettre aisément à Zéro toutes les valeurs (constantes).
Sachant que les zones ne sont pas contigues, et qu'elles sont trops
nombreuses pour leur affecter un seul nom,
j'ai fait la chose suivante :
Je demande à Excel de n'effacer que les valeurs dans chacune des colone
:
*-*-*-*
Sub remie_a_zero()
Range("E4:E231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Range("h4:h231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
(...)
end sub
*-*-*-*
(vous remarquerez que les colonnes ne sont pas contigues non plus.
Mais si Excel se trouve face à une sélection qui ne contient aucune
valeur,
la macro s'arrete (car message d'erreur)
j'ai alors pensé à ajouter un ON ERROR RESUME NEXT
mais alors là Excel ne tien plus du tout compte des critéres de
sélection,
et me supprime tout le contenu de la colonne.
j'ai essayé de faire un
SI (.....) alors
mais je me heurte à un blocage.
(désolé pour ce roman, mais j'ai pas réussi à faire clair, en
considérant
que ceci soit clair; et concis)
Merci
Bonjour,
Encore une t'tite chose, mais qui me bloque :
J'ai un tableau avec des colonnes, chaque colonne contient des valeurs
(constantes) et des formules (sommes de certaines valeurs)
je voudrais faire la chose suivante :
Chaque mois, mettre aisément à Zéro toutes les valeurs (constantes).
Sachant que les zones ne sont pas contigues, et qu'elles sont trops
nombreuses pour leur affecter un seul nom,
j'ai fait la chose suivante :
Je demande à Excel de n'effacer que les valeurs dans chacune des colone :
*-*-*-*
Sub remie_a_zero()
Range("E4:E231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Range("h4:h231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
(...)
end sub
*-*-*-*
(vous remarquerez que les colonnes ne sont pas contigues non plus.
Mais si Excel se trouve face à une sélection qui ne contient aucune valeur,
la macro s'arrete (car message d'erreur)
j'ai alors pensé à ajouter un ON ERROR RESUME NEXT
mais alors là Excel ne tien plus du tout compte des critéres de sélection,
et me supprime tout le contenu de la colonne.
j'ai essayé de faire un
SI (.....) alors
mais je me heurte à un blocage.
(désolé pour ce roman, mais j'ai pas réussi à faire clair, en considérant
que ceci soit clair; et concis)
Merci
Bonjour,
Encore une t'tite chose, mais qui me bloque :
J'ai un tableau avec des colonnes, chaque colonne contient des valeurs
(constantes) et des formules (sommes de certaines valeurs)
je voudrais faire la chose suivante :
Chaque mois, mettre aisément à Zéro toutes les valeurs (constantes).
Sachant que les zones ne sont pas contigues, et qu'elles sont trops
nombreuses pour leur affecter un seul nom,
j'ai fait la chose suivante :
Je demande à Excel de n'effacer que les valeurs dans chacune des colone :
*-*-*-*
Sub remie_a_zero()
Range("E4:E231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Range("h4:h231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
(...)
end sub
*-*-*-*
(vous remarquerez que les colonnes ne sont pas contigues non plus.
Mais si Excel se trouve face à une sélection qui ne contient aucune valeur,
la macro s'arrete (car message d'erreur)
j'ai alors pensé à ajouter un ON ERROR RESUME NEXT
mais alors là Excel ne tien plus du tout compte des critéres de sélection,
et me supprime tout le contenu de la colonne.
j'ai essayé de faire un
SI (.....) alors
mais je me heurte à un blocage.
(désolé pour ce roman, mais j'ai pas réussi à faire clair, en considérant
que ceci soit clair; et concis)
Merci
Bonjour,
Encore une t'tite chose, mais qui me bloque :
J'ai un tableau avec des colonnes, chaque colonne contient des valeurs
(constantes) et des formules (sommes de certaines valeurs)
je voudrais faire la chose suivante :
Chaque mois, mettre aisément à Zéro toutes les valeurs (constantes).
Sachant que les zones ne sont pas contigues, et qu'elles sont trops
nombreuses pour leur affecter un seul nom,
j'ai fait la chose suivante :
Je demande à Excel de n'effacer que les valeurs dans chacune des colone :
*-*-*-*
Sub remie_a_zero()
Range("E4:E231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Range("h4:h231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
(...)
end sub
*-*-*-*
(vous remarquerez que les colonnes ne sont pas contigues non plus.
Mais si Excel se trouve face à une sélection qui ne contient aucune valeur,
la macro s'arrete (car message d'erreur)
j'ai alors pensé à ajouter un ON ERROR RESUME NEXT
mais alors là Excel ne tien plus du tout compte des critéres de sélection,
et me supprime tout le contenu de la colonne.
j'ai essayé de faire un
SI (.....) alors
mais je me heurte à un blocage.
(désolé pour ce roman, mais j'ai pas réussi à faire clair, en considérant
que ceci soit clair; et concis)
Merci
bonjour,
On Error Resume Next
Range("E4:E231").SpecialCells(xlCellTypeConstants).ClearContents
Range("H4:H231").SpecialCells(xlCellTypeConstants).ClearContents
devrait suffire compte tenu de ton SpecialCells(xlCellTypeConstants,23)
qui
veut en fait dire que toutes les natures des cellules de type constantes
sont
selectionnables
Ai essayé aussi sur une feuille vierge et bien sur ne pose aucun problème
(grace à on error)
A+Bonjour,
Encore une t'tite chose, mais qui me bloque :
J'ai un tableau avec des colonnes, chaque colonne contient des valeurs
(constantes) et des formules (sommes de certaines valeurs)
je voudrais faire la chose suivante :
Chaque mois, mettre aisément à Zéro toutes les valeurs (constantes).
Sachant que les zones ne sont pas contigues, et qu'elles sont trops
nombreuses pour leur affecter un seul nom,
j'ai fait la chose suivante :
Je demande à Excel de n'effacer que les valeurs dans chacune des colone
:
*-*-*-*
Sub remie_a_zero()
Range("E4:E231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Range("h4:h231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
(...)
end sub
*-*-*-*
(vous remarquerez que les colonnes ne sont pas contigues non plus.
Mais si Excel se trouve face à une sélection qui ne contient aucune
valeur,
la macro s'arrete (car message d'erreur)
j'ai alors pensé à ajouter un ON ERROR RESUME NEXT
mais alors là Excel ne tien plus du tout compte des critéres de
sélection,
et me supprime tout le contenu de la colonne.
j'ai essayé de faire un
SI (.....) alors
mais je me heurte à un blocage.
(désolé pour ce roman, mais j'ai pas réussi à faire clair, en
considérant
que ceci soit clair; et concis)
Merci
bonjour,
On Error Resume Next
Range("E4:E231").SpecialCells(xlCellTypeConstants).ClearContents
Range("H4:H231").SpecialCells(xlCellTypeConstants).ClearContents
devrait suffire compte tenu de ton SpecialCells(xlCellTypeConstants,23)
qui
veut en fait dire que toutes les natures des cellules de type constantes
sont
selectionnables
Ai essayé aussi sur une feuille vierge et bien sur ne pose aucun problème
(grace à on error)
A+
Bonjour,
Encore une t'tite chose, mais qui me bloque :
J'ai un tableau avec des colonnes, chaque colonne contient des valeurs
(constantes) et des formules (sommes de certaines valeurs)
je voudrais faire la chose suivante :
Chaque mois, mettre aisément à Zéro toutes les valeurs (constantes).
Sachant que les zones ne sont pas contigues, et qu'elles sont trops
nombreuses pour leur affecter un seul nom,
j'ai fait la chose suivante :
Je demande à Excel de n'effacer que les valeurs dans chacune des colone
:
*-*-*-*
Sub remie_a_zero()
Range("E4:E231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Range("h4:h231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
(...)
end sub
*-*-*-*
(vous remarquerez que les colonnes ne sont pas contigues non plus.
Mais si Excel se trouve face à une sélection qui ne contient aucune
valeur,
la macro s'arrete (car message d'erreur)
j'ai alors pensé à ajouter un ON ERROR RESUME NEXT
mais alors là Excel ne tien plus du tout compte des critéres de
sélection,
et me supprime tout le contenu de la colonne.
j'ai essayé de faire un
SI (.....) alors
mais je me heurte à un blocage.
(désolé pour ce roman, mais j'ai pas réussi à faire clair, en
considérant
que ceci soit clair; et concis)
Merci
bonjour,
On Error Resume Next
Range("E4:E231").SpecialCells(xlCellTypeConstants).ClearContents
Range("H4:H231").SpecialCells(xlCellTypeConstants).ClearContents
devrait suffire compte tenu de ton SpecialCells(xlCellTypeConstants,23)
qui
veut en fait dire que toutes les natures des cellules de type constantes
sont
selectionnables
Ai essayé aussi sur une feuille vierge et bien sur ne pose aucun problème
(grace à on error)
A+Bonjour,
Encore une t'tite chose, mais qui me bloque :
J'ai un tableau avec des colonnes, chaque colonne contient des valeurs
(constantes) et des formules (sommes de certaines valeurs)
je voudrais faire la chose suivante :
Chaque mois, mettre aisément à Zéro toutes les valeurs (constantes).
Sachant que les zones ne sont pas contigues, et qu'elles sont trops
nombreuses pour leur affecter un seul nom,
j'ai fait la chose suivante :
Je demande à Excel de n'effacer que les valeurs dans chacune des colone
:
*-*-*-*
Sub remie_a_zero()
Range("E4:E231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Range("h4:h231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
(...)
end sub
*-*-*-*
(vous remarquerez que les colonnes ne sont pas contigues non plus.
Mais si Excel se trouve face à une sélection qui ne contient aucune
valeur,
la macro s'arrete (car message d'erreur)
j'ai alors pensé à ajouter un ON ERROR RESUME NEXT
mais alors là Excel ne tien plus du tout compte des critéres de
sélection,
et me supprime tout le contenu de la colonne.
j'ai essayé de faire un
SI (.....) alors
mais je me heurte à un blocage.
(désolé pour ce roman, mais j'ai pas réussi à faire clair, en
considérant
que ceci soit clair; et concis)
Merci
Bonjour Fredo
Et avec:
'---------
Range("E4:E231").ClearContents
'---------
Salutations
JJ
"Fredo (67)" a écrit dans le message de
news:Bonjour,
Encore une t'tite chose, mais qui me bloque :
J'ai un tableau avec des colonnes, chaque colonne contient des valeurs
(constantes) et des formules (sommes de certaines valeurs)
je voudrais faire la chose suivante :
Chaque mois, mettre aisément à Zéro toutes les valeurs (constantes).
Sachant que les zones ne sont pas contigues, et qu'elles sont trops
nombreuses pour leur affecter un seul nom,
j'ai fait la chose suivante :
Je demande à Excel de n'effacer que les valeurs dans chacune des
colone
:*-*-*-*
Sub remie_a_zero()
Range("E4:E231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Range("h4:h231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
(...)
end sub
*-*-*-*
(vous remarquerez que les colonnes ne sont pas contigues non plus.
Mais si Excel se trouve face à une sélection qui ne contient aucune
valeur,la macro s'arrete (car message d'erreur)
j'ai alors pensé à ajouter un ON ERROR RESUME NEXT
mais alors là Excel ne tien plus du tout compte des critéres de
sélection,et me supprime tout le contenu de la colonne.
j'ai essayé de faire un
SI (.....) alors
mais je me heurte à un blocage.
(désolé pour ce roman, mais j'ai pas réussi à faire clair, en
considérantque ceci soit clair; et concis)
Merci
Bonjour Fredo
Et avec:
'---------
Range("E4:E231").ClearContents
'---------
Salutations
JJ
"Fredo (67)" <bidon@free.fr> a écrit dans le message de
news:e9lY1lQXFHA.2288@TK2MSFTNGP14.phx.gbl...
Bonjour,
Encore une t'tite chose, mais qui me bloque :
J'ai un tableau avec des colonnes, chaque colonne contient des valeurs
(constantes) et des formules (sommes de certaines valeurs)
je voudrais faire la chose suivante :
Chaque mois, mettre aisément à Zéro toutes les valeurs (constantes).
Sachant que les zones ne sont pas contigues, et qu'elles sont trops
nombreuses pour leur affecter un seul nom,
j'ai fait la chose suivante :
Je demande à Excel de n'effacer que les valeurs dans chacune des
colone
:
*-*-*-*
Sub remie_a_zero()
Range("E4:E231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Range("h4:h231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
(...)
end sub
*-*-*-*
(vous remarquerez que les colonnes ne sont pas contigues non plus.
Mais si Excel se trouve face à une sélection qui ne contient aucune
valeur,
la macro s'arrete (car message d'erreur)
j'ai alors pensé à ajouter un ON ERROR RESUME NEXT
mais alors là Excel ne tien plus du tout compte des critéres de
sélection,
et me supprime tout le contenu de la colonne.
j'ai essayé de faire un
SI (.....) alors
mais je me heurte à un blocage.
(désolé pour ce roman, mais j'ai pas réussi à faire clair, en
considérant
que ceci soit clair; et concis)
Merci
Bonjour Fredo
Et avec:
'---------
Range("E4:E231").ClearContents
'---------
Salutations
JJ
"Fredo (67)" a écrit dans le message de
news:Bonjour,
Encore une t'tite chose, mais qui me bloque :
J'ai un tableau avec des colonnes, chaque colonne contient des valeurs
(constantes) et des formules (sommes de certaines valeurs)
je voudrais faire la chose suivante :
Chaque mois, mettre aisément à Zéro toutes les valeurs (constantes).
Sachant que les zones ne sont pas contigues, et qu'elles sont trops
nombreuses pour leur affecter un seul nom,
j'ai fait la chose suivante :
Je demande à Excel de n'effacer que les valeurs dans chacune des
colone
:*-*-*-*
Sub remie_a_zero()
Range("E4:E231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Range("h4:h231").Select
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
(...)
end sub
*-*-*-*
(vous remarquerez que les colonnes ne sont pas contigues non plus.
Mais si Excel se trouve face à une sélection qui ne contient aucune
valeur,la macro s'arrete (car message d'erreur)
j'ai alors pensé à ajouter un ON ERROR RESUME NEXT
mais alors là Excel ne tien plus du tout compte des critéres de
sélection,et me supprime tout le contenu de la colonne.
j'ai essayé de faire un
SI (.....) alors
mais je me heurte à un blocage.
(désolé pour ce roman, mais j'ai pas réussi à faire clair, en
considérantque ceci soit clair; et concis)
Merci
Bonjour.
Sub Efface(Plg As Range)
Dim Rg As Range
On Error Resume Next
Set Rg = Plg.SpecialCells(xlCellTypeConstants)
On Error GoTo 0
If Not Rg Is Nothing Then Rg.ClearContents
Set Rg = Nothing
End Sub
Sub RAZ()
Efface Range("E4:E231")
Efface Range("h4:h231")
End Sub
Alain CROS
"Fredo (67)" a écrit dans le message de news:
| Bonjour,
| Encore une t'tite chose, mais qui me bloque :
|
| J'ai un tableau avec des colonnes, chaque colonne contient des valeurs
| (constantes) et des formules (sommes de certaines valeurs)
|
| je voudrais faire la chose suivante :
| Chaque mois, mettre aisément à Zéro toutes les valeurs (constantes).
| Sachant que les zones ne sont pas contigues, et qu'elles sont trops
| nombreuses pour leur affecter un seul nom,
| j'ai fait la chose suivante :
|
| Je demande à Excel de n'effacer que les valeurs dans chacune des colone
:
| *-*-*-*
| Sub remie_a_zero()
| Range("E4:E231").Select
| Selection.SpecialCells(xlCellTypeConstants, 23).Select
| Selection.ClearContents
| Range("h4:h231").Select
| Selection.SpecialCells(xlCellTypeConstants, 23).Select
| Selection.ClearContents
| (...)
| end sub
| *-*-*-*
|
| (vous remarquerez que les colonnes ne sont pas contigues non plus.
|
| Mais si Excel se trouve face à une sélection qui ne contient aucune
valeur,
| la macro s'arrete (car message d'erreur)
|
| j'ai alors pensé à ajouter un ON ERROR RESUME NEXT
|
| mais alors là Excel ne tien plus du tout compte des critéres de
sélection,
| et me supprime tout le contenu de la colonne.
|
| j'ai essayé de faire un
| SI (.....) alors
|
| mais je me heurte à un blocage.
|
| (désolé pour ce roman, mais j'ai pas réussi à faire clair, en
considérant
| que ceci soit clair; et concis)
| Merci
|
|
Bonjour.
Sub Efface(Plg As Range)
Dim Rg As Range
On Error Resume Next
Set Rg = Plg.SpecialCells(xlCellTypeConstants)
On Error GoTo 0
If Not Rg Is Nothing Then Rg.ClearContents
Set Rg = Nothing
End Sub
Sub RAZ()
Efface Range("E4:E231")
Efface Range("h4:h231")
End Sub
Alain CROS
"Fredo (67)" <bidon@free.fr> a écrit dans le message de news:
e9lY1lQXFHA.2288@TK2MSFTNGP14.phx.gbl...
| Bonjour,
| Encore une t'tite chose, mais qui me bloque :
|
| J'ai un tableau avec des colonnes, chaque colonne contient des valeurs
| (constantes) et des formules (sommes de certaines valeurs)
|
| je voudrais faire la chose suivante :
| Chaque mois, mettre aisément à Zéro toutes les valeurs (constantes).
| Sachant que les zones ne sont pas contigues, et qu'elles sont trops
| nombreuses pour leur affecter un seul nom,
| j'ai fait la chose suivante :
|
| Je demande à Excel de n'effacer que les valeurs dans chacune des colone
:
| *-*-*-*
| Sub remie_a_zero()
| Range("E4:E231").Select
| Selection.SpecialCells(xlCellTypeConstants, 23).Select
| Selection.ClearContents
| Range("h4:h231").Select
| Selection.SpecialCells(xlCellTypeConstants, 23).Select
| Selection.ClearContents
| (...)
| end sub
| *-*-*-*
|
| (vous remarquerez que les colonnes ne sont pas contigues non plus.
|
| Mais si Excel se trouve face à une sélection qui ne contient aucune
valeur,
| la macro s'arrete (car message d'erreur)
|
| j'ai alors pensé à ajouter un ON ERROR RESUME NEXT
|
| mais alors là Excel ne tien plus du tout compte des critéres de
sélection,
| et me supprime tout le contenu de la colonne.
|
| j'ai essayé de faire un
| SI (.....) alors
|
| mais je me heurte à un blocage.
|
| (désolé pour ce roman, mais j'ai pas réussi à faire clair, en
considérant
| que ceci soit clair; et concis)
| Merci
|
|
Bonjour.
Sub Efface(Plg As Range)
Dim Rg As Range
On Error Resume Next
Set Rg = Plg.SpecialCells(xlCellTypeConstants)
On Error GoTo 0
If Not Rg Is Nothing Then Rg.ClearContents
Set Rg = Nothing
End Sub
Sub RAZ()
Efface Range("E4:E231")
Efface Range("h4:h231")
End Sub
Alain CROS
"Fredo (67)" a écrit dans le message de news:
| Bonjour,
| Encore une t'tite chose, mais qui me bloque :
|
| J'ai un tableau avec des colonnes, chaque colonne contient des valeurs
| (constantes) et des formules (sommes de certaines valeurs)
|
| je voudrais faire la chose suivante :
| Chaque mois, mettre aisément à Zéro toutes les valeurs (constantes).
| Sachant que les zones ne sont pas contigues, et qu'elles sont trops
| nombreuses pour leur affecter un seul nom,
| j'ai fait la chose suivante :
|
| Je demande à Excel de n'effacer que les valeurs dans chacune des colone
:
| *-*-*-*
| Sub remie_a_zero()
| Range("E4:E231").Select
| Selection.SpecialCells(xlCellTypeConstants, 23).Select
| Selection.ClearContents
| Range("h4:h231").Select
| Selection.SpecialCells(xlCellTypeConstants, 23).Select
| Selection.ClearContents
| (...)
| end sub
| *-*-*-*
|
| (vous remarquerez que les colonnes ne sont pas contigues non plus.
|
| Mais si Excel se trouve face à une sélection qui ne contient aucune
valeur,
| la macro s'arrete (car message d'erreur)
|
| j'ai alors pensé à ajouter un ON ERROR RESUME NEXT
|
| mais alors là Excel ne tien plus du tout compte des critéres de
sélection,
| et me supprime tout le contenu de la colonne.
|
| j'ai essayé de faire un
| SI (.....) alors
|
| mais je me heurte à un blocage.
|
| (désolé pour ce roman, mais j'ai pas réussi à faire clair, en
considérant
| que ceci soit clair; et concis)
| Merci
|
|