Suppression contenu d'une plage de cellules en fonction de leur valeur

Bonjour.

J'ai une question sur la manière de procéder pour sélectionner une

plage, de B5 à BD19 comme dans le fichier joint, et lancer une macro

d'effacement de leur contenu seulement si au moins une de ces cellules

contient une autre valeur que 1.

Et si c'est possible, qu'au lancement de la procédure, si toutes les

cellules ne contiennent que la valeur 1, qu'un message indique qu'il n'y

a rien à supprimer et sortir alors de la procédure.

Merci pour votre aide.

Je cherche depuis des jours et j'ai essayé des tas de choses et je coince.

Bonjour

Souhaites tu effacer ou mettre un 1?

si joint ma solution en mettant un 1

A+ François

Bonjour,

Vous pouvez faire comme ceci :

Public Sub CleanPlage()
  Dim plage As Range
  Set plage = ThisWorkbook.Worksheets(1).Range("B5:BD19")

  ' verif
  If WorksheetFunction.CountIf(plage, 1) = plage.Count Then
    MsgBox "La plage est vide", vbInformation
    Exit Sub
  End If

  plage.Clear
End Sub

Edit : oui effectivement comme di fanfan si vous voulez mettre des 1 ce n'est pas Clear qu'il faut faire...

Bonjour marcache (sur XLP) et achaime (sur XLD),

Il est malvenu de poster la même question sur différents forum.

Lire le point suivant de la charte de XLP:

Ne postez pas la même question sur un autre forum pour éviter de faire perdre bêtement du temps aux membres sur un problème qui peut être déjà résolu sur l'autre forum. L'inverse est également valable, si vous avez déjà posé votre question sur un autre forum, ne créez pas un doublon sur ce forum (à moins d'avoir clôturé le sujet sur l'autre forum).

et aussi ce point de la charte de XLD:

2.10 - Évitez de poser votre question sur plusieurs forums sur Internet, cette pratique s'appelle "cross posting" et elle peut être mal perçue par les membres répondant aux questions. Si vous avez déjà posté votre question ailleurs, que nous n'avez pas de réponse satisfaisante et que vous voulez la reposter sur XLD, il est possible de supprimer votre discussion sur l'autre forum.

Cela fonctionne aussi dans l'autre sens si vous souhaitez poser votre question ailleurs.

Bonjour à tous.

mafraise, désolé, je ne fais jamais cela d'habitude.

Il se trouve que j'avais effectivement posé la même question sur l'autre forum, mais je ne le voyais pas apparaître et du coup j'ai relancé ici.

Et sinon, merci pour les réponses de saboh12617 et fanfan38.

Cela fonctionne et j'adapte en fonction.

Re marcache,

Hé bien tout s'explique

Merci pour votre retour, content d'aider.

N'oubliez pas de clôturer le fil, et je pense qu'il serait opportun (sur les 2 forums où vous avez posté) de mettre un renvoi (hyperlien) vers l'autre fil, afin que les futurs relecteurs s'y retrouvent.

Bonne journée.