Discussion :

[lifemaker2025]

bonjour
je suis un débutant access
peut on utiliser le code vba sur access de typde:

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
23
24
25
Sub rcauto()
 
Dim plage As Range
Dim i, j, Nb As Long
 
Set plage = Range("E2", [E2].End(xlDown))
Nb = plage.Count
 
j = 1
 
For i = 2 To Nb
Cells(i, 5).Select
 
Select Case Cells(i, 5).Value
 
Case 80, 5
 
If Cells(i, 2).Value = Cells(i - 1, 2).Value Then
 
   Cells(i - 1, 50).Value = 100
   Cells(i, 50).Value = 100
 
Else: Cells(i, 50).Value = 100
 
End If

si oui comment et ou l'introduire
merci bien

[Invité]

Bonjour

C'est un code VBA pour Excel, il ne fonctionnera pas sous Access, sauf si ton but est de travailler sous une feuille Excel à partir d'Access, alors OUI.

Regarde dans la Faq il est expliqué comment se connecter à Excel

Starec

[lifemaker2025]

y a t il pas moyen de faire la même chose sur access?

[Invité]

Re

Quel est ton but, car avec ce code tu ne peux travailler que sur une feuille Excel.

Que veux-tu faire exactement ?

Starec

[lifemaker2025]

c'esu un petit peu compliké à axpliker
mais bon je vais essayer
j'ai une table avec 6 colonnes et un miliers d'enregistrement
les champs sont ; numéro police, catégorie police, date effet, date échéance, référence, code service
d'abord , je veux supprimer tous les enregistrement dont "la catégorie police "= "K" ainsi que les autres enregistrements qui contiennent les numéros de polices identiques à ceux supprimés

[alexandrebergercyr]

Fait une requête SQl...

Donne moi plus d'information sur tes champs et explique moi en détail "la catégorie police "= "K"...

Alex

[random]

en fait ta procédure met à jour une cellule excel en fonction de la valeur contenue dans d'autres cellules

c'est tout à fait faisable sous access

ici on mettrait en oeuvre une reqête mise à jour du style

Code :

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

1
2
3
 
UPDATE matable AS a, matable AS b SET a.champ3 = 80+[a].[champ1]
WHERE b.index=[a].[index]-2) AND b.champ1=[a].[champ1];

la logique d'accès aux données est un peu différente: accès matriciel pour
excel, accès par ensembles pour access mais ce qui diffère le plus est le langage utilisé pour manipuler les données.
mais avec un peu de patience cela s'apprend très vite.

[lifemaker2025]

pour réussir une requête simple de suppression, comment faire la condition suivante "les enregistrements qui contiennent des valeurs identiques" sachant que ce champs tolère les doublons...
merci