formule pour trouver une valeur

Misange

XLDnaute Barbatruc

• 5 Avril 2014

• #2

Re : formule pour trouver une valeur

Bonjour,
pas besoin de formule : tu copies ton tableau jaune
tu sélectionnes une cellule vide
collage spécial/transposé

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 5 Avril 2014

• #3

Re : formule pour trouver une valeur

Bonjour,

Pourquoi une formule, un copier/collage spécial -valeurs-transposé est immédiat.

A+
edit bonjour Misange Victor (copier coller mais aussi avec Valeurs car formules )

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 5 Avril 2014

• #4

Re : formule pour trouver une valeur

Re,

De plus en plus abscons ...

Bonjour, Misange, JJ1 🙂

 

Dernière édition: 5 Avril 2014

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 5 Avril 2014

• #5

Re : formule pour trouver une valeur

Bonjour

merci pour vos conseils et votre temps

mais c'est ce que je fait actuellement et a chaque fois je ouvrir le classeur ou est enregistré les données j'ai 12 onglets et chaque jour je dois copie collage special valeur transposé

Ok c'est un peu lourd

et je recherche une formule

je repose ma question:

je recherche une formule pour trouver les valeurs automatiquement

j'ai essayé avec index ; indirect mais je n'arive sà rien de bon

a+

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 5 Avril 2014

• #6

Re : formule pour trouver une valeur

Bonjour

Tu sélectionnes une plage de 3 lignes par 3 colonnes. Tu écris =TRANSPOSE(A3:C5) et tu valides avec CTRL+maj tempo + entrée. Et hop...

@ plus

 

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 6 Avril 2014

• #7

Re : formule pour trouver une valeur

Bonjour,

j'ai testé
mais cela recopie à l'identique le tableau

pourquoi ne pas inscrire dans la celllule h 4 => = B4

a+

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 6 Avril 2014

• #8

Re : formule pour trouver une valeur

Refais le test...
Validation matricielle = ctrl+maj+ entrée et non pas juste entrée

 

Vote positif 0 Vote négatif

A

a10

XLDnaute Impliqué

• 6 Avril 2014

• #9

Re : formule pour trouver une valeur

bonjour

oui j'ai bien fait avec avec la formule matricielle comme demandé
ctrl+maj+ entrée

a+

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 6 Avril 2014

• #10

Re : formule pour trouver une valeur

Bonjour

Cela fonctionne très bien en matriciel. Cf. en pièce jointe.

@ plus

 

Pièces jointes

• recherche-valeur.xlsm

  575.3 KB · Affichages: 27

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Avril 2014

• #11

Re : formule pour trouver une valeur

Bonsoir à tous,

Bien d'accord pour la formule matricielle avec TRANSPOSE.

Mais quand une cellule est vide (en A3), pour éviter qu'elle ne se convertisse en 0 (en G8), utiliser :

Code:

=TRANSPOSE(SI(ESTVIDE(A3:C5);"";A3:C5))

Fichier joint.

A+

 

Pièces jointes

• recherche-valeur(1).xls

  36.5 KB · Affichages: 21

Dernière édition: 6 Avril 2014

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Avril 2014

• #12

Re : formule pour trouver une valeur

Bonjour le fil, le forum,

Avec un tableau de hauteur variable, on peut définir les noms T et matrice.

En G8 on utilisera cette formule (sans validation matricielle) :

Code:

=SI(OU(LIGNES(G$8:G8)>LIGNES(T);COLONNES($G8:G8)>COLONNES(T));"";INDEX(matrice;LIGNES(G$8:G8);COLONNES($G8:G8)))

ou sur Excel 2007 et versions suivantes :

Code:

=SIERREUR(INDEX(matrice;LIGNES(G$8:G8);COLONNES($G8:G8));"")

Fichier (2).

A+

 

Pièces jointes

• recherche-valeur(2).xls

  49.5 KB · Affichages: 26

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Avril 2014

• #13

Re : formule pour trouver une valeur

Re,

En VBA ce n'est pas bien compliqué :

Code:

Sub Transposer()
Dim s As Range, d As Range, ncol%, h&
Set s = [A3] '1ère cellule source
Set d = [G8] '1ère cellule de destination
ncol = 3 'nombre de colonnes du tableau source
d.Resize(Rows.Count - d.Row + 1, Columns.Count - d.Column + 1).ClearContents 'RAZ
h = Columns(s.Column).Resize(, ncol).Find("*", , xlValues, , xlByRows, xlPrevious).Row - s.Row + 1
If h < 1 Then Exit Sub
If h + d.Column - 1 > Columns.Count Then MsgBox "On sort de la feuille...": Exit Sub
d.Resize(ncol, h) = Application.Transpose(s.Resize(h, ncol))
End Sub

Fichier joint.

A+

 

Pièces jointes

• recherche-valeur VBA(1).xls

  58 KB · Affichages: 21

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Avril 2014

• #14

Re : formule pour trouver une valeur

Re,

On peut utiliser une macro événementielle pour exécuter Transposer :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 4 Then Transposer
End Sub

Fichier (2).

A+

 

Pièces jointes

• recherche-valeur VBA(2).xls

  58 KB · Affichages: 23

Vote positif 0 Vote négatif