Discussion :

[oyard]

Bonjour,

Je souhaiterai récupérer dans un tableau de synthèse les lignes qui ont été saisies dans d’autres feuilles.

J’ai déjà fait les conditions suivantes :

Code :

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

SI(ET('Feuil1'!D9="";'Feuil1'!E9="";'Feuil1'!F9="";'Feuil1'!G9="";'Feuil1'!H9="");"";'Feuil1'!A9&"  "&'Feuil1'!B9)

La première me renvoi le libellé de ma ligne si dans celle-ci un chiffre a été saisi.

Code :

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

SI(ET('Feuil1'!D10="";'Feuil1'!E10="";'Feuil1'!F10="";'Feuil1'!G10="";'Feuil1'!H10="");"";SOMME('Feuil1'!D10:H10))

Celle-là me donne la somme de tous les chiffres saisies saisie dans chaque colonne de la même ligne.

Pour l’instant pour avoir les lignes qui ont été saisis, je dois copié ces fonctions sur chaque ligne de mon tableau de synthèse. Mais du coup lorsque je ne saisit rien pour certaines lignes, j’ai du coup des lignes vides dans mon tableau de synthèse. Car j’ai copier la fonction au cas où il y aurait une sais. Du coup cela me donne autant de ligne que mon tableau original.
Or je voudrais faire apparaître uniquement les lignes qui ont été saisies, et ne pas faire de la place pour les lignes qui serait supposément saisies.

En espérant que l'on puisse m'aider.

Par avance merci.

Oyard.

[Menhir]

J’ai déjà fait les conditions suivantes :

Code :

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

 SI(ET('Feuil1'!D9="";'Feuil1'!E9="";'Feuil1'!F9="";'Feuil1'!G9="";'Feuil1'!H9="");"";'Feuil1'!A9&"  "&'Feuil1'!B9)

Je te conseille plutôt de l'écrire ainsi :

Code :

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

 SI(CONCATENER('Feuil1'!D9:H9)="";"";'Feuil1'!A9&"  "&'Feuil1'!B9)

Ca ne marche pas mieux mais c'est plus lisible.

Or je voudrais faire apparaître uniquement les lignes qui ont été saisies, et ne pas faire de la place pour les lignes qui serait supposément saisies.

En pure Excel, on ne peut pas faire apparaitre une fonction là où il n'y en a pas.

La solution simple serait que, lorsque tu introduis de nouvelles données, tu tires un grand coup ta fonction pour la recopier vers le bas et tu supprimes les lignes surnuméraires.

Sinon, il faut faire une macro VBA avec un gros bouton "Mise à Jour" (ou bien utiliser l'évènement Change de la feuille de calcul mais ça ralentirait considérablement l'utilisation).

[oyard]

Bonjour Loïc,

merci pour ta réponse.
Je vais tester ce que tu as écrit.
Je pense que du VBA serait la solution car tiré et supprimé ce qui ne va pas me semble trop fastidieux.
Penses tu que c'est compliqué un code VBA qui me permettrait de faire apparaitre seulement les lignes saisies de la condition indiquée plus haut ?

Merci pour ton aide.

Oyard.

[Menhir]

Si tu connais un peu le VBA, c'est pas très compliqué.

Tu comptes le nombre de lignes saisies.
Tu comptes le nombre de lignes résultat existantes.
La différence te donne le nombre de ligne à ajouter (ou supprimer)
Tu copies la dernière ligne (ou la première, c'est plus facile à attraper) ligne de résultat un nombre de fois équivalent à cette différence en commençant à la première ligne vide.

A vue de nez, ça doit pouvoir se régler en une dizaine de lignes.

[oyard]

Bonjour,

Merci pour ton indication. J'ai trouvé le code suivant pour insérer des lignes.

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
Sub Bouton1_Cliquer()
 
Dim x
Range("H3").Select
x = ActiveCell.Value
With Worksheets("Feuil1") Range("K:K")
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
End If
End With
Range(firstAddress).Select
ActiveCell.Offset(1, 0).EntireRow.Insert
 
End Sub

Comme je ne suis pas très bon en macro, est ce que quelqu'un pourrait m'orienter pour faire un mix du code ci-dessous avec les conditions indiqué en début du post ?

Merci bien.
Cdt,

Oyard.

[Menhir]

Il n'y a pas de mix à faire puisque ce code n'a aucun rapport avec ton problème.

[oyard]

ah ok, et du coup pour répondre à mon problème ce serait quel type de code ?
Un coup de pouce pour m'aider à démarrer, svp.

merci,
cdt.

Oyard.

[porruak]

As tu essayé de conserver ta formule, Tirer et Trier les résultats tout simplement.

[Menhir]

Un coup de pouce pour m'aider à démarrer, svp.

Commencer par un tutoriel qui te permette d'acquérir les bases de VBA.

[oyard]

@porruak : oui j'ai tirer ma formule et cela fonctionne. Mais le problème c'est que pour les lignes qui ne sont pas saisies dans les feuilles initiales, j'ai des lignes vides dans le tableau final. Penses tu que je dois définir des variables pour commencer mon vba ?

@menhir : j'apprécie ta pédagogie et ton pragmatisme. Ton aide est précieuse merci infiniment.

[porruak]

As tu trier les résultats...

Après le tri, en principe toutes les lignes devrait être soit en haut soit en bas.

[porruak]

lignes vides bien sur

[oyard]

Et si je mets un autofilter.
J'ai fait celui là mais ça ne fonctionne pas :

Code :

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

1
2
3
Sub Act()
    Selection.AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd
End Sub

[Menhir]

J'ai l'impression que depuis le début tu balances n'importe quel code sans prendre la peine de savoir ce qu'il contient dans l'espoir que quelqu'un fera ton travail à ta place.

[oyard]

Oui tout à fait, je prends des codes chopés au hasard, et j'attends qu'on me les corrige.

[porruak]

Ne passe pas par du VBA. Au vue de ton besoin le VBA est un peu trop luxueux.

Avec une formule et un filtre tu devrais pouvoir arriver à tes fins.

[papouclo]

Bonjour,
Le classeur joint répond-il aux besoins exprimés ?
Cordialement
Claude