Formule

[maval]

Bonjour

Je recherche une formule.

Je voudrais obtenir dans chaque colonne de la feuil5 "B, C, D,E",le résultat de:

Feuil1 colonne "G" vers Feuil5 de la "B"
Feuil2 colonne "H" vers Feuil5 de la "C"
Feuil3 colonne "I" vers Feuil5 de la"D"
Feuil4 colonne "J" vers Feuil5 de la"E"


Un petit fichier joint pour une meilleure compréhension, merci d'avance à tous !

Cordialement

Maval

 

[mutzik]

Re : Formule

bonjour,

questions :
- les différentes feuilles source n'ont pas le même nombre de lignes ?
- =Feuill1!G3 ne répond pas à ta demande (si toujours mm nombre de lignes) ?
- le nombre de lignes des feuilles source risque de changer ?

 

[maval]

Re : Formule

Bonjour Bertrand,

Merci d'avoir répondu
Oui les feuilles source ont généralement toujours les même nombres de lignes.
@+

Max

 

[mutzik]

Re : Formule

re,

sinon voici le code pour copier les valeurs, je te laisse ajouter ce qui manque

Sub CopierColonnes()
    Sheets("Feuil1").Columns("C:C").Copy
    Sheets("Feuil5").Columns("D:D").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    '... autres feuilles ...



    Application.CutCopyMode = False
End Sub

 

[maval]

Re : Formule

Re Bertrand

Je te remercie beaucoup juste un petit renseignement
pour que la copie se fasse automatiquement en passant par "Private Sub Worksheet_Change(ByVal Target As Range)" comment je doit formuler

Merci d'avance

@+

Max

 

[Gardien de phare]

Re : Formule

Bonjour,

Avec des zones nommées pour chaque feuille source, et sans macro ? Voir le classeur joint.

HTH

 

[R@chid]

Re : Formule

Bonjour @ tous,
une variante,
en B3,

=SIERREUR(PETITE.VALEUR(INDIRECT("Feuil"&COLONNES($B:B)&"!"&CAR(70+COLONNES($B:B))&":"&CAR(70+COLONNES($B:B)));LIGNES($3:3));"")

@ tirer vers le bas et vers la droite
@ +

 

[maval]

Re : Formule

Bonjour François, Rachid,

Rachid j'ai les noms des feuilles définitif qui se nomme "1erTours, 2émeTours" ect...et des que je change le nom de la formule sa ne fonctionne pas. Que doit on mettre a la place? de "feuil"

Et merci à tous

@+

Max

 

[R@chid]

Re : Formule

Bonjour,
et alors c'est la faute de ta pièce jointe...
si tu renommes tes onglets ==> Tours1 Tours2 ou 1Tours 2Tours ma formule fonctionne, sinon je vais voir...
@ +

 

[R@chid]

Re : Formule

Bonjour,
en B3,

=SIERREUR(PETITE.VALEUR(INDIRECT(COLONNES($B:B)&CHOISIR((COLONNES($B:B)>1)+1;"er";"ème")&"Tours!"&CAR(70+COLONNES($B:B))&":"&CAR(70+COLONNES($B:B)));LIGNES($3:3));"")

@ tirer vers le bas et vers la droite

NB : les accents dans les noms des champs et les noms des onglets sont déconseillés il vaut mieux d'utiliser des caractères simples...

@ +

 

[maval]

Re : Formule

Re,

Nickel Rachid je te remercie et te souhaite une bonne fin d'année

@+

Max

 

[R@chid]

Re : Formule

Bonjour,
une autre plus simple, tu peux télécharger la Macro Complémentaire "MoreFunc" sur la toile c'est gratis, installer la....
et en B3,

=SIERREUR(PETITE.VALEUR(DECALERFEUILLE('1erTours'!G:G;COLONNES($B:B)-1);LIGNES($3:3));"")

@ tirer vers le bas et vers la droite.

fonction ==> DECALERFEUILLE()

@ +

 

[R@chid]

Re : Formule

Bonjour @ tous,
une variante avec une MacroXL4 nommée...

dans le gestionnaire de noms,
Nom de champ : MesOnglets
Fait référence à :

=STXT(LIRE.CLASSEUR(1);TROUVE("]";LIRE.CLASSEUR(1))+ALEA()+1;32)

en B3,

=SIERREUR(PETITE.VALEUR(INDIRECT(INDEX(MesOnglets;COLONNES($B:B))&"!"&CAR(70+COLONNES($B:B))&":"&CAR(70+COLONNES($B:B)));LIGNES($3:3));"")

@ tirer vers le bas et vers la droite

NB : tu peux renommer les onglets comme tu veux, tout reste à l'ordre...

Voir PJ.

@ +

 

[maval]

Re : Formule

Salut Rachid,

Je te remercie je verrais cela avec beaucoup d’intérêt demain matin parce que je doit travailler

Je te souhaite de passer un bon réveillon a toi et tous les autres.

@+

Max