Discussion :

[abdel792]

Bonsoir,

Voilà, j'ai un classeur créé avec Excel 2007.

Dans la première ligne, de B1 à XFD1, j'ai une suite de dates, allant du premier janvier 2010 au 8 novembre 2054.

Dans la première colonne, de A2 à A26, j'ai une suite d'horaires.

La première colonne est figée, c'est-à-dire qu'elle reste affichée lorsque je me déplace vers la droite.

Je souhaiterais, à chaque fois que je colle une valeur qui est déjà présente dans la ligne courante, qu'une incrémentation s'ajoute automatiquement juste à droite de la valeur collée.

En d'autres termes, si dans B2 par exemple, DUPONT est déjà présent, lorsque je vais le coller dans une autre cellule dans la même ligne, ça me mette DUPONT 1 puis DUPONT 2, ainsi de suite de façon automatique.

Serait-ce possible avec l'aide d'une procédure ou d'une fonction VBA?

Je vous remercie d'avance si vous avez une réponse.

[mercatog]

Une première approximation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
Dim indx As Integer
 
If Not Intersect(Target, Range("B2:XFD26")) Is Nothing Then
     If Target.Count = 1 Then
          indx = Application.CountIf(Range("B" & Target.Row & ":XFD" & Target.Row), Target.Value & "*") - 1
          If indx > 0 Then
               Application.EnableEvents = False
               Target.Value = Target.Value & indx
               Application.EnableEvents = True
          End If
     End If
End If
End Sub

[Qwazerty]

Salut
Arff je me fait vieux...
Bon je met quand même mon code il est commenté
Mon code est très similaire a celui de Mercadog. Le seul inconvénient de cette méthode est qu'elle ne mettra pas a jour les indices numeriques si tu rajoutes un nom avant une cellule portant déjà ce nom. Exemple cellule E12 = Dupont 3, si tu mets Dupont en cellule D12 la cellule D12 sera changée en Dupont 3, mais la cellule E12 restera tel quelle (Dupont 3).
[Edit]
Il est similaire mais pas tout a fait identique. Mercatog teste la ligne complète, dans le cas précédent tu auras donc avec son code
E12=Dupont 3 et D12 = Dupont 4.
A tois de voir le fonctionnement que tu souhaites obtenir.
[/Edit]

Reste à savoir ce que tu recherches exactement, une petite remarque tout de même sur ta demande, 2054 ... je serais en retraite depuis un baille, travailler sur de tels volumes de données me parait excessif, je ne connais pas ta problématique de départ, mais les outils changent et évoluent rapidement, ton programme sera t il encore utilisé dans 5 ou 10 ans?

Pour des questions de facilité de mise en place le code de Mercatog est bien plus adapté que le mien, je te conseille donc d'utiliser le sien, comme dit plus haut j'ai commenté le mien ... si des fois tu voulais comprendre ce que tu fais, ouais je sais que ça se perd...

Ce code est à mettre dans la section Change de ta feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NbrNom As Integer
 
'On regarde si on est dans le bon interval de cellules
If Not Intersect(Target, Range("C2:XFD26")) Is Nothing Then 'On regarde a partir de la 3eme colonne, pas de doublon possible avant
    'On regarde combien de fois ce nom apparait
    NbrNom = Dupont(Target)
    'Si il n'apparait jamais on ne fait rien, sinon...
    If NbrNom <> 0 Then
        '... on note cette indice à la suite de notre texte fraichement rajouté
 
        'Pour ce faire on bloque les evenements, pour éviter de rappeler Change lors de la modif de la cellule
        Application.EnableEvents = False
        'On change le texte
        Target = Target & " " & CStr(NbrNom)
        'On reactive les evenements
        Application.EnableEvents = True
    End If
End If
 
End Sub

Celui ci dans un module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function Dupont(Target As Range) As Integer
Dim InterRange As Range
 
'On defini l'intervalle sur lequel on va travailler
'On travail de la colonne B à la colonne contenant Target - 1 colonne
Set InterRange = Target.Worksheet.Range(Target.Worksheet.Cells(Target.Row, "B"), Target.Offset(0, -1))
 
'On regarde combien de fois apparait le nom recherché
Dupont = WorksheetFunction.CountIf(InterRange, Target & "*")
 
 
 
End Function

Bonne nuit
Qwaz

[abdel792]

Salut tous,

En fait, le code de Mercatog est bon, inséré dans la section Worksheet, sous-section Change, il incrémente bien les valeurs.

Cependant, y aurait t-il un moyen de faire en sorte qu'à la copie, le chiffre ou le nombre incrémenté ne soit pas ignoré.

Je m'explique :

Si je colle la valeur DUPONT de B3 vers E3, ça incrémente bien, ça va me mettre DUPONT 1.

Mais si je copie E3 dans G3, ça me mettra DUPONT 11.

Autre chose, je souhaiterais que la première valeur d'incrémentation ne soit pas DUPONT 1 mais DUPONT 2, ainsi le premier DUPONT sera pris en compte.

Qwazerty, en fait, ce projet m'a été demandé par un ami qui est médecin Kyné, il souhaiterait créer une application Excel pour gérer ses rendez-vous.

En premier, le projet avait été créé dans Excel 2003, mais ça ne lui convenait pas, le nombre de colonnes de chaque feuilles étant de 256 colonnes seulement.

C'est pour cela qu'il a préféré Excel 2007, ca lui fait un total de 16000 colonnes, soit 43 ans de travail !

Bien sûr, ces 43 ans seront revus à la baisse à la fin de sa carrière professionnelle, c'est juste pour qu'il est un aperçu général sur toutes les consultations qu'il a fait, lui évitant ainsi de créer plusieurs classeurs.

Voili voilou, tu sais tout maintenant.

[abdel792]

Rebonjour,

J'essaie de décortiquer les codes que vous m'avez communiqué, je ne comprends pas le code suivant de Qwazerty.

Pourtant, les commentaires sont bien là, mais je suis débutant dans le domaine.

Quelqu'un pourrait t-il m'expliquer la signification du code suivant?

Il figure dans la fonction Dupont que m'a communiqué Qwazerty que je remercie au passage.

Code :

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

1
2
3
'On defini l'intervalle sur lequel on va travailler
'On travail de la colonne B à la colonne contenant Target - 1 colonne
Set InterRange = Target.Worksheet.Range(Target.Worksheet.Cells(Target.Row, "B"), Target.Offset(0, -1))

En fait, finalement, je souhaite alléger le code, mais je n'arrive pas à trouver comment faire.

Je m'explique, j'espère que je serais assez claire.

Si par exemple je copie une cellule qui comporte Dupont(1), je veux qu'elle se transforme en Dupont (2) à l'emplacement où je la collerai, quel que soit cet endroit.

Pour le premier numéro, je peux l'écrire manuellement, il n'y a pas de problème.

Mais c'est lorsque je copierai cette valeur comportant ce numéro 1 dans une autre cellule que je souhaite que le 1 se transforme en 2, toujours entre parenthèses.

Ensuite, si je copie le Dupont(2), je souhaiterai qu'il se transforme en Dupont(3) dans la cellule où je l'ai collé, ainsi de suite.

Pour moi, ce serait plus simple que je copie colle la valeur la plus récente plutôt que de rechercher la valeur la plus éloignée.

De plus, cette procédure ne requiert pas que l'on fasse le calcul du nombre d'occurences figurant dans l'intervale dans laquelle nous allons travailler.

Quelqu'un pourrait t-il m'envoyer ne serait ce qu'un début de code afin que je puisse essayer?

Je vous remercie d'avance et je vous souhaite de joyeuses fêtes à tous.

[Invité]

Bonsoir,

En fait avec la précision que vous venez d'apporter :

Ensuite, si je copie le Dupont(2), je souhaiterai qu'il se transforme en Dupont(3) dans la cellule où je l'ai collé, ainsi de suite.

ce n'est plus tout à fait la même chose que votre demande d'origine qui a généré les réponses que vous avez obtenues.

En effet, il est facile d'incrémenter de "1" le nom contenu dans la cellule que vous voulez copier/coller et même bien plus facile que de faire ce que vous demandiez au départ, le problème est de savoir ensuite ce qui se passe si vous faites un copier/coller d'une cellule contenant "Dupont(2)" alors que "Dupont(3)" existe déjà ?