Fonction Private sub

Bonjour,

j'utilise un protocole :

Code:

---

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.

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

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:

---

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 !!

j'ai :

Code:

---

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 ?

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

Citation:

---

Envoyé par meumeu73.1

j'ai :

Code:

---

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:

---

if target.Rows<=2 then

---