Help

[cboulanger]

Tout est dis dans le fichier,

Je voudrais appeler une ligne (recherche V)

La faire appraitre juste en dessous (couleur rouge vous verrez, et pouvoir modifier quelques cellules qui font partie de cette ligne.

Celui qui trouve est un dieu...

Merci d'avance

 

[cboulanger]

Re : Help

et voici le fichier... oubli...le coup classique...

 

[criscris11]

Re : Help

Re cboulanger
Et il est où le fichier ?

Tu postais ton fichier alors que je répondais alors ne tiens pas compte de mon message.

 

[criscris11]

Re : Help

Re,
Est ce que le fitre automatique ne correspondrait il pas à ton besoin ou alors j'ai mal compris.
Tu nous dis.

 

[cboulanger]

Re : Help

exactement, le filtre automatique ne va pa en fait, il ne correspond pas, comment vous dire...je ne peux pa filtrer en fonction du contenu de la cellule A2, et afficher le résultat qui suit en A4 avec les cellules B4,C4,D4 qui vont avec.

en clair je voudrais taper une date en A2, que celle ci s'affiche en A4, et que je puisse modifié la ligne A4, modifié toutes les donnée qui apparaissent à coté ( B4,C4,D4) à ma demande.

si vous comprenez....

 

[Sheldor]

Re : Help

C'est vrai le filtre ça te permettrait de l'avoir par souris plutôt que de taper.
bon je ne suis pas un pro mais j'ai ça. ça ne met pas la ligne en haut par contre mais ça le sélectionne.
même demi-dieu c'est déjà tentant.
par contre quand j'ouvre le fichier il me l'ouvre trois fois!! jamais vu ça.

 

[cboulanger]

Re : Help

au passage je sui avec excel 2002...sp3 apparament

 

[Sheldor]

Re : Help

je ne vois pas ce que ça apporte de ramener la ligne cherchée en ligne 4, d'après ce que tu envoies en tout cas.

 

[cboulanger]

Re : Help

ton truc est bon, il me faudrai juste quil mettre la référence automatiquement en premiere ligne...moi je sui je demi dieu de "jouvre 3 fois un fichier"...

 

[criscris11]

Re : Help

Re,
Regardes si cela te vas.
Bon après-midi.

Le code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2], Target) Is Nothing And Target.Count = 1 Then
    If Target.Value <> "" Then
        [A3].AutoFilter Field:=1, Criteria1:=Target.Value
    Else
        [BA3].AutoFilter Field:=1
    End If
End If
End Sub

 

[cboulanger]

Re : Help

super !

Comment as tu fait ?

Si tu pouvais me faire un historique de ta manipulation se serait cool !

Un grand merci !

 

[criscris11]

Re : Help

Re,
Regardes mon précédent, je t'ai mis le code qui déclenche le filtre quand tu change la valeur de A2.
Juste une petite remarque : quand il n'y a pas de date dans de A2 et pour éviter d'avoir #N/A en B,Cet D3 tu peux modifier ainsi :
=SI(Criteres="";"";RECHERCHEV($A$2;$A$4:$D$203;2))
C'est juste d'un point de vue esthétique.
Bon après-midi à toi.

 

[cboulanger]

Re : Help

oui daccor, excuse moi je navais pa vu.

Une derniere chose, si tu veux le fichier je dois le mettre sur excel mobile, et je vien d'apprendre que les macros ne passait pas sur ce "petit" excel, alors existe t'il un moyen de faire la meme chose sans la macro..?

Merci de ton aide.

Clément

 

[criscris11]

Re : Help

Re,
Concernant ta question en MP, je suppose qu'Excel mobile est la version PDA ou un autre truc dans ce genre. Mais le code que je t'ai donné est une macro et franchement je ne suis pas sûr qu'on puisse le faire sans macro hormis via le filtre automatique manuel.