Microsoft 365 Formule de recherche

[homernell]

Bonjour à tous,

Déjà merci à tous de me lire.

Je vous explique j'ai un tableau dans lequel j'ai un onglet "données" qui sont les données brut extraite d'un programme, et un onglet "récap" qui retraite l'information.

J'ai fait une formule en recherche (déjà je me suis bien débrouillé vu mon niveau ), néanmoins je ne sais pas comment faire pour qu'il me remonte une somme en fonction d'un condition, je me demande d'ailleurs si je suis clair !!!

Exemple : dans l'onglet données on a plusieurs lignes pour le film Venom, et j'aimerai avoir une récap en fonction des formats et versions de films.

Je vous mets en copie mon fichier peut être plus simple pour vous expert de voir concrètement.

Merci d'avance.

 

[sylvanu]

Bonsoir homernell,
On peut utiliser somme.si.ens comme en PJ :

=SOMME.SI.ENS(données!I:I;données!C:C;récap!B3;données!E:E;récap!C3;données!F:F;récap!D3)

Attention, dans votre fichier les données "ca" ne sont pas des nombres mais des chaines de caractères. J'ai été obligé dans chaque cellule de sélectionner et faire un return. de plus il y a un espace texte entre milliers et unités.

Fonction SOMME.SI.ENS - Support Microsoft

Comment utiliser la fonction SOMME.SI.ENS dans Excel, l'une des fonctions mathématiques et trigonométriques d'Excel, pour additionner les arguments qui répondent à plusieurs critères.

support.microsoft.com

 

[homernell]

Bonsoir homernell,
On peut utiliser somme.si.ens comme en PJ :

=SOMME.SI.ENS(données!I:I;données!C:C;récap!B3;données!E:E;récap!C3;données!F:F;récap!D3)

Attention, dans votre fichier les données "ca" ne sont pas des nombres mais des chaines de caractères. J'ai été obligé dans chaque cellule de sélectionner et faire un return. de plus il y a un espace texte entre milliers et unités.

Fonction SOMME.SI.ENS - Support Microsoft

Comment utiliser la fonction SOMME.SI.ENS dans Excel, l'une des fonctions mathématiques et trigonométriques d'Excel, pour additionner les arguments qui répondent à plusieurs critères.

support.microsoft.com

Tout d'abord merci mille fois pour la réponse rapide ainsi que la solution par contre je n'ai pas tout compris sur les données CA.
Faut-il que je ressaisisse toutes les données à chaque fois ? si oui ce serait une perte de temps j'imagine..

 

[sylvanu]

Bonjour,
Le mieux serait que l'import se fasse avec des nombres et non du texte.
Ce qui n'est pas toujours faisable.
Une autre solution est un module VBA qui transforme ce texte en nombre avec :

Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    With Sheets("données")
        For L = 2 To .Range("L65500").End(xlUp).Row
            .Cells(L, "L") = .Cells(L, "L") * 1
        Next L
    End With
    Application.ScreenUpdating = True
End Sub

Ce code s'exécute automatiquement lorsqu'on sélectionne la feuille "recap"
Evidemment il faut accepter les macro à l'ouverture du fichier.

 

[homernell]

Bonjour,
Le mieux serait que l'import se fasse avec des nombres et non du texte.
Ce qui n'est pas toujours faisable.
Une autre solution est un module VBA qui transforme ce texte en nombre avec :

Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    With Sheets("données")
        For L = 2 To .Range("L65500").End(xlUp).Row
            .Cells(L, "L") = .Cells(L, "L") * 1
        Next L
    End With
    Application.ScreenUpdating = True
End Sub

Ce code s'exécute automatiquement lorsqu'on sélectionne la feuille "recap"
Evidemment il faut accepter les macro à l'ouverture du fichier.

Bonjour franchement c'est top du top, tu solutionnes mes problèmes.

Mais si je peux utiliser encore tes services, je viens de faire un test avec un nouvel import, et bizarre j'ai une cellule qui me fait planter, je pense qu'il s'agit encore de format :

Si tu peux m'aider ? s'il te plait

 

[sylvanu]

Bonjour,
Dans votre fichier initiale les données commençaient en ligne 2, ici en ligne 1. C'est rectifié.

 

[homernell]

Bonjour,
Dans votre fichier initiale les données commençaient en ligne 2, ici en ligne 1. C'est rectifié.

Ah ok, en fait si j'essaye de comprendre c'est dans la macro que tu as fait :
For L = 2

 

[sylvanu]

J'ai remplacé :

For L = 2 To .Range("L65500").End(xlUp).Row

par

For L = 1 To .Range("L65500").End(xlUp).Row

Le problème est que si en ligne 1 il a du texte, la conversion crée une erreur donc j'évite l'erreur avec un On error resume next qui saute la ligne suivante si erronée, on a donc :

Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    With Sheets("données")
        For L = 1 To .Range("L65500").End(xlUp).Row
            On Error Resume Next    ' les données commencent en ligne 2 ou 1, évite erreur si en 1 il y a du texte.
            .Cells(L, "L") = .Cells(L, "L") * 1
        Next L
    End With
    Application.ScreenUpdating = True
End Sub

NB: La macro se lance automatiquement quand on sélectionne la feuille Récap, inutile de la relancer via le bouton.

 

[homernell]

Par contre rien à voir mais est-ce que tu sais pourquoi j'ai la poignée de glisser déplacer qui se désactive sans action ?

 

[sylvanu]

Non, ça je ne l'ai jamais observé.
Je viens même de le retester sur votre fichier sans problème.

 

[homernell]

Bonjour franchement c'est top du top, tu solutionnes mes problèmes.

Mais si je peux utiliser encore tes services, je viens de faire un test avec un nouvel import, et bizarre j'ai une cellule qui me fait planter, je pense qu'il s'agit encore de format :

Regarde la pièce jointe 1119528

Si tu peux m'aider ? s'il te plait

Re,

Bonjour à toi, et encore merci,

Nouveau problème ils m'ont changé la mise en page du coup ta macro ne fonctionne plus, peux tu m'aider à nouveau ?

 

[homernell]

Re,

Bonjour à toi, et encore merci,

Nouveau problème ils m'ont changé la mise en page du coup ta macro ne fonctionne plus, peux tu m'aider à nouveau ?

Alors j'ai essayé de me débrouiller mais la colonne L est toujours en macro, je comprends pas !

 

[sylvanu]

Bonjour,
Il suffit de remplacer la colonne L par la colonne V.
J'ai remis à jour les formules et modifié la macro :

Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    With Sheets("données")
        For L = 2 To .Range("V65500").End(xlUp).Row
            If .Cells(L, "V") <> "" Then
                .Cells(L, "V") = Val(Replace(.Cells(L, "V"), " ", "")) * 1
            End If
        Next L
    End With
    Application.ScreenUpdating = True
End Sub

 

[homernell]

Bonjour,
Il suffit de remplacer la colonne L par la colonne V.
J'ai remis à jour les formules et modifié la macro :

Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    With Sheets("données")
        For L = 2 To .Range("V65500").End(xlUp).Row
            If .Cells(L, "V") <> "" Then
                .Cells(L, "V") = Val(Replace(.Cells(L, "V"), " ", "")) * 1
            End If
        Next L
    End With
    Application.ScreenUpdating = True
End Sub

Merci mais le fichier ne fonctionne pas j'ai l'impression.
Et surtout j'avais plus ou moins compris la logique de remplacement de L par V mais quand je regarde votre macro je vois encore des L (et des V).

 

[sylvanu]

???
Le L est l'indice du For Next, le V est le nom de la colonne d'où les apostrophes.
Et pourquoi cela ne marche pas ?
En V on a bien les valeurs et en Recap les valeurs sont correctes.