Trouver une valeur dans une colonne

[Egruat]

Bonjour, je cherche de l'aide pour trouver une formule qui puisse détecter une valeur non nulle et la répéter dans toutes les lignes concernées.

J'ai mis un fichier d'exemple en pièce jointe: comment faire pour répéter la valeur 200 000 dans toutes les lignes

Merci de votre aide !

 

[Cyrano]

Bonjour,

Si, comme dans l'exemple, il n'y a qu'une seule valeur > 0 dans la plage pour la référence recherchée, un "Somme.Si" peut faire l'affaire.
Essayer de saisir ceci : =SOMME.SI($A$4:$A$20;A4;$B$4:$B$20)
dans la cellule C4 et de recopier vers le bas, pour les cellules C4 à C20

Fred

 

[Egruat]

Merci beaucoup. Cela fonctionne. Si on complexifie un peu plus en ajoutant un critère (voir mon fichier en pièce jointe) ?

 

[job75]

Bonjour Egruat, Cyrano,

Voyez le fichier joint et cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
[A3].CurrentRegion.Columns(1).Insert xlToRight 'insertion d'une colonne auiliaire
[A3] = 1
With [A3].CurrentRegion.Resize(, 4)
    .Columns(1).DataSeries 'numérotation
    .Sort .Columns(2), xlAscending, .Columns(3), , xlAscending, Header:=xlYes 'tri sur 2 colonnes
    .Columns(4) = "=IF(R[-1]C[-2]<>RC[-2],IF(RC[-1]="""","""",RC[-1]),R[-1]C)"
    .Columns(4) = .Columns(4).Value 'supprime les formules
    .Sort .Columns(1), xlAscending 'ordre initial
    .Columns(1).Delete xlToLeft 'suppression de la colonne auiliaire
    .Cells(1, 3) = ""
End With
Application.EnableEvents = True
End Sub

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

A+

 

[job75]

Fichier (2) avec une colonne de plus, ce n'est pas plus compliqué.

 

[Egruat]

Merci. Est-il possible de le faire sans macro ?

 

[Egruat]

La macro ne donne pas le résultat excompté

 

[Chris401]

Bonsoir
Essaye :

=SOMMEPROD(($A$4:$A$20=A4)*($B$4:$B$20=B4);$C$4:$C$20)

 

[job75]

La macro ne donne pas le résultat excompté

??? Avec le fichier joint si, dans les 2 cas, suffit de tester.

Edit : salut Chris401

 

[Egruat]

Merci beaucoup la formule fonctionne bien !

Bonne journée,