A l'aide sur utilisation Worksheet_Change

Bonjour a tous,

pour incrémenter un numéro de dossier j'ai écrit le macro suivant

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Activate()   Dim num As Integer Range("c1").Select num = Range("c1").Value num = num + 1 Range("c1").Value = num End Sub

---

A chaque fois que j'active la feuille, le numéro s'incrémente. J'aimerais pourtant incrémenter le numéro à chaque fois que la valeur d'une cellule contenant le nom du titulaire de dossier change.

Est ce que quelqu'un pourrait m'aider à combiner ce code avec worksheet_Change

Merci d'avance

Bruno

Bonjour,

Ton premier code peut se limiter à

Code:

---

1 2 3

Private Sub Worksheet_Activate() Range("c1") = Range("c1") + 1 End Sub

---

Concernant Worksheet_Change, en supposant que la cellule contenant le nom du titulaire est D5, ça donnerait ceci :

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$5" Then Range("c1") = Range("c1") + 1 End If End Sub

---

Merci beaucoup pour le conseil rapide.

J'ai testé le code mais je ne comprend pas pourquoi cela ne fonctionne pas pour worksheet_change

Est ce que je doit declarer le type de donner contenant dans D5?

Merci beaucoup

Bruno

Citation:

---

Envoyé par Rabiry

Est ce que je doit declarer le type de donner contenant dans D5?

---

non, la cellule C1 sera incrémentée de 1 à chaque modification de la cellule D5, peu importe la valeur de D5

Qu'as-tu écrit comme code dans l'évènement Worksheet_Change ?

Pour le tester j'ai copier le code que vous avez écrit dans une feuille vierge mais cela ne fonctionne pas!
je comprend pas pourquoi

alors que j'ai testé le code range("c1")= range("C1")+1 avec l'évenement Worksheet_beforedoubleclick et ça marche.

fais moi un copier/coller de ton code complet qui ne fonctionne pas

J'ai testé en modifiant la veleur de A1

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$a$1" Then Range("c1") = Range("c1") + 1 End If End Sub

---

Bonjour,
Je n'ai pas suivi le fil complètement mais le a de a1 en majuscule fera réagir beaucoup mieux la procédure événementielle If Target.Address = "$A$1" Then

Je suis bête pour ne pas trouvez un erreur pareille

Merci beaucoup à vous 2

A bientôt pour d'autres problème

Bruno