aller automatiquement dans une cellule

[Farscape]

Salut,

J'ai encore besoin d'un ptit coup de main,
je doit créer des fiches par personne
je voudrait les créer sur une meme feuille (l'une en dessous de l'autre), mais j'aimerais qu'en haut avec un menu déroulant quand je choisisse tel ou tel personne, la feuille descende jusqu'a sa fiche.

Ci-joint une ébauche rapide

Merci.
[file name=Fiche.zip size=6474]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Fiche.zip[/file]

 

[tontoncarton]

hello farscape 🙂


tu peux te servir de l'enregistreur de macro et faire editer/rechercher et tu remplaces le mot dans le code par ta variable 🙂

voilou au cas ou je reste dans le coin lol

 

[Farscape]

c'est une solution mais malheuresement ca ne marche pas la macro ne lance pas le fenetre de recherche

tans pis, mais merci quand memed'avoir essayer.

a+

 

[tontoncarton]

lol non , c'est normale que ca ne lance pas la fenetre 🙂
ca a juste generer le code pour recherché ,tu remplaces dans le code le what:='lemot' par ta variable 🙂

 

[Farscape]

J'ai peut etre trouver une solution mais je n'arrive pas a ecrire la bonne phrase si quelqu'un connait mon erreur:

If Feuil1.Range('D4').Value = '1' Then ActiveWindow.SmallScroll Down:=-1000
If Feuil1.Range('D4').Value = '2' Then ActiveWindow.SmallScroll Up:=1000 And SmallScroll Down=21

La premiere ligne pas de probleme mais la deuxième il me met 'fin attendu'

ET la je coince

Merci

 

[tontoncarton]

re ,


if sheets('feuil1').range('d4') ='1' then ...... etc
if sheets('feuil1').range('d4') ='2' then
ActiveWindow.SmallScroll Up:=1000
ActiveWindow.SmallScrollDown=21
end if

@+

 

[Farscape]

Je n'y arrive pas la variable c'est bien ma cellule
j'ai essayer :
D4
Feuil1.Range('D4').Value
Range('D4').Value
Range('D4')

et à chaque fois ca coince

 

[tontoncarton]

re ,
non ta variable c 'est pas range('b4') c'est la valeur de ta liste deroulante que tu as creer sur ta feuille

 

[Farscape]

ok

 

[tontoncarton]

sinon quel sont les criterers que tru veux faire apparaitres dans les fiches de chaque nom ?

nom ,prenom et ?

 

[Farscape]

Pour le code Visual Basic

ça marche tans qu'il n'y a que deux 'IF'
Si je rajoute un troisième ligne Il me dit

Bloc If sans End If

Pourquoi?

Merci encore pour votre aide.

 

[tontoncarton]

fait moi un copier coller de ton code stp

 

[Farscape]

Pour l'option avec recherche ca marche mais il n'est pas bien calé
CAD trop bas trop haut, j'aimerais si possible que la fiche tombe pil poil au centre

C'est pour cela que j'essaye Avec ActiveWindow.SmallScroll

car je n'aurais pas beaucoup de fiche.
donc si ca marche je le ferais pour le nombre de fiche que j'aurais

 

[Farscape]

Sub Macro1()
If Feuil1.Range('D4').Value = '1' Then ActiveWindow.SmallScroll Up:=1000
If Feuil1.Range('D4').Value = '2' Then
ActiveWindow.SmallScroll Up:=1000
ActiveWindow.SmallScroll Down:=21
If Feuil1.Range('D4').Value = '3' Then
ActiveWindow.SmallScroll Up:=1000
ActiveWindow.SmallScroll Down:=42
If Feuil1.Range('D4').Value = '4' Then
ActiveWindow.SmallScroll Up:=1000
ActiveWindow.SmallScroll Down:=63

End If

End Sub



voilà

 

[tontoncarton]

Sub Macro1()
If Feuil1.Range('D4').Value = '1' Then
ActiveWindow.SmallScroll Up:=1000
end if

If Feuil1.Range('D4').Value = '2' Then
ActiveWindow.SmallScroll Up:=1000
ActiveWindow.SmallScroll Down:=21
end if

If Feuil1.Range('D4').Value = '3' Then
ActiveWindow.SmallScroll Up:=1000
ActiveWindow.SmallScroll Down:=42
end if

If Feuil1.Range('D4').Value = '4' Then
ActiveWindow.SmallScroll Up:=1000
ActiveWindow.SmallScroll Down:=63
End If

End Sub