[VBA-E] condition dans les cellules

Version imprimable

08/08/2006, 11h29
ricachu

[VBA-E] condition dans les cellules

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

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

Code:

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

08/08/2006, 15h36
ricachu

ok merci, mais je comprend pas à quoi correspond :

Citation:

Intersect(Target, [C1]) Is Nothing
08/08/2006, 16h43
AlainTech
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
08/08/2006, 19h07
conconbrr

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:

[C1]=evaluate(range("c1"))

(Dites moi si je dis une connerie lol)
08/08/2006, 21h14
AlainTech

Je dirais même:
"Si l'intersection entre la plage "Cible" et la plage "C1" n'existe pas (est rien) alors :"
09/08/2006, 00h15
conconbrr

Merci pour la traduction et la rectification sur "n'existe pas"="nulle" :mrgreen:

Ceci dit c'est vrai que c'est pas pareil, j'ai fait un léger abus de langage
09/08/2006, 09h45
ricachu

ok merci je viens de comprendre le script. ça marche nickel, merci pour le coup de pouce!:king: