Microsoft 365 boucle difficile pour moi

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Avril 2022

• #2

Bonsoir @Usine à gaz ,

Pourquoi pas une formule en Y2 de la feuille "Facture" à copier vers le bas. Ou mieux transformer facture en tableau structuré et la formule en Y2 se propagera automatiquement vers le bas:

VB:

="RdV "&SI(NB.SI.ENS(Appels!B$6:B$99;E2;Appels!K$6:K$99;A2);"Facturé";"Fait")

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 28 Avril 2022

• #3

Salut

cette formule ne suffirait elle pas?

VB:

=SI(ESTNUM(EQUIV(K6;Facture!$A$2:$A$42;0));"Fait et Facturé";"RdV Fait")

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 28 Avril 2022

• #4

Bonsoir vgendron
Merci, je vais tester...
lionel

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 28 Avril 2022

• #5

Re vgendron
Evidemment te formule fonctionne nickel.
Mais dans mon fichier de travail, je ne peux pas mettre de formules dans la feuille "Appels"
Il me faut passer par une boucle à partir de la feuille "Facture"
lionel

 

Dernière édition: 28 Avril 2022

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Avril 2022

• #6

Bonjour Lionel, mapomme, vgendron,

Le code de la feuille "Appels" :

VB:

Option Compare Text 'la casse est ignorée

Private Sub Worksheet_Activate()
Dim d As Object, tablo, i&, x$, P As Range, resu$()
'---liste sans doublon---
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
tablo = Sheets("Facture").UsedRange.Resize(, 25) 'matrice, plus rapide
For i = 2 To UBound(tablo)
    x = Application.Trim(tablo(i, 25))
    If x = "RdV Fait" Then d(x & tablo(i, 1) & tablo(i, 5)) = ""
Next i
'---tableau des résultats---
Set P = Range("A1", UsedRange).Resize(, 11)
If P.Rows.Count < 6 Then Exit Sub
Set P = P.Offset(5).Resize(P.Rows.Count - 5)
tablo = P 'matrice, plus rapide
ReDim resu(1 To UBound(tablo), 1 To 1)
For i = 1 To UBound(tablo)
    x = Application.Trim(Replace(tablo(i, 10), "Facturé", ""))
    resu(i, 1) = x & IIf(d.exists(x & tablo(i, 11) & tablo(i, 2)), " Facturé", "")
Next i
'---restitution---
Application.EnableEvents = False 'désactive les évènements
P(1, 10).Resize(i - 1) = resu
Application.EnableEvents = True 'réactive les évènements
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheet_Activate 'lance la macro
End Sub

A+

 

Pièces jointes

• fact_maj_test(1).xlsm

  52 KB · Affichages: 4

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 29 Avril 2022

• #7

Bonjour Gérard
Waooo !!! toujours là pour moi, je me sens très "obligé" car c'est en grande partie grâce à toi que je peux travailler dans de bonnes conditions avec mes "usine à gaz lol.
Encore merci pour ce code.
Je teste et je reviens,
lionel

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 29 Avril 2022

• #8

Re-Gérard
Evidemment, c'est nickel.
Merci pour ce nouveau confort,
lionel

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 2 Mai 2022

• #9

Bonjour Gérard, le Fil, le Forum,
Je vous souhaite une belle journée
@Gérard,
Le fichier test fonctionne mais quand j'importe les infos de mon fichier de travail dans le fichier, ça ne fonctionne plus.
Pour info, dans mon fichier de travail, j'ai plus de 10.000 lignes

Je joins le fichier fichier dans lequel j'ai :
- Importé une ligne (la 1ère) de mon fichier de travail,
- modifié une ligne à la main (la seconde),
Ces deux lignes ne se mettent pas à jour.

ça ne fonctionne plus quand le nom n'est plus celui du fichier test.
Je pense qu'il faudrait que ce soit basé sur la date du RdV et le nom du Prospect :
(Il peut y avoir plusieurs RdVs avec dates et heures identiques pour des Prospects différents)
- feuille Appels date en col B et K
- feuille Facture date en col A et E

Je continue à chercher ...
Merci Gérard
lionel,

 

Pièces jointes

• fact_maj_Gerard.xlsm

  54.1 KB · Affichages: 2

Dernière édition: 2 Mai 2022

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Mai 2022

• #10

Bonjour Lionel, le forum,

Tu es sans doute mal réveillé ce matin.

Dans ton fichier du post #1 les noms de chaque feuille sont dans une seule colonne.

Alors qu'au post #9 dans la feuille "Facture" les noms modifiés sont le résultat de concaténations.

Ça n'a ni queue ni tête, en l'état je ne modifie pas mon code, fais un fichier cohérent.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Mai 2022

• #11

Ni queue ni tête aussi l'écriture de la date en Facture!A2.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 2 Mai 2022

• #12

Bonjour Gérard

Effectivement et je n'avais pas pensé à ça pour le fichier test : feuille "Facture" les noms modifiés sont le résultat de concaténations.
Bon sang, je ne peux pas faire autrement.
Je vais voir ce que je peux faire,
lionel

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Mai 2022

• #13

Si tous les noms de la feuille "Facture" sont le résultat de concaténations tu peux utiliser le fichier joint.

 

Pièces jointes

• fact_maj_Gerard(1).xlsm

  53.4 KB · Affichages: 5

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 2 Mai 2022

• #14

Re-Gérard
Merci pour ce fichier et pour ta patience.
OUI tous les noms de la feuille "Facture" sont le résultat de concaténations.
J'ai testé et ça fonctionne pour 4 lignes.
Je regarde pourquoi ça ne fonctionne pas pour les autres.

Comme la situation réelle contient des infos confidentielles,
Je pourrais, si tu veux bien t'envoyer en MP les éléments :
La facture Excel qui sert à l'importation.
Et ton fichier dans lequel j'ai importé.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Mai 2022

• #15

C'est simple : si ça ne fonctionne pas pour toutes les lignes c'est que les noms ou les dates sont erronés.

Note que la casse ou les espaces superflus n'ont pas d'importance.

 

Vote positif 0 Vote négatif