Discussion :

[trouvaille]

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

[micniv]

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

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 :

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

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

[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

[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

[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...

[tee_grandbois]

bonsoir,
pour faire une recherche sur une colonne il faut utiliser la méthode Find qui renvoie l'adresse de la cellule