Discussion :

[NEC14]

Bonjour,

Voici mon problème et je vais essayer d'être le plus clair possible.

Dans une feuille de calcul où je rentre des congés annuels, un formulaire nommé "FrmDate" s'ouvre. Dans celui-ci 2 zones de saisies, une Combo (CmbNom) alimenter par les cellules 6 à 50 de la colonne A, 1 TextBox (TxtDu et un bouton de validation "CmbOk".

Dans la feuille de calculs, les cellules de la ligne 5 sont au format date "jj" (05)
les cellules de la ligne 4 sont au format date "jjj" (ven).

Dans le formulaire, l'agent choisi un nom dans la liste proposée, met la date dans TxtDu (format "00/00/0000").

Après avoir cliqué sur "Ok", je souhaiterai que la plage de cellules correspondant à la ligne où se trouve le nom de l'agent et à la date inscrite puissent être pointées.

Comment puis-je réaliser cela ? Quelqu'un a t'il fait quelque chose de similaire ?
Merci par avance pour votre aide

[pgz]

Bonjour.

Si tu veux montrer à l'écran la ligne l d'une feuille, tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Thisworkbook.Worksheets("NomFeuille").Range("A:" & numLigne).Show

Bonne journée,

PGZ

[NEC14]

Bonjour,

Je fais cette manip pour permettre de pointer très rapidement la cellule où il doit commencer à saisir les congés.
Il faut qu'il y ait un rapport entre le nom choisi et la date. La feuille du classeur comprend 1 trimestre du 1er janvier au 31 mars.

[Godzestla]

Bonjour NEC14,
a vrai dire j'ai lu ton post... mais rien compris....

Si tu veux localiser une cellule sur base de critères, il y a .Vlookup ou .Hlookup ou .Find.

Ensuite pour mettre le curseur dessus, il y a .select.

[NEC14]

Par exemple :

Je choisis dans le Combo "Dupont"
Il prend des congés à partir du 12/02/2009
Dans le Textbox je saisie 12/02/2009
A partir de ça et lorsque je clique sur Ok, la cellule se trouvant à l'intersection de la date et du Nom est pointée.

[Godzestla]

RE,
jusque là j'avais bien compris.

mais quid du format de tes données et de leur disposition dans ta(tes) feuille(s).

Il me serait confortable que tu sois plus explicite que

A partir de ça et lorsque je clique sur Ok, la cellule se trouvant à l'intersection de la date et du Nom est pointée.

[ouskel'n'or]

Je crois que j'ai tout bien compris :
En fait ton problème est de retrouver la ligne de ton bonhomme à la date saisie.
Pour ça, utilise une recherche du nom avec Find sur la colonne des noms et tu vérifies la date
Si elle bonne, la ligne est "celle-là"
Sinon, la recherche se poursuit
Pour la syntaxe, c'est celle décrite dans l'aide en ligne, à find, à laquelle tu ajoutes la vérification de la date (la colonne du nom Offset(0, ???)
Si tu as un pb avec ça, pour t'aider, il nous faut la colonne du nom et celle de la date.
Epicétou !
A+

[NEC14]

Bonjour,

Désolé de revenir à la charge, mais je ne comprends absolument pas comment fonctionne Find.
Comment rechercher une cellule à partir d'une Combo et d'un TextBox ?
J'ai essayé des codes trouvés sur la toile, mais je me plante lamentablement.
Je vais laisser tomber, les utilisateurs se serviront de la souris pour pointer la cellule, je ne vais pas passer mon temps là dessus.
Mais bon, je vais chercher encore un peu.
Le code que j'ai mis précédemment ne fonctionne absolument pas

[Godzestla]

Je te réponds plus tard...

pas possible pour l'instant....

Edit------------

Voilà.

D'abord
1) dans l'aide de FIND pour VBA, voici l'exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Example
This example finds all cells in the range A1:A500 on worksheet one that contain the value 2 and changes it to 5.
 
With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

Remarque qu'il fonctionne avec un range. Je ne vois pas cela dans ton code.

2) Voic1, très vite car pas de temps comment je ferais (pas testé tu t'en doutes)


A) Tu extrais le mois et le jour de la date sélectionnée. Le mois peut te donner la feuille (1->3 : Feuille 1, etc....). Le jour et le mois te donne la colonne de 1 à 90 (ou 91 année bissexctile. je te laisse gérer l'année bissexctile tout seul). Attention si colonne 1 contient les noms.

Resultat trouvé : Feuille_du_mois , Colonne_du_jour

B) Tu utilise .FIND avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
With Worksheets(feuille_du_mois).Range("a1:axxx")
    Set c = .Find(cnom.value, lookin:=xlValues)
    If Not c Is Nothing Then
        ligne = c.row
    End If
End With

C) colonne = colonne_du_jour

Finito.


NB : avec VLOOKUP tu peux retrouver le contenu de la cellule très vite et l'afficher, mais pas te positionner dessus.

[NEC14]

Merci pour le temps que tu m'accordes, je vais essayer de faire quelque chose avec ça.
Si je n'y arrive pas, je laisse tomber
Encore un grand merci

[Godzestla]

. Quand tu as testé, pense à mon donner ton avis sur le code CutePdf.

[ouskel'n'or]

Juste un détail : Déclare c as range, c'est plus mieux

(Hello Godzestla)

[NEC14]

. Quand tu as testé, pense à mon donner ton avis sur le code CutePdf.

Bonjour Godzesla,

Je ne suis pas administrateur de mon poste et je n'ai pas les droits pour télécharger les fichiers indiqués. De ce fait, je ne peux tester ton application et les administrateurs ne veulent pas m'aider sur le coup.
Tant pis et dommage.
Je dois donc supprimer ton envoi de mon répertoire. (dur, dur).
Merci beaucoup pour ton aide

A+