Discussion :

[thecrabe]

Bonjour,

Je souhaiterai faire en sorte que dans ma colonne J, si une feuille ne comprend aucune donnée sur cette case, il ne soit rien reporté. Par contre, s'il est indiqué quelque chose, que la formule se fasse, comment je peux améliorer ?

J'ai fait plusieurs tests de formules mais soit, j'ai les noms de chaque onglet, même vide, soit j'ai le nom du dernier onglet concerné.
Alors qu'en fait, je voudrais avoir le nom de l'onglet uniquement lorsqu'il y a une donnée.

Par exemple dans l'onglet fichier récap, je ne devrais retrouver en ligne 10 - colonne J, que le nom de la feuille avec le ok mais pas de nom de feuille vide.
En ligne 12, ma colonne J devrait être vide.

Je ne sais pas si quelqu'un peut m'aider ?

[Philippe Tulliez]

Bonjour,
J'avoue que vos explications ne sont pas très claires pour moi et comme je n'ouvre pas les fichiers joints, j'essaye de traduire.
Ce que j'ai compris c'est que vous souhaitez avoir la liste des feuilles qui ont des données et c'est là que je me perds dans vos explications des lignes 12, 10 , colonne J, etc.

Voici un petit exemple qui vous mettra peut-être sur la piste où j'affiche dans un MsgBox la liste des feuilles qui contiennent au moins une donnée dans une cellule de la colonne E soit la cinquième (voir la valeur de la constante.
J'utilise l'équivalent de la fonction NBVAL (CountA)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub t()
  Const ColumnNumber As Integer = 5
  Dim sht As Worksheet
  Dim fx As WorksheetFunction
  Set fx = Application.WorksheetFunction
  Dim t As String
  t = "Liste des feuilles ayant des données en colonne " & Chr(64 + ColumnNumber) & vbCrLf
  For Each sht In Worksheets
    With sht
      If fx.CountA(.Columns(ColumnNumber)) Then
         t = t & vbCrLf & .Name
      End If
    End With
  Next
  MsgBox t
  Set sht = Nothing: Set fx = Nothing
End Sub

[Fab_de_chez_PERFORM]

Bonjour
s'il n'y a pas beaucoup de feuilles, vous pourriez envisager la fonction suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI('UT1'!J10="";"";"UT1 - "&'UT1'!J10)&CAR(10)&SI('UT2'!J10="";"";"UT2 - "&'UT2'!J10)&CAR(10)&SI('UT3'!J10="";"";"UT3 - "&'UT3'!J10)

à mettre en J10 sur la feuille récap

si le retour à la ligne (Car(10)) est de trop, enlevez le évidemment.

Restant à dispo

[thecrabe]

Je comprends complètement pour l'ouverture des fichiers, en fait, c'était par rapport au fichier pour illustrer mais voici un extrait du code :

Sub Actualiser()
Dim i As Integer, j As Integer

Application.ScreenUpdating = False
Call Effacer

For i = 1 To Sheets.Count
If Left(Sheets(i).Name, 2) <> "UT" Then GoTo Etiquette
With Sheets(i)
For j = 10 To Range("E" & Rows.Count).End(xlUp).Row
If .Range("F" & j) = "Oui" Then
If Range("F" & j) = "" Then
Range("F" & j) = Sheets(i).Name
Else
Range("F" & j) = Range("F" & j) & Chr(10) & Sheets(i).Name
End If
If Range("G" & j) = "" Then
Range("G" & j) = Sheets(i).Name & " - " & .Range("G" & j)
Else
Range("G" & j) = Range("G" & j) & Chr(10) & Sheets(i).Name & " - " & .Range("G" & j)
End If
If .Range("H" & j) > Range("H" & j) Then Range("H" & j) = .Range("H" & j)
If .Range("I" & j) > Range("I" & j) Then Range("I" & j) = .Range("I" & j)
If Range("J" & j) = "" Then
Range("J" & j) = Sheets(i).Name & " - " & .Range("J" & j)
Else
Range("J" & j) = Range("J" & j) & Chr(10) & Sheets(i).Name & " - " & .Range("J" & j)
End If

J'ai tenté ce que vous m'avez dit mais cela ne fonctionne pas car il y a d'autres conditions préalables je pense

[Philippe Tulliez]

Bonjour,

c'était par rapport au fichier pour illustrer mais voici un extrait du code :

Si vous n'obtenez pas ce que vous souhaitez avec le code que vous avez écrit, ce n'est certainement pas comme cela que je vais comprendre ce que vous souhaitez avoir;

Votre profil, indique que vous êtes responsable d'exploitation informatique, vous avez donc l'habitude d'écrire des dossiers d'analyse donc si vous pouviez expliquer sans jargon informatique et avec une éventuelle illustration ce que vous souhaitez obtenir, ce serait plus simple

[thecrabe]

Aujourd'hui,
--> Un certain nombre de feuilles ayant la même racine en nom doivent être synthétisés dans une feuille récap en reprenant le nom de chacune des feuilles pour comprendre d'où viennent les données
--> Si à la colonne F, la réponse est "oui", alors les données de la ligne dans les colonnes suivantes doivent être reprises
--> Cela fonctionne très bien, sauf que si une des colonnes suivantes est vide, on va avoir dans la feuille récap, le nom de la feuille suivi d'aucune donnée dans cette même colonne, ce qui alourdit cette synthèse

Le code actuel est fait avec une règle pour chaque colonne puisqu'il peut y avoir des données chiffrées avec certaines spécificités. L'amélioration souhaitée concerne uniquement les colonnes qui contiennent potentiellement du texte.

Je voulais donc améliorer pour que les données d'une ligne qui doivent être reprises, ça soit toujours le cas, mais que si dans l'une des colonnes, il n'y a aucune donnée, alors on n'indique pas le nom de la feuille.

Je ne sais pas si c'est plus clair ?

[Philippe Tulliez]

Bonjour,
C'est effectivement nettement plus clair.
Reste encore quelques interrogations
Peut-il y avoir plusieurs lignes avec le texte "Oui" dans la colonne F
Si la cellule d'une colonne de la ligne trouvée est vide, faut-il vérifier les colonnes suivantes ?