Valeur cellule sous conditions
Résolu
Tuline
Messages postés
55
Date d'inscription
Statut
Membre
Dernière intervention
-
Tuline Messages postés 55 Date d'inscription Statut Membre Dernière intervention -
Tuline Messages postés 55 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Valeur cellule sous conditions
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Excel si cellule contient partie texte ✓ - Forum Excel
4 réponses
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
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
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
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é
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 :)