Conversion nb.si en code VBA

Bonsoir tout le monde,

Voila je viens vous voir car je recherche le moyen de transformer une formule du style =si(Nb.Si("emplacement 1"!a:a,a1)=1;"emplacement 1"; si(,nb.si("emplacement 2"!a:a,a1)=1)=1; "emplacement 2"; "non trouvé"))).

emplacement 1 et emplacement 2 correspondent a des onglets.

Alors petite précision j'ai trouvé le moyen de le faire sur une cellule mais j'aimerais que ce code fonctionne sur toute la colonne. Et c'est la que je cale. Car la formule est bien mais comme j'ai au moins une dizaine d'onglets ca fait beaucoup.

Voila merci beaucoup pour vos aides.

Bonjour,

à tester,

Sub test()
For Each f In Worksheets
 If f.Name <> ActiveSheet.Name Then
  For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
   If Application.CountIf(Sheets(f.Name).Range("A:A"), Range("A" & i)) = 1 Then Range("B" & i) = f.Name
  Next
 End If
Next
End Sub

bonjour,

merci beaucoup, c'est exactement ce que je cherchais.

Merci pour ce retour, au plaisir!

si le problème est résolu, s.v.p. pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!