Recherche automatique de cellules sous condition

je vais tenter d'être plus précis
je reçois au format xlx des réponses à un questionnaire éducation nationale
pour 380 établissements
ils répondent oui ou non à une liste de partenaires potentiels (360)
pour l'exploitation, j'aimerai ne conserver que les réponses alimentées positivement
est-il possible que les colonnes non renseignée puissent être supprimées, ou plus pertinent encore, de collecter uniquement celles qui nous sont utiles.
j'espère être clair
merci beaucoup

Oui, ça ne pose pas spécialement de problème. Pourrais-je simplement avoir un fichier de test avec https://www.cjoint.com/

Anonymez les données, ne laissez que ce qu'on doit traiter.

Cordialement.

Bonjour,

Le fichier modifié : https://www.cjoint.com/c/EJtnkOQRlcf

J'ai ajouté un bouton pour exécuter la macro. Si besoin d'adaptation du code, je reste à votre disposition pour vous l'expliquer.

Cordialement.

Quoi? C'est très étrange....

Serait-ce un problème de compatibilité? Sur quelle version d'excel travaillez-vous?

Sinon je vous propose de vous guider.

Affichez l'onglet développeur dans un premier temps :

http://support.office.com/...

Dans cet onglet, cliquez sur "Visual Basic".

Dans le panneau de gauche, faites un clic droit puis Insertion puis Module.

Dans le grand cadre blanc à droite, collez ce code :

Sub Code()

Dim DC As Long

DC = Cells(2, Application.Columns.Count).End(xlToLeft).Column

x = 6

For j = 26 To DC
For i = 8 To 13

If Cells(i, j).Value = "oui" Then
x = x + 1
Cells(3, x).Value = Cells(3, j).Value
Exit For
End If

Next i
Next j

For j = 7 To 21
For j2 = 26 To DC
For i = 8 To 13

If Cells(3, j).Value = Cells(3, j2).Value Then
    If Cells(i, j2).Value = "oui" Then
        Cells(i, j).Value = "oui"
    End If
End If

Next i
Next j2
Next j
    
End Sub

Créez un bouton sur votre fichier, faites un clic droit dessus et assignez la macro "Code" à ce bouton.

Si vous cliquez sur le bouton, le code devrait s'exécuter.

Sinon dites moi sur quelle version d'excel vous travaillez et je vais essayer de l'enregistrer dans un format compatible.

Je peux sinon peut-être vous l'envoyer par mail?