Discussion :

[meumeu73.1]

Bonjour,

j'utilise un protocole :

Code :

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

1
2
 
Private Sub Worksheet_change(ByVal target As Range)

dans une feuille, par contre, j'aimerai savoir si on peut exclure des lignes de ce protocole, pour par exemple, ne pas mettre à jour la ligne de titre à la suite d'une mauvaise manipulation.

par avance merci.

[kiki29]

Salut, voir Les évènements dans la feuille de calcul Excel ainsi qu'une recherhce sur le forum

[Oliv-]

Salut,
oui bien sûr, la variable target te donne la cellule (ou les) concernée
à toi de tester

dans cet exemple je teste chaque colonne du TARGET pour ensuite appliquer une couleur selon la taille des données (comparées à une feuille "FORMAT")

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)
 
    For Each colonne In Target.Columns
    If colonne.Column < 32 Then
    CLength = Worksheets("FORMATS").Cells(3, colonne.Column)
 
        Intersect(Target, colonne).Characters(Start:=1, Length:=CLength).Font.Color = RGB(0, 255, 0)
        Intersect(Target, colonne).Characters(Start:=CLength + 1, Length:=100).Font.Color = 0
    End If
    Next colonne
 
End Sub

ps : il peut être très important de vérifier avant toute action le nombre de cellules impactées par TARGET ex copié/collé sur toute une feuille !!

[meumeu73.1]

j'ai :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_change(ByVal target As Range)
If target.Count = 1 Then
    Application.EnableEvents = False
    On Error Resume Next
    If target.Column = 1 Then
        If target.Column = 6 And target.Rows <> 1 And target.Rows <> 2 Then

est ce que target.Rows <> 1 And target.Rows <> 2 peut m'exclure les deux premières lignes de ma feuille pour une saisie malheureuse sur ces lignes ?

[Didier Gonard]

Bonjour,

@meumeu73.1, pour ne pas te perdre dans tout ça :

Change le titre de ton fil : " Fonction Private sub", en "Procédure Private Sub Worksheet_change" ou mieux " "Procédure évènementielle Private Sub Worksheet_change"

car, tu l'auras compris maintenant, ce que tu évoques n'est pas une fonction cf le lien fourni par Kiki29, vois aussi ce tuto court :

Par J-M Rabilloud
Programmer efficacement avec Excel en VBA http://bidou.developpez.com/tutoriels/ExcelVBA/
44 pages :

cordialement,

Didier

[Oliv-]

j'ai :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_change(ByVal target As Range)
If target.Count = 1 Then
    Application.EnableEvents = False
    On Error Resume Next
    If target.Column = 1 Then
        If target.Column = 6 And target.Rows <> 1 And target.Rows <> 2 Then

est ce que target.Rows <> 1 And target.Rows <> 2 peut m'exclure les deux premières lignes de ma feuille pour une saisie malheureuse sur ces lignes ?

Oui tu peux aussi mettre

Code :

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

 if target.Rows<=2 then