VBA - Reprendre des informations quand existant

Version imprimable

06/01/2023, 12h29
thecrabe

1 pièce(s) jointe(s)

VBA - Reprendre des informations quand existant

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 ?

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:

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

06/01/2023, 14h15
Fab_de_chez_PERFORM

Aide

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

Code:

=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
06/01/2023, 14h23
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
06/01/2023, 14h29
Philippe Tulliez

Bonjour,

Citation:

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
06/01/2023, 15h37
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 ?
06/01/2023, 16h18
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 ?

Bonjour,
Voici un exemple où l'on écrit dans les colonnes A, B et C de la feuille nommée RECAP les données trouvées dans les feuilles préfixées "UT" si les cellules des colonnes G à J sont remplies et à conditions qu'il y ait "Oui" dans la colonne F

Ce n'est sans doute pas tout à fait l'organisation voulue mais cela vous donnera peut-être une piste

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub t()
  Const Prefix As String = "UT"     ' Préfixe des feuilles à examiner
  Const rName As String = "Recap"   ' Nom de la feuille Recap
  Const ColumnNumber As Integer = 6 ' Numéro de la colonne où chercher "Oui"
  Const LastColumn As Integer = 10  ' Dernière colonne à traiter
  Const FirstRow As Long = 10
  Const LastRow As Long = 20
 
  Dim sht As Worksheet
  Dim shtTarget As Worksheet
  Dim r As Long                     ' N° de la boucle des lignes
  Dim c As Integer
  Dim t As String
  Dim rt As Long
  Set shtTarget = Worksheets(rName)
  For Each sht In Worksheets
    With sht
      If Left(.Name, Len(Prefix)) = Prefix Then
         For r = FirstRow To LastRow
           If .Cells(r, ColumnNumber).Value = "Oui" Then
              ' Traitement des colonnes suivantes
              t = ""
              For c = ColumnNumber + 1 To LastColumn
                If Len(.Cells(r, c).Value) Then
                   ' Ecrit les données dans la feuille RECAP
                   rt = rt + 1
                   shtTarget.Cells(rt, 1).Value = .Name
                   shtTarget.Cells(rt, 2).Value = Chr(64 + c)
                   shtTarget.Cells(rt, 3).Value = .Cells(r, c).Value
                End If
              Next
           End If
         Next
      End If
    End With
  Next
  Set sht = Nothing: Set shtTarget = Nothing 
End Sub

06/01/2023, 16h58
thecrabe

Pour répondre à vos questions, il peut y avoir, en effet beaucoup de lignes avec l'information oui.
Et une colonne vide ne veut pas dire que les suivantes le seront également. Elles sont à reprendre.