Selection de cellule a partir d'une scrollbar

T

Toutoun

Guest
Bonjour le forum.

J'ai un petit probleme en VBA qui doit etre extremement simple a réaliser mais je n'y arrive pas (je suis très débutant en VBA) :
Je souhaite grace a une scrollbar selectionné une cellule sur ma feuille.

Voici comment je procede un liste "date" du 01/01/04 au 31/01/04.
Une scrollbar avec comme min et max 01/01/04&31/01/04 avec linkcell : g3
Une formule equiv qui retrouve le numero de ligne de cette date.

(Voir le fichier joint)

J'ai essayé un code du type :

range(cells(1,range("g3").value)).select

Mais forcement ça ne marche pas.
Si quelqun ou quelqune pouvait eclairer ma lanterne...
Merci D'avance.
Toutoun
 

Pièces jointes

  • exemple.zip
    9.8 KB · Affichages: 10
  • exemple.zip
    9.8 KB · Affichages: 15
  • exemple.zip
    9.8 KB · Affichages: 16
B

Bernard

Guest
Bonjour Toutoun

Je vois pas de réponse encore ?

Aussi, je t'en propose une qui sélectionne la ligne de la date recherchée.

Il suffit d'enlever ".EntireRow" pour ne sélectionner que la date.

Cordialement


Bernard
 

Pièces jointes

  • exemple.zip
    13.4 KB · Affichages: 18
  • exemple.zip
    13.4 KB · Affichages: 21
  • exemple.zip
    13.4 KB · Affichages: 20
B

Bernard

Guest
Bonjour Toutoun

Je t'envoie le fichier directement dans ta bal car soit tu es absent, soit tu ne regardes pas les réponses mises sur le forum, soit tu crois que remercier le travail bénévole des forumeurs est une chose sans importance.

Dans tous les cas, à bientôt de tes nouvelles :-(

Cordialement

Bernard
 

Pièces jointes

  • exemple.zip
    12.6 KB · Affichages: 15
  • exemple.zip
    12.6 KB · Affichages: 17
  • exemple.zip
    12.6 KB · Affichages: 14
T

Toutoun

Guest
J'étais en train d'exploiter ta solution quand j'ai reçu ton deuxieme message.
J'allais par la suite comme à mon habitude (tu pourra verifier sur chaque post que j'ai laisser) remercier le ou les gentil(s) "formumeurs" qui m'aide à chaque fois.
Donc je te remercie et te fait part d'une autre solution que j'ai trouver en bidouillant la tienne.

Private Sub ScrollBar1_Change()
Dim k As Integer
k = Worksheets("frais").Range("c1")
Cells(k, 3).Select
End Sub

En fait la solution que je proposait au départ n'etait pas mauvaise, il suffisait d'utiliser la bonne synthaxe.

Je te remercie encore de t'etre penché sur mon probleme.
Au plaisir de te remercier une nouvelle fois...
Cordialement
Toutoun
 
B

Bernard

Guest
Rebonjour Toutoun

Je découvre ton message et t’en remercie :)

J'espère, par mon propos aigre-doux, ne pas t'avoir heurté plus que de raison. Mais rien n'est plus frustrant que d'ignorer si une action généreuse a été bien reçue !

C'est malheureusement trop souvent que des réponses restent sans suite dans ce forum, par ailleurs exceptionnel. Ce constat a pour fâcheuse conséquence d’éloigner certains forumeurs de talent.

Après examen de la macro présente dans ton message, je constate qu’elle fait appel à un résultat de formule de feuille, ce qui est une autre façon d'aborder le problème.
Elle présente cependant l'inconvénient de conserver une formule dans une cellule de la feuille uniquement pour faire marcher une macro ?

Je joints à nouveau le fichier avec une solution dans chaque feuille, dans la troisième, c'est la tienne.

Cordialement


Bernard
 

Pièces jointes

  • exemple.zip
    17 KB · Affichages: 17
  • exemple.zip
    17 KB · Affichages: 19
  • exemple.zip
    17 KB · Affichages: 20
T

Toutoun

Guest
Merci, je vais effectivement utiliser la solution de la deuxieme feuille.
J'avais déja essayé une formule du type for next mais je ne sais pourquoi, cette formule faisait ramer excel...
Enfin je ne devais pas l'utiliser correctement.

En ce qui concerne tes propos, j'avoue qu'ils mon un peu blesser car je suis toujours de la plus grande politese possible lors de mes post et je réponds tooujours a l'aide qu'on me donne.
De plus je suis en train d'apprendre le VBA grace a plusieurs bouquin et grace a ce forum exeptionnel (je suis d'accord avec toi) afin de pouvoir passer moi aussi de l'autre coté de la barriere, et devenir moi aussi un gentil forumeur qui je l'espere sera remercié lorsqu'il apportera son aide.
Sur ce
@+
Merci encore :)
Toutoun
 

Discussions similaires

Statistiques des forums

Discussions
312 361
Messages
2 087 618
Membres
103 608
dernier inscrit
rawane