Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

(RESOLU)Valeur par défaut sur plusieur cellule

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

chaelie2015

XLDnaute Accro
Bonsoir forum
je souhaite adapter ce code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$4" Then
If Target.Value = "Non Reçu" Then Target.Value = ""
ElseIf Range("C4").Value = "" Then
Range("C4").Value = "Non Reçu"
End If
End Sub

sur plusieurs cellule de C4 A C12
SALUTATIONS

EDIT .
au lieu de mettre
..........................
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$C$4" Then
If Target.Value = "Non Reçu" Then Target.Value = ""
ElseIf Range("C4").Value = "" Then
Range("C4").Value = "Non Reçu"
End If

If Target.Address = "$C$5" Then
If Target.Value = "Non Reçu" Then Target.Value = ""
ElseIf Range("C5").Value = "" Then
Range("C5").Value = "Non Reçu"
End If

If Target.Address = "$C$6" Then
If Target.Value = "Non Reçu" Then Target.Value = ""
ElseIf Range("C6").Value = "" Then
Range("C6").Value = "Non Reçu"
End If

If Target.Address = "$C$7" Then
If Target.Value = "Non Reçu" Then Target.Value = ""
ElseIf Range("C7").Value = "" Then
Range("C7").Value = "Non Reçu"
End If

If Target.Address = "$C$8" Then
If Target.Value = "Non Reçu" Then Target.Value = ""
ElseIf Range("C8").Value = "" Then
Range("C8").Value = "Non Reçu"
End If

If Target.Address = "$C$9" Then
If Target.Value = "Non Reçu" Then Target.Value = ""
ElseIf Range("C9").Value = "" Then
Range("C9").Value = "Non Reçu"
End If

If Target.Address = "$C$10" Then
If Target.Value = "Non Reçu" Then Target.Value = ""
ElseIf Range("C10").Value = "" Then
Range("C10").Value = "Non Reçu"
End If

If Target.Address = "$C$11" Then
If Target.Value = "Non Reçu" Then Target.Value = ""
ElseIf Range("C11").Value = "" Then
Range("C11").Value = "Non Reçu"
End If

If Target.Address = "$C$12" Then
If Target.Value = "Non Reçu" Then Target.Value = ""
ElseIf Range("C12").Value = "" Then
Range("C12").Value = "Non Reçu"
End If
End Sub
................................................
 
Dernière édition:
Trier par date Trier par votes
Re : Valeur par défaut sur plusieur cellule

Bonjour à tous,

Peux-tu essayer ceci :

VB: 
Sub Test()
    Dim Cel As Range
    For Each Cel In Range("C4:C12")
        If Cel = "Non Reçu" Then
            Cel = ""
        ElseIf Cel = "" Then
            Cel = "Non Reçu"
        End If
    Next Cel
End Sub

ou

VB: 
Sub Test2()
    Dim Cel As Range
    For Each Cel In Range("C4:C12")
    Cel = IIf(Cel = "Non Reçu", "", "Non Reçu")
    Next Cel
End Sub



A+ à tous
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Valeur par défaut sur plusieur cellule

Bonjour à tous,

Peux-tu essayer ceci :

VB: 
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Plage As Range
    Set Plage = Range("C4:C12")
    If Not Intersect(Plage, Target) Is Nothing Then Target = IIf(Target = "Non Reçu", "", "Non Reçu")
End Sub

A+ à tous
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
591
un internaute
U
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
285
TooFatBoy
  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
118
deudecos
  • Question Question
XL 2016 Renseigner une plage 2 a partir d'une plage 1 selon le mois.
Réponses
4
Affichages
235
KTM
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
202
anthoYS
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
476
job75
  • Résolu(e)
XL 2019 Insérer un commentaire après clic droit en X (colonne 24) ?
Réponses
2
Affichages
149
anthoYS
  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
242
Nicolas JACQUIN
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
683
un internaute
U
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
249
anthoYS
A
  • Résolu(e)
XL 2010 Private Sub Worksheet_Change
Réponses
2
Affichages
359
Atlas85200
A
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
408
nabilexcel2007
N
  • Résolu(e)
XL 2019 Clic droit en F doit afficher la fenêtre de commentaire, prêt à saisir vierge. Qu'est-ce qui cloche ici ? ça copie...
Réponses
1
Affichages
123
anthoYS
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
421
un internaute
U
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
423
sylvanu
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
225
patricko-13
P
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
774
thunder23
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
C
  • Résolu(e)
XL 2016 Double-Clic dans une cellule déclenche l'événement Worksheet_Change
Réponses
7
Affichages
267
TooFatBoy
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
259
PRy
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…