probleme de suite

[timekeeper]

bonjour les pros,

voici mon probleme du jour



je souhaiterais acrementer un selection avec une notification

je m'explique sur l'exemple

je veux selectionner les cellules A1128 à A1130.
que je lance la macro

et que j'obtienne ceci




ceci est pour moi un problème récurent

en vous remerciant par avance pour votre efficacité.

merci

Seb

 

[Pierrot93]

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

 

[timekeeper]

Re : probleme de suite

Voila, j'espere que le fichier va suivre

 

[PMO2]

Re : probleme de suite

Bonjour,

Faites l'essai sur une copie de votre classeur.

Une piste avec le code suivant

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").

 

[ROGER2327]

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

 

[timekeeper]

Re : probleme de suite

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