ajouter un commentaire sur une cellule précise mais variable d'un fichier Excel à partir d'Access

Version imprimable

Voir 40 message(s) de cette discussion en une page

30/01/2021, 00h35
trouvaille

ajouter un commentaire sur une cellule précise mais variable d'un fichier Excel à partir d'Access

Bonjour, bien que la façon de procéder ne soit pas des plus conventionnelles, je suis obligé de travailler de cette manière car j'effectue un certain travail sur un fichier Access et dois modifier un fichier Excell d'un collègue.

sur mon fichier Access à partir d'une liste déroulante, je peux choisir une immatriculation (pour l'exemple 1, 2 ou 3) via une liste déroulante.
une fois l'immatriculation choisie j'inscris dans une case un petit texto qui via un bouton insère le texto en rapport à l'immatriculation dans une table de ma base, jusque là, cela va...lol

Afin de m'éviter de devoir ouvrir le fichier Excell du collègue, de trouver dans son tableau la ligne correspondant à l'immatriculation et dans une colonne pour l'exemple la C y ajouter ce même texto en commentaire de la cellule en Cx (x correspondant à la ligne de l'immatriculation, j'aimerai que lorsque j'appuie sur mon bouton Access que cela se fasse automatiquement dans le fichier Excell.

Pour insérer du commentaire j'ai bien range("C1"), comment.visible = false et range("A1"), comment;text:= "moi": & chr(10) & "blablabla"

Mais comment d'après l'immatriculation choisie dans Access trouver la ligne de l'immatriculation du tableau Excell et prendre le range ("Cx") de cette même ligne correspondant à l'immatriculation et y ajouter mon texto (au commentaire peut être déjà existant).

Espère avoir été assez clair dans l'énigme de la solution recherchée. Déjà est-ce possible d'effectuer cette opération

merci de votre aide

Etonnant que tu ne trouves pas la solution à ta question car tu y es presque ...

Citation:

comment d'après l'immatriculation choisie dans Access trouver la ligne de l'immatriculation du tableau Excell et prendre le range ("Cx")

par exemple, tu peux coder :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 With myWkb.ActiveSheet .Range("F5").Comment.Visible = True 'ou False selon ton souhait .Range("F5").Comment.Text Text:="essai n° 1" & Chr(10) & "Il fait-il beau aujourd'hui ?" .Range("F5") = "essai n° 1" ' ou bien encore .Cells(5, 5).Comment.Visible = True .Cells(5, 5).Comment.Text Text:="essai n° 1" & Chr(10) & "Il fait-il beau aujourd'hui ?" .Cells(5, 5) = "essai n° 1" end with

30/01/2021, 16h20
trouvaille

Ma difficulté est de partir d'Access

la base de données à l'information de l'immatriculation et du mémo à ajouter.
et sur un clic bouton de commande, il faut l'insérer au bon endroit dans un fichier Excell

l'immatriculation venant d'Access n'a qu'une seule correspondance de ligne dans le fichier Excell, faut il encore trouver cette ligne et ajouter l'info dans la bonne colonne.
Le fichier Excell est un tableau reprenant toutes les immatriculations possible sur des lignes et comporte des colonnes avec divers renseignements, j'aimerai que dans une colonne précise sur une ligne précise (immatriculation identique à celle renseignée dans Access) l'info s'y ajoute
30/01/2021, 18h50
micniv

Ce n'est vraiment pas difficile.
Je suppose que tu sais ouvrir le fichier excel depuis Access, te placer dans la feuille qui a les immatriculations
Alors tu repères la colonne des immatriculations
et sur les cellules de cette colonne,tu fais une boucle pour trouver la cellule qui a la valeur de l'immatriculation recherchée. Ainsi tu auras les coordonnées (row, col) de cette cellule
Ca me parait très basique. Sur le forum, tu trouveras quantité de codes pour t'aider.
A toi de jouer

cordialement
30/01/2021, 21h57
trouvaille

Merci de cette proposition, un mot clé peut-être pour trouver ce genre de boucle sur une colonne et ensuite me donner accès à une écriture en mémo dans une case correspondant à la ligne...
30/01/2021, 22h33
tee_grandbois

bonsoir,
pour faire une recherche sur une colonne il faut utiliser la méthode Find qui renvoie l'adresse de la cellule
31/01/2021, 18h41
trouvaille

Merci de vos guidances, mais je suis complètement perdu dans la façon de manipuler un fichier Excell a partir d'Access.

Ouvrir le fichier Excell pas de soucis pour le reste???
01/02/2021, 11h13
micniv

Ne pas oublier de consulter la FAQ Access
http://access.developpez.com/faq/?page=Excel#PilotExcel
ou encore
http://access.developpez.com/faq/?pa...ifCellExcelDAO

et plein d'autres ...
02/02/2021, 17h21
trouvaille

Mis à part ouvrir mon document, je pense ne pas avoir assez de compétence pour codifier la recherche d'une immatriculation présente dans mon formulaire Access la retrouver dans mon tableau Excell, y sélectionner la colonne correspondant aux commentaire et en insérer un supplémentaire.

Je comprend que beaucoup d'exemple se trouve un peu partout sur le forum, mais pour un débutant, il est pas facile de se rendre compte vers quelle direction trouver ses réponses.

Merci de votre aide et compréhension.
02/02/2021, 20h19
trouvaille

Merci de vos réponses. Mais je suis vraiment bloqué et trop néophyte que pour me débrouiller et m'y retrouver dans le forum.

Dans mon code VBA Access, j'arrive bien sûr à ouvrir mon fichier Excell.

Maintenant récupérer l'information de l'immatriculation du formulaire, la rechercher dans mon tableau Excell, extraire l'adresse de la cellule correspondant à la ligne de l'immatriculation pour une colonne donnée et ajouter le commentaire, je suis vraiment perdu.

puis-je avoir une information plus précise pour chaque étape

Merci
03/02/2021, 18h31
trouvaille

Pouvez-vous m'aiguiller sur les codes pour:

Récupérer l'information de l'immatriculation du formulaire Access pour la rechercher dans mon tableau Excell, extraire l'adresse d'une cellule correspondant à la ligne de l'immatriculation pour une colonne donnée et ajouter le commentaire à cette cellule dans Excell.

Merci

Je pense à une boucle while

Code:

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
Dim oApp As Excel.Application
    Dim oWkb As Excel.Workbook
    Dim oWSht As Excel.Worksheet
    Dim i As Integer
   ' Dim strMessage As String
   ' Dim sql As String
 
 
 
    Set oApp = CreateObject("excel.application")
 
    Set oWkb = oApp.Workbooks.Open("...\tableau.xlsx")
 
    Set oWSht = oWkb.Worksheets("suivis")
 
    i = 2
 
    While oWSht.Range("A" & i).Value = Me.imatri
  Wend
 
     oWkb.Close
    Set oWSht = Nothing
    Set oWkb = Nothing
    Set oApp = Nothing
End Sub

Le début devrais ressembler à ça?

Alors essaie

Code:

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
26
27
28
29
30
sub Test1()
Dim oApp As Excel.Application
    Dim oWkb As Excel.Workbook, oWSht As Excel.Worksheet
    Dim i As Long
  
    Set oApp = CreateObject("excel.application")
    Set oWkb = oApp.Workbooks.Open("...\tableau.xlsx")
    Set oWSht = oWkb.Worksheets("suivis")
    i = 2
 ' ActiveSheet.UsedRange.Rows.Count : nb lignes utilisées dans une feuille
   do  while i <= oWSht.UsedRange.Rows.Count
if  oWSht.Range("A" & i).Value = Me.immatricul
' on fait ici le traitement souhaité, par exemple, si la cellule à modifier est en colonne F
oWSht.Cells(i, 6).Comment.Visible = True
    oWSht.Cells(i, 6).Comment.Text Text:="commentaire n° 1" & Chr(10) & "Il fait beau aujourd'hui"
    oWSht .Cells(i, 6) = "essai n° 1"

exit do    ' on sort de la boucle
else
i = i+1
end if
  
loop
 
    Set oWSht = Nothing
     oWkb.Close
    Set oWkb = Nothing
    Set oApp = Nothing
End Sub

06/02/2021, 17h44
trouvaille

Bonsoir et un très grand merci pour l'aide.

Supposant qu'il manquait le THEN à la fin du if, je l'ai ajouté.

Code:

If oWSht.Range("A" & i).Value = Me.imatriculation Then

Par contre j'ai eu une erreur référence incorrecte ou non qualifiée à la ligne du code ci-dessous

Code:

oWSht .Cells(i, 6) = "essai n° 1"

mais j'ai enlever l'espace entre le .et Cells et plus d'erreur.

Mais malheureusement rien de modifié dans mon fichier Excell

n'aurais-je pas suivi quelque chose

Merci encore
06/02/2021, 17h59
trouvaille

Pardon Pardon, erreur de ma part, cela fonctionne super.

Mon erreur pour la version test était d'avoir placé des chiffres en colonne A. si je place tu texte aucuns soucis.

Juste petite demande supplémentaire.
est-ce possible en faisant la même opération (en tenant compte que le commentaire à insérer viendrait du formulaire Access via une variable d'ajouter au commentaire déjà existant dans la case le nouveau commentaire.

Un super merci en tout les cas.
06/02/2021, 18h48
micniv

si je comprends bien,
pour modifier le commentaire existant en y ajoutant une valeur :

Code:

oWSht.Cells(i, 6).Comment.Text Text:= oWSht.Cells(i, 6).Comment.Text & "valeur ajoutée"

salut
06/02/2021, 20h05
trouvaille

Magnifique

Un tout grand merci pour l'aide.

Il me reste à trouver comment aller à la ligne avant d'insérer le commentaire supplémentaire.

Très beau WE à vous
06/02/2021, 20h29
trouvaille

J'ai trouvé

en ajoutant vbLf

Code:

oWSht.Cells(i, 6).Comment.Text Text:=oWSht.Cells(i, 6).Comment.Text & vbLf & "valeur ajoutée"

Encore chapeau et un tout grand merci

A lla lecture de ce code, une erreur sauterait elle aux yeux?

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub insertcomment_Click()
Dim oApp As Excel.Application
    Dim oWkb As Excel.Workbook
    Dim oWSht As Excel.Worksheet
    Dim i As Long
    Dim coment As String
    Dim dat As String
   Dim commentaire_prec As String
 
    coment = Me.coment.Value
    dat = Format(Me.Datecomment, "dd.mm.yyyy")
 
    Set oApp = CreateObject("excel.application")
    Set oWkb = oApp.Workbooks.Open("D:\test.xlsm")
    Set oWSht = oWkb.Worksheets("suivi")
    i = 2
 ' ActiveSheet.UsedRange.Rows.Count : nb lignes utilisées dans une feuille
Do While i <= oWSht.UsedRange.Rows.Count
 
If oWSht.Range("A" & i).Value = Me.NIMMA Then
 
 
' on fait ici le traitement souhaité, par exemple sur la cellule à modifier (1 pour A, 2 pour B...)
 
oWSht.Cells(i, 6).comment.Visible = True
oWSht.Cells(i, 6).comment.Text Text:=oWSht.Cells(i, 6).comment.Text & vbLf & dat & coment
 
    'oWSht.Cells(i, 6) = "essai n° 1"  'si il faut remplir la celulle du commentaire
 
Exit Do    ' on sort de la boucle
Else
i = i + 1
End If
 
Loop
    Set oWSht = Nothing
     oWkb.Close
    Set oWkb = Nothing
    Set oApp = Nothing
End Sub

Petite question, si la case ne comporte déjà pas un code, faut il ajouter une ligne style if si déjà pas de code alors?

Merci, car à l'utilisation de ce code j'ai une erreur qui je pense m'enferme dans la boucle...

Il faut commencer à chercher des petites solutions par toi-même 8O

Tu peux essayer

Code:

1
2
3
4
5
6
7
8
9
10
 
...
oWSht.Cells(i, 6).comment.Visible = True
if len(nz(oWSht.Cells(i, 6).comment.Text)) > 0 then
' le commentaire de la case comporte déjà une valeur
oWSht.Cells(i, 6).comment.Text Text:=oWSht.Cells(i, 6).comment.Text & vbLf & dat & coment
else
oWSht.Cells(i, 6).comment.Text Text:=oWSht.Cells(i, 6).comment.Text
end if
...

Voir 40 message(s) de cette discussion en une page