Discussion :

[vpovpo]

Mon pb est assez simple à présenter:
sur chacune des feuilles Excel de mon classeur j'ai créer un formulaire
ensuite je lance un petit macro qui ouvre ces formulaires un après l'autre:

Code :

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

1
2
3
4
5
6
    Sheets("Disponibilités").Select
    ActiveSheet.ShowDataForm
    Sheets("Périodes").Select
    ActiveSheet.ShowDataForm
    Sheets("Informations").Select
    ActiveSheet.ShowDataForm

Le pb est que les formulaires se positionnent chaque fois sur le premier enregistrement de la feuille. Je voudrais qu'il se positionne sur l'enregistrement qui a dans la colonne A la valeur 1. Comment faire ?

En fait je me rende compte que les formulaires sont créés dinamiquement avec ShowDataForm et donc le pb est un peu différent. Est-ce qu'il y a une solution ?

[vpovpo]

Solution trouvée à :
http://www.pcreview.co.uk/forums/act...-t1009176.html

Pas 1: Trouver, selon nos critères, l'enregistrement voullu (le numéro de la ligne = k1) et faire un select dessus

Code :

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

Range("A" + CStr(k1)).Select

Pas 2: Appeler la fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub putCellCriteria()
'
' Cette fonction va faire que le formulaire qu'on va afficher avec ShowDataForm
' va se mettre sur l'enregistrement de l'ActiveCell; une fois dans le formulaire:
'   - avec le bouton "Précédent" on va aller sur le premier enregistrement
'   - avec le bouton "Suivant" on va aller sur l'enregistrement voullu
' et dans les deux cas l'ascenseur va apparaître.
'
' OBS: Pour que DataObject soit connu il faut la librairie "Microsoft Forms 2.0 Object Library"
'      qu'on peut ajouter au projet en ajoutant à une feuille un bouton "Contrôles Active X"
'      (et en le supprimant après).
'
' Solution trouvée à:  http://www.pcreview.co.uk/forums/activesheet-showdataform-t1009176.html
'
    Set MyData = New DataObject
    MyData.SetText ActiveCell.Value
    MyData.PutInClipboard
    col_mir = ActiveCell.Column - 1
    str_mir = "%c" & "{TAB " & col_mir & "}" & "^v" & "%n"
    SendKeys str_mir
'
End Sub

Pas 3: Faire apparaître le formulaire avec ActiveSheet.ShowDataForm.

[vpovpo]

Sinon j'ai trouvé aussi un plugin Excel (gratuit et très facile à installer) pour avoir des DataForm-s plus évolués cf.
http://spreadsheetpage.com/index.php/dataform
Le formulaire se positionne alors automatiquement sur la cellule activée.
On affiche ce DataForm avec:

Code :

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

Application.Run "ShowDataForm"