Discussion :

[Xavier Bout]

Bonjour.

je suis en train de développer un fichier sur access et je bloque un peut sur une fonction que je n'arrive pas à créer.
Il me faudrait une fonction qui copie la ligne supérieure dans la case sélectionné lorsque l'on sélectionne une case. Le but de cette fonction est de permettre à l'utilisateur de faire des modification en masse sur un formulaire en mode table de donnée.
pour le moment mon code est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Texte20_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
Dim Ligne As Integer
Dim Collone As Integer
Dim Valeur As String
 
 
Ligne = ActiveCell.Row
Colonne = ActiveCell.Column
 
Valeur = Cells(Ligne - 1, Colonne).Value
ActiveCell.values = Valeur
 
End Sub

j'ai un problème avec la fonction Cells

Quelqu’un peux m'aider?

Merci d'avance
Xav

[nico84]

Bonjour

Euh c'est pas excel ici, ni cells ni row... Avec access la "ligne du dessus" n'est pas directement adressable !
Voici un exemple de ce qu'on peut faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub libelle_Click() 'copie dans le champ libelle le contenu de la ligne du dessus
Dim pointeur As Long 'mémorise la ligne en cours
Dim contenu As String 'contenu à copier
pointeur = Me.CurrentRecord
If pointeur > 1 Then
  Me.SelTop = pointeur - 1 'va sur la ligne précédente
  contenu = libelle
  Me.SelTop = pointeur 'retourne sur la ligne du départ
  libelle = contenu
  Refresh 'si besoin
End If
End Sub

[Xavier Bout]

merci beaucoup ça marche très bien

bonne journée à toi.
Xav