Valeur cellule sous conditions
Résolu/Fermé
Tuline
Messages postés
55
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
16 novembre 2018
-
26 mars 2018 à 16:25
Tuline Messages postés 55 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 16 novembre 2018 - 28 mars 2018 à 16:43
Tuline Messages postés 55 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 16 novembre 2018 - 28 mars 2018 à 16:43
A voir également:
- Valeur cellule sous conditions
- Excel cellule couleur si condition texte - Guide
- Verrouiller cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Attribuer une valeur à une cellule texte excel ✓ - Forum Excel
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié le 28 mars 2018 à 12:01
Modifié le 28 mars 2018 à 12:01
Bonjour
un peu comme ça ?
un peu comme ça ?
Option Explicit
'----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Taille as string, Genre as string, Test As String
Static Flag As Boolean
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("I117,I118,I139")) Is Nothing Then Exit Sub
'vérif si les 3 cellules sont saisies
If Application.CountA(Range("I117,I118,I139")) < 3 Then Exit Sub
If Flag = False Then
Flag = True 'empeche de reparcourir la procédure _
lors de l'affection dans F142, D43 etd
'TON CODE.....
;.....
.......
Flag = False 'libère le blocage pour une nouvelle action
End If
End Sub
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié le 28 mars 2018 à 15:55
Modifié le 28 mars 2018 à 15:55
Comme d'hab, cellules fusionnées en conflit avec Target.count>1!!!
A l"avenir éviter les cellules fusionnées m^me sans VBA
A l"avenir éviter les cellules fusionnées m^me sans VBA
<code> 'If Target.Count > 1 Then Exit Sub SUPPRIME car cellules I à L fusionnées !!! If Intersect(Target, Range("I117,I118,I139")) Is Nothing Then Exit Sub 'nettoyage si cellules I à L vides If Application.CountA(Range("I117,I118,I139")) = 0 Then: Range("D142:D146").ClearContents 'vérif si les 3 cellules sont saisies If Application.CountA(Range("I117,I118,I139")) < 3 Then Exit Sub
Tuline
Messages postés
55
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
16 novembre 2018
28 mars 2018 à 16:43
28 mars 2018 à 16:43
Parfait ! Un grand merci !!!
M-12
Messages postés
1333
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
299
Modifié le 26 mars 2018 à 18:32
Modifié le 26 mars 2018 à 18:32
Bonjour
place
Application.EnableEvents = False ---> en début de macro
et
Application.EnableEvents = True --- avant le END SUB
place
Application.EnableEvents = False ---> en début de macro
et
Application.EnableEvents = True --- avant le END SUB
Tuline
Messages postés
55
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
16 novembre 2018
28 mars 2018 à 11:30
28 mars 2018 à 11:30
Merci mais ca ne fonctionne toujours pas :(
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
27 mars 2018 à 09:22
27 mars 2018 à 09:22
Bonjour
quelle(s) cellule(s) déclenchent la macro
par ex : if not intersect(target, range("la zone de déclenchement")) is nothing then.....
actuellement tu déclenches dès que tu effectues une saisie n'importe où dans la feuille . elle se déclenche 2 fois pour rien (I117, I118, I139)
A mon avis, avec plusieurs saisies de départ, worksheet_change ne semble pas adapté
quelle(s) cellule(s) déclenchent la macro
par ex : if not intersect(target, range("la zone de déclenchement")) is nothing then.....
actuellement tu déclenches dès que tu effectues une saisie n'importe où dans la feuille . elle se déclenche 2 fois pour rien (I117, I118, I139)
A mon avis, avec plusieurs saisies de départ, worksheet_change ne semble pas adapté
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
27 mars 2018 à 10:30
27 mars 2018 à 10:30
Ou alors, écris au départ une instruction qui vérifie que les 3 cellules 117, 118, 139 ne sont toutes pas vides
Tuline
Messages postés
55
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
16 novembre 2018
28 mars 2018 à 11:23
28 mars 2018 à 11:23
Bonjour
merci mais en écrivant quoi du coup ?
merci mais en écrivant quoi du coup ?
Tuline
Messages postés
55
Date d'inscription
mardi 18 mars 2014
Statut
Membre
Dernière intervention
16 novembre 2018
28 mars 2018 à 11:30
28 mars 2018 à 11:30
C'est quand il y a une selection faite dans I117, I118 et I139 qu'elle doit se déclencher, puis s'il y a modification de ces valeurs
28 mars 2018 à 14:08
Une dernière question :
Je voudrais que lorsqu'on supprime la sélection des cases I117 I118 et I139
Les cases D142 à 146 se mettent à 0
Je ne trouve pas la solution
Merci :)