probleme de suite

Pierrot93

XLDnaute Barbatruc

• 14 Août 2015

• #2

Re : probleme de suite

Bonjour,

plutôt que des photos... un petit fichier avec données de départ et résultat attendu serait plus pratique pour la compréhension et faire des tests...

bon après midi
@+od

 

Vote positif 0 Vote négatif

T

timekeeper

XLDnaute Nouveau

• 14 Août 2015

• #3

Re : probleme de suite

Voila, j'espere que le fichier va suivre

 

Pièces jointes

• ACCRE.xlsx

  13.6 KB · Affichages: 35

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 14 Août 2015

• #4

Re : probleme de suite

Bonjour,

Faites l'essai sur une copie de votre classeur.

Une piste avec le code suivant

Code:

Sub aa()
Dim Coll As New Collection
Dim R As Range
Dim C As Range
Dim A$
Dim cpt&
'---
Set R = Selection
For Each C In R
  On Error Resume Next
  Coll.Add C, C
  If Err <> 0 Then
    cpt& = 0
    Do
      Err.Clear
      cpt& = cpt& + 1
      A$ = C & "." & cpt&
      Coll.Add A$, A$
    Loop Until Err = 0
    C = Coll(Coll.Count)
  End If
Next C
End Sub

Il faut d'abord sélectionner la plage à traiter (A1:A6 dans votre exemple) avant de lancer la macro.

Restriction :
Pour raison technique, la première occurrence synonyme apparaîtra telle qu'elle est.
Ce sont les occurrences suivantes qui auront un suffixe numéroté (".1", ".2",...,".n").

 

Pièces jointes

• ACCRE_pmo.xlsm

  20.4 KB · Affichages: 34

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 14 Août 2015

• #5

Re : probleme de suite

Bonjour à tous.

Un autre essai.​

Bonne journée.


ℝOGER2327
#7989

Mercredi 4 Phalle 142 (Saint Mnester, confesseur - fête Suprême Quarte)
27 Thermidor An CCXXIII, 6,0934h - colsa
2015-W33-5T14:37:27Z

 

Pièces jointes

• Copie de ACCRE.xlsm

  18.5 KB · Affichages: 28

Vote positif 0 Vote négatif

T

timekeeper

XLDnaute Nouveau

• 14 Août 2015

• #6

Re : probleme de suite

c'est parfait voir même plus que parfait grand merci

 

Vote positif 0 Vote négatif