Autres fonction Indirect

[Usine à gaz]

Bonjour à toutes et à tous

Je fais suite à ce fil : https://excel-downloads.com/threads/formule-trop-compliquee-pour-moi.20070171/

Pour le fichier joint, j'avais besoin de renseigner dans la feuille "Clients Récap" la colonne "K"

vgendron avait vu qu'il fallait utiliser la fonction indirect()​

Deadpool_CC​

m'a donné une formule super bien :
"=SI(RECHERCHE($B2;INDIRECT("N°_"&$A2))<>$B2;0;RECHERCHE($B2;INDIRECT("RdVs_"&$A2)))"
Cette formule fonctionne avec des plages nommées

Aujourd'hui, j'ai un nouveau besoin
- dans ma feuille "Clients Récap" colonnes "O à U" je saisi des informations de suivi de mes clients :
- à la fermeture de mon fichier, une copie de "Clients Récap" est automatiquement faite et nommée "Clients Récap copie"
- à la réouverture, je fais une mise à jour des informations
- le contenu de ma feuille "Clients Récap" a changé et le contenu des colonnes "O à U" sont effacées

J'ai besoin de récupérer les information de la feuille "Clients Récap copie" col "O à U"
et de les replacer sur lignes de mes Clients correspondants
J'ai tenté de reproduire ce que Deadpool_CC a fait :
- création des plages "recap2 à recap7"

Mais ça fonctionne pas
Je ne vois pas mon erreur
Résultat attendu montré en feuille "Clients Récap résultat attendu"

Je vous remercie

 

[Usine à gaz]

Bonjour à toutes et à tous
Je reviens sur ce fil...
J'ai ajouté la feuille "Clients Récap résultat attendu"
Pour que ma demande soit plus claire.
Merci à toutes et à tous

 

[Usine à gaz]

Re-Bjr,

J'ai tenté d'avancer et j'ai ajouté la plage "N°_RecapC ='Clients Récap copie'!$B$2:$B$1000"
Mais ça ne fonctionne toujours pas Grrr !!!!

 

[job75]

Bonjour Lionel, le forum,

Je ne comprends pas pourquoi on t'a conseillé ces formules compliquées avec INDIRECT.

Alors qu'une simple RECHERCHEV de N°Cle suffit, formule en K2 :

=RECHERCHEV($B2;'Clients Récap copie'!$B:$U;COLONNES($B:K);0)

A copier vers les colonnes O P Q R S T U, sur ces colonnes les valeurs zéro sont masquées.

A+

 

[sylvanu]

Bonjour Lionel, Job,
Si j'ai bien compris à chaque fermeture vous faites une copie de Clients Récap dans Clients Récap copie ?
Si c'est le cas pourquoi ne pas copier les valeurs et non les formules ?
( par contre dans vos macros, je n'ai pas trouvé où vous faisiez cette copie )

 

[Usine à gaz]

Bonjour Lionel, le forum,

Je ne comprends pas pourquoi on t'a conseillé ces formules compliquées avec INDIRECT.

Alors qu'une simple RECHERCHEV de N°Cle suffit, formule en K2 :

=RECHERCHEV($B2;'Clients Récap copie'!$B:$U;COLONNES($B:K);0)

A copier vers les colonnes O P Q R S T U, sur ces colonnes les valeurs zéro sont masquées.

A+

Bjr Gérard
Une de plus, je ne les compte plus lol, MERCI
Evidemment ça fonctionne très bien comme ça.
MERCI MERCI

 

[Usine à gaz]

Bonjour Lionel, Job,
Si j'ai bien compris à chaque fermeture vous faites une copie de Clients Récap dans Clients Récap copie ?
Si c'est le cas pourquoi ne pas copier les valeurs et non les formules ?
( par contre dans vos macros, je n'ai pas trouvé où vous faisiez cette copie )

Bjr à toi
"Si j'ai bien compris à chaque fermeture vous faites une copie de Clients Récap dans Clients Récap copie ?"
C'est bien ça
"Si c'est le cas pourquoi ne pas copier les valeurs et non les formules ?"
Quand ça fonctionnera, je ferai le code qui mettra la formule et remplacera par la valeur.
"par contre dans vos macros, je n'ai pas trouvé où vous faisiez cette copie"
C'est pas le fichier complet = juste un test sur les formules

 

[sylvanu]

Re,

Quand ça fonctionnera, je ferai le code qui mettra la formule et remplacera par la valeur.

Justement, en faisant un copier coller valeurs, votre problème de formules disparait de facto.
Donc je ne vois pas l'intérêt de résoudre un problème de formules pour ensuite coller des valeurs.
En PJ un essai, par exemple avec :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("Clients Récap")
    DL = .Cells(Cells.Rows.Count, "A").End(xlUp).Row
    DC = .Cells(1, .Columns.Count).End(xlToLeft).Column
    .Range(Cells(1, 1), Cells(DL, DC)).Copy
    Sheets("Clients Récap copie").[A1].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False
End Sub

 

[Usine à gaz]

re sylvanu
Merci pour ton fichier...
Je n'ai pas pu regarder maintenant, je vois ça ce soir.