Demande de formule

[Minimoy47]

Bonjour,

J'ai besoin d'aide, j'ai établi sous excel un tableau reprenant tous mes RDV, je souhaiterai qu'a chaque fois que le nom de la même personne revient qu'il se numérote automatiquement.
Par ex M Dupont la première fois ressorte M Dupont 1 la deuxième M Dupont 2 etc.. et qu'il en soit de même pour chaque nom.
Existe'il un moyen pour qu'il en soit ainsi?

Par avance merci de vos réponse

 

[JJ1]

Re : Demande de formule

Bonsoir et bienvenue,

Il existe sûrement un moyen..avec un petit exemple (anonyme) joint.
merci
a+

 

[R@chid]

Re : Demande de formule

Bonsoir et Bienvenue sur XLD,
Salut JJ1,
Voir PJ
@ + +

 

[Minimoy47]

Re : Demande de formule

Merci pour votre réponse mais mon tableau est un peut plus complexe et je vous envoi mon modèle en pièce jointe à savoir que j'ai inscrit le numéro moi même a chaque fois

 

[Minimoy47]

Re : Demande de formule

Je vous joins un modèle de ce que je voudrai faire en sachant je j'ai numéroté moi même les cellules à chaque fois

 

[Jiheme]

Re : Demande de formule

Bonjour le fil

Minimoy peut on rajouter des colonnes?

A+

 

[Minimoy47]

Re : Demande de formule

De préférence non mais si c'est le seul moyen pourquoi pas

 

[job75]

Re : Demande de formule

Bonjour à tous,

Une solution VBA dans le fichier .xlsm joint :

Option Compare Text 'si l'on veut que la casse soit ignorée

Sub Numéroter()
Dim P As Range, Nlig%, Ncol%, i%, j%, n%, n1%, n2%, i1%, j1%
Set P = [D2:S39]
Nlig = P.Rows.Count: Ncol = P.Columns.Count
Application.ScreenUpdating = False
'---RAZ---
For i = Nlig * 6 To 1 Step -1
  For j = 1 To Ncol Step 3
    P.Columns(j).Replace " " & i, "", xlPart
  Next
Next
'Exit Sub 'pour présentation sans numéros
'---affectation des numéros---
For j = 1 To Ncol Step 3
  For i = 1 To Nlig
    If P(i, j) <> "" Then
      n = n + 1 'numéro de repérage
      n1 = 0: n2 = 0 'n1 numéro de repérage, n2 comptage des noms identiques
      For j1 = 1 To Ncol Step 3
        For i1 = 1 To Nlig
          If P(i1, j1) <> "" Then
            n1 = n1 + 1
            If Trim(P(i1, j1)) Like Trim(P(i, j)) & "*" Then n2 = n2 + 1
            If n1 = n Then P(i, j) = Trim(P(i, j)) & " " & n2: GoTo 1
          End If
        Next i1
      Next j1
    End If
1 Next i
Next j
End Sub

A+

 

[Yaloo]

Re : Demande de formule

Bonjour à tous,

Job, encore une magnifique macro comme tu sais si bien les faire, mais pourquoi Nlig * 6 et non Nlig ?

A+

 

[job75]

Re : Demande de formule

Bonjour Yaloo et merci,

mais pourquoi Nlig * 6 et non Nlig ?

La plus grande valeur possible d'un numéro est le nombre de cellules des 6 colonnes des mois.

Pour peaufiner, fichier (2) avec le choix de numéroter ou pas.

A+

 

[Minimoy47]

Re : Demande de formule

C'est super, et maintenant je fais comment pour appliquer ça dans mon tableau d'origine. Je m'excuse mais ça me dépasse un peu, je connais le basic, après !!!!!!
En tout cas merci beaucoup maintenant je sais que c'est possible. Magnifique!!!!

 

[Yaloo]

Re : Demande de formule

Re Job,

La plus grande valeur possible d'un numéro est le nombre de cellules des 6 colonnes des mois.

Maintenant que tu le dis, c'est tout de suite évident

A+

 

[Jiheme]

Re : Demande de formule

Bonsoir le fil

De retour, j'a honte à côté de la superbe, macro de Job, mais comme je l'avais faite, ma solution avec colonne supplémentaire. Exemple sur Novembre


A+

 

[job75]

Re : Demande de formule

Re,

Ma solution par formules.

J'ai créé un 2ème tableau U1:AM39 identique à A1:S39 mais avec les cellules défusionnées.

C'est indispensable si l'on veut pouvoir copier la formule en X2 sur toutes les cellules des 6 mois :

=SI(D2="";"";D2&" "&NB.SI($C$1:C$39;D2)+NB.SI(D$1:D1;D2)+1)

Nouveau fichier .xlsx joint.

A+

 

[job75]

Re : Demande de formule

Re,

Au temps pour moi, les formules fusionnées ne posent pas de problème pour coller la formule.

Il y a problème quand il s'agit d'une formule matricielle, ce qui n'est pas le cas ici.

Fichier (2).

Edit : j'ai aussi ajouté les formules de liaison dans les autres colonnes.

A+