[VBA-E] condition dans les cellules

**ricachu** · 08/08/2006, 12h29

bonjour à tous,
j'ai dans ma feuille excel 2 colonnes :Une première liste des caractères.
Une deuxième colonnes permet de savoir de cocher ou non un caractère (on peut seulement remplir la case par la lettre "a" comme activée et si elle est vide, c'est désactivé).
Jusque la pas de pb, j'ai fait une validation de case.

Mais mon problème consiste à ajouter en haut de ma feuille une cellule "tout cocher" qui, qd on écrit "a", ajoute un "a" automatiquement dans tout le reste de la colonne.

Peut-on gérer ceci sur VBA?
jespère avoir été clair dans mes explications.

merci de votre aide

**SfJ5Rpw8** · 08/08/2006, 14h18

à mettre dans le code de la feuille concernée..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
  'On surveille cellule C1..
 
  If Not (Intersect(Target, [C1]) Is Nothing) Then
    If Target.Address = [C1].Address And [C1] = "a" Then
            Range("C2:C20").Value = "a"
    End If
 
  End If
 
End Sub

**ricachu** · 08/08/2006, 16h36

ok merci, mais je comprend pas à quoi correspond :

Intersect(Target, [C1]) Is Nothing

**AlainTech** · 08/08/2006, 17h43

Alors, il faudra regarder dans l'aide en ligne:

L'événement Worksheet_Change (pour savoir à quoi correspond Target)
La fonction Intersect
L'opérateur Is
Le mot clé Nothing

**conconbrr** · 08/08/2006, 20h07

Juste un petit indice en français ça se lit tout seul :
"Si l'intersection entre la plage "Target" et la plage "C1" est nulle alors :"

P.S: Vas voir aussi l'aide pour evaluate puisque

Code :

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