Formules pour acheminer des cellules vers un tableau..

[Guido]

Bonjour Le Forum

Formules pour acheminer des cellules vers un tableau..de la meme feuille..

Voir le fichier..

Merci

Guido

 

[Dugenou]

Re : Formules pour acheminer des cellules vers un tableau..

Bonjour,
une formule certainement améliorable pour la partie si (esterreur(xxx);0;...) en pj

=SI(ESTERREUR(EQUIV($V8;DECALER($A$5:$A$15;EQUIV($V$7;$A$5:$A$33;0););0));0;INDEX(DECALER($N$5:$Q$16;EQUIV($V$7;$A$5:$A$33;0););NBVAL($V$8:$V8);NBVAL($V$8:V$8)))

à modifier pour chaque pavé pour V7 et V8 en respectant les $

sinon avec un recherchev sur une zone décalée ça doit aussi fonctionner.

Cordialement

 

[Guido]

Re : Formules pour acheminer des cellules vers un tableau..

Re

Merci Dugenou pour ta solutions

qui fonctionne super bien.

Merci

Amitiés

Guido

 

[Guido]

Re : Formules pour acheminer des cellules vers un tableau..

Bonsoir Dugenou et le Forum

Comme dit plus haut dans ton fichier joint ,ca marche super

A present je crée une nv macros

avec un nv bouton et adapter a la macro 50,

et la debogage

Sheets("Feuil1").........................................................

ma feuille a l'onglet " Arrivée " probleme, je n'arrive pas a renomer l'onglet...????l

Sur mon fichier perso,que je ne peux pas envoyé ici car trop lourd..meme compressé.


Sub Macro50()
'
' Macro50 Macro
'



'
Dim a As String, b As String, c As String, d As String



Sheets("Feuil1").Columns(1).Cells.Find(What:="R1").Activate
a = ActiveCell.Value
Range("V7").Select
ActiveCell = a
Sheets("Feuil1").Columns(1).Cells.Find(What:="R2").Activate
b = ActiveCell.Value
Range("V18").Select
ActiveCell = b
Sheets("Feuil1").Columns(1).Cells.Find(What:="R3").Activate
c = ActiveCell.Value
Range("V29").Select
ActiveCell = c
Sheets("Feuil1").Columns(1).Cells.Find(What:="R4").Activate
d = ActiveCell.Value
Range("V40").Select
ActiveCell = d
End Sub

Merci d'avance

Guido

 

[Guido]

Re : Formules pour acheminer des cellules vers un tableau..

Bonjour Le forum

J'ai essayé ,mais pas de solution ...

un petit coup de pouce ...Svp.

Merci d'avance

Guido

 

[Guido]

Re : Formules pour acheminer des cellules vers un tableau..

Re

Bonsoir

pas???une petite solution

merci

Guido

 

[Guido]

Re : Formules pour acheminer des cellules vers un tableau..

Bonjour Dugenou et le Forum

J'ai trouvé une erreur dans mon fichier???

La cellule A1 etais fusionner avec B1,C1et D1

Dans la cellule AC7 j'ai valeur de 7

est ce normal??? ,si je modifie la formule disparait...

=EQUIV($V$7;$A$1:$A$29;0)

Voir le fichier plus haut

Merci d'avance

Guido