Discussion :

[jpvba65]

Bonjour

D'abord une très bonne année à toutes et à tous.

Voici ce que je recherche.
J'ai une série de texte en doublons en colonne C.
Sur la même ligne que les doublons mais en colonne F
est associé un texte (rentré manuellement).
Exemple de mon besoin:
En C10 j'ai le texte "repère1"
En F10 j'ai le texte "Equ2"

En C200 j'ai aussi le texte "repère1"
Je voudrais (si c'est possible) en positionnant
la sourie sur la cellule C200 ("repère1") visualiser le contenu
de la cellule F10 , ce qui me permettrait de remplir manuellement
(ou automatiquement si faisable) la cellule F200 avec "Equ2".

Tout celà pour chaque valeur commune en C.
Seules les colonnes C et F sont concernées.

Je n'ai pour l'instant rien trouvé sur les forums qui ressemble à ça.

Je vous remercie pour l'attention que vous pourrez m'apporter.

[nibledispo]

Bonjour,

peut-être cela (code à loger dans la feuille VBA des données):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
    Dim ligne As Double
    On Error Resume Next ' si pas de doublon
    ligne = Application.Match(ActiveCell, Range(Cells(1, 3), ActiveCell.Offset(-1, 0)), 0)
 
    If ligne Then
       ActiveCell.Offset(0, 3).Value = Cells(ligne, 6).Value
    End If
End If
End Sub

Question : mais pourquoi remplir "F" uniquement si tu pointes sur une cellule "C" et ne pas faire un remplissage d'office dès lors qu'il y a doublon.

Cordialement,

[jpvba65]

Bonjour

nibledispo mille merci pour ton aide.
Ta macro fonctionne très bien.
Pour répondre à ta question, je t'avoue qu'au départ mon but était comme indiqué dans mon premier post de visualiser le contenu de cellules.
Après avoir utilisé ta macro je me rend compte qu'il serait effectivement pas mal d'inscrire automatiquement dans la colonne F dès que la cellule en C est renseignée.
Puis je te mettre à contribution encore une fois pour transformer ta première macro en tout automatique.

Merci encore

[nibledispo]

Bonjour,

Voila pour un traitement automatique (bouton doublon).
Fichier d'essai joint.

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
 
Sub doublon()
Dim ligne As Double
Dim traité As Double
derlig = Range("c65536").End(xlUp).Row
 
For i = 3 To derlig
    On Error Resume Next ' si pas de doublon
    ligne = Application.Match(Cells(i, 3), Range(Cells(2, 3), Cells(i - 1, 3)), 0)
 
    If ligne <> 0 Then
       Cells(i, 3).Offset(0, 3).Value = Cells(ligne + 1, 6).Value ' ligne + 1 car entête exclue du comptage
       ligne = 0
       traité = traité + 1
    End If
Next i
MsgBox "nombre de doublons traités = " & traité
End Sub

Cordialement,

[jpvba65]

Bonjour

nibledispo encore une fois merci pour ton aide.
J'ai essayé ta macro avec le bouton. Ce n'est pas ce que je recherche
(déclenchement de la macro par un bouton). Du coup j'ai fait un mix entre la première et la seconde macro, pour conserver le traitement au fur et à mesure du remplissage des cellules. J'ai de plus adapté à partir de quelle ligne la macro devait être fonctionnelle (en effet lors de ma demande initiale je n'ai pas précisé que mon tableau démarrait en C8).
J'ai également rajouté une colonne qui doit bénéficier aussi du traitement.
Voici le code modifié

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ligne As Double
'Dim traité As Double
derlig = Range("c65536").End(xlUp).Row
 
For i = 3 To derlig
    On Error Resume Next ' si pas de doublon
    ligne = Application.Match(Cells(i, 3), Range(Cells(8, 3), Cells(i - 8, 3)), 0)
 
    If ligne <> 0 Then
       Cells(i, 3).Offset(0, 3).Value = Cells(ligne + 7, 6).Value ' ligne + 8 car entêtes exclus du comptage
       Cells(i, 3).Offset(0, 4).Value = Cells(ligne + 7, 7).Value ' ligne + 8 car entêtes exclus du comptage
       ligne = 0
       'traité = traité + 1
    End If
Next i
'MsgBox "nombre de doublons traités = " & traité
End Sub

Voilà je termine par un énorme merci pour le temps que tu as pris pour m'aider.