Afficher si >1

[giovanne]

Bonjour à tous,

Bon j'avance pas trop mal dans mon fichier, mais maintenant je suis coincée,
je voudrais que dans la cellulle Y7 s'affiche les noms des villes dont le résultat sur la ligne 7 est égal à 1.

Merci d'avance de vos conseils éclairés

 

[VIC]

Re : Afficher si >1

Bonjour,

Une petite astuce en attendant une réponse de pro serait d'utiliser la ligne 8 et de la masquer ensuite.
Ligne 8 dans chaque cellule tu places : =SI(D7=1;D2 & " ";"") ; =SI(E7=1;E2 & " ";"") etc...
ça recopie le nom de ta ville et un espace si la ligne 7 est égale à 1
Puis tu concatenes toute ta ligne 8 en Y7
=+B8&C8&D8&E8&F8&G8&H8&I8&J8...

A la place de l'espace dans la formule tu peut mettre un trait d'union ou une virgule, ou autre

A priori ça donne le résultat souhaité mais c'est vrai que ce n'est pas très jolie.

A+
VIC

 

[SergiO]

Re : Afficher si >1

Bonjour Giovanne, Vic,

Après la solution de Vic par formules, je te propose une solution en VBA.

@+

 

[VIC]

Re : Afficher si >1

Bon ben j'arrive encore trop tard.

J'ai une solution en VBA dont l'esprit est le même que celle de Sergio mais avec quelques commandes différentes (Différente ne veux pas dire meilleure)
Comme elle est faite je la donne quand même.

voici le code
Sub MaMacro()
Dim Maliste As String
Dim i As Integer

Maliste = ""
For i = 2 To 23
If Cells(7, i) = 1 Then
Maliste = Maliste & Cells(2, i) & " "
End If
Next i
Cells(7, 25) = Maliste
End Sub

La solution de Sergio a le merite de proposer la commande "For Each Target In Range" qui est souvent utile.
A+
VIC

 

[giovanne]

Re : Afficher si >1

Merci encore
vous êtes géniaux.

Alexa

 

[giovanne]

Re : Afficher si >1

Re kikoooo,

réunion fini, j'y reviens,

Donc si je veux reproduire le code pour plusieur lignes?? je fais comment

Merci d'avance

Alexa

 

[giovanne]

Re : Afficher si >1

Et bien non ne chercher plus j'a trouver toute seule comme une grande

J'adôôôre vraimentce truc

Merci encore