Trouver une valeur dans une colonne

  • Initiateur de la discussion Initiateur de la discussion Egruat
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Egruat

XLDnaute Occasionnel
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 !
 

Pièces jointes

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
 
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) :
VB:
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+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
100
Réponses
9
Affichages
390
Retour