XL 2016 Référence circulaire

[ericsg3]

Bonjour
J' essaie de configurer un remplissage automatique dans un tableau avec recherchev mais excel me dit que c'est une référence circulaire ...
Je ne vois pas comment faire
Merci de votre aide ou de la direction vers laquelle je dois aller.

 

[mapomme]

Bonjour @ericsg3,

voir les formules dans le fichier joint.

 

[ericsg3]

Ok merci.
Bonne journée

 

[job75]

Bonjour ericsg3, mapomme,

Avec les formules de mapomme il y aura des problèmes si l'on insère des lignes dans le tableau.

Il vaut mieux cette formule en B3 à tirer à droite et vers le bas :

=SIERREUR(RECHERCHEV($A3;$A$2:DECALER(B3;-1;);COLONNE();0);"")

Cela dit je pense qu'il ne faut pas de formules et qu'il faut utiliser une macro VBA.

La macro entrera automatiquement les données si doublons.

Quand il y a des formules on ne peut plus entrer des données...

A+

 

[mapomme]

Bonjour @job75

Cela dit je pense qu'il ne faut pas de formules et qu'il faut utiliser une macro VBA.

Je plussoie +++++

 

[job75]

Voyez cette macro dans le code de la feuille du fichier .xlsm joint :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim d As Object, tablo, ncol%, i&, x$, lig&, j%
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
With [A1].CurrentRegion
    ncol = .Columns.Count
    If ncol = 1 Then ncol = 2 'pour avoir au moins 2 cellules
    tablo = .Resize(, ncol) 'matrice, plus rapide
    For i = 2 To UBound(tablo)
        x = tablo(i, 1)
        If d.exists(x) Then
            lig = d(x)
            For j = 2 To ncol
                tablo(i, j) = tablo(lig, j)
            Next j
        Else
            d(x) = i 'mémorise la ligne
        End If
    Next i
    '---restitution---
    If FilterMode Then ShowAllData 'si la feuille est filtrée
    Application.EnableEvents = False 'désactive les évènements
    .Value = tablo
    Application.EnableEvents = True 'réactive les évènements
End With
End Sub

Elle se déclenche automatiquement quand on modifie ou valide une cellule quelconque.

Edit :

Je plussois +++++

Je plussoye non ? Verbe du 1er groupe.

 

[ericsg3]

Bonjour, waaouh super, je vais regarder tout ca
Merci

 

[mapomme]

Bonsoir @job75 ,

Je plussoye non ? Verbe du 1er groupe.

J'avais fait une faute grosse comme moi. J'ai corrigé mais selon la forme suivante: je "plussoie" d'après ce site ou Ce lien n'existe plus.

 

[job75]

On peut utiliser les deux, comme je balaye/balaie.

 

[mapomme]

Bonjour @job75

On peut utiliser les deux, comme je balaye/balaie.

Je note