Discussion :

[Rabiry]

Bonjour a tous,

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

Code :

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

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

[fring]

Bonjour,

Ton premier code peut se limiter à

Code :

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

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 :

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

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

[Rabiry]

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

[fring]

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 ?

[Rabiry]

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.

[fring]

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