Discussion :

[aalex85]

Bonjour à tous,

Mon problème est surement simple mais je ne trouve pas la solution.....

Je souhaiterais que lorsqu'une des cellules de la plage "C5:C10" est vide, alors dans cette cellule vide soit retourné par défaut la valeur "Dispo"

Merci d'avance pour votre aide

aalex85

[BDA53]

Voici la solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub Valeur_Click()
   Dim l as Integer
   For l = 5 to 10
     If Worksheets("Feuil1").Cells(l,3) = "" Then Worksheets("Feuil1").Cells(l,3) = "Dispo"
   Next l
End Sub

Ps : Simplifie toi la vie en créeant un bouton de commande et clique droit sur le bouton et utilise l'option "visualiser le code" et copie le code suivant

Cordialement
xela57

[aalex85]

Merci xela57 pour cette réponse
Cela fonctionne comme je le souhaitais
J'ai juste modifié le début du code afin que la valeur "Dispo" s'affiche immédiatement lorsque la cellule est vide.
Voir fichier ci-joint
Cordialement
aalex85

[antonysansh]

Sinon sans bouton et avec l'évènement Change de la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(ActiveSheet.[C5:C10], Target) Is Nothing And Target = "" Then
        Target = "Dispo"
    End If
End Sub

A placer dans le module de la feuille en question.

Avec ça, "Dispo" arrive dès la frappe sur la touche Suppr du clavier si la cellule active est dans [C5:C10]

[aalex85]

Merci également antonysansh (Antony) pour ta réponse qui fonctionne également comme je le souhaitais.
Cordialement
aalex85