Discussion :

[Zimzimut]

Bonjour,

j'ai déja posté un message similiare sur le forum Excel et on m'a dit qu'il fallait avoir recours à de la programmation :

je voudrais ramener, après une recherche, la valeur de la cellule ainsi que le commentaire accroché.

En gros, je travaille avec la fonction RECHERCHEV pour identifier certaines caractéritiques dans une base de données toute simple (excel), carac que je rapatrie dans une autre feuille. je voudrais également ramener le commentaire qui va avec la cellule. Est-ce faisable?

[skorpio]

ça pourrai être quelque chose comme ça, dis-moi

Code :

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

1
2
3
Range("A2").AddComment
    Range("A2").Comment.Visible = False
    Range("A2").Comment.Text Text:="titrecommentaire" & Chr(10) & "bien"

[Zimzimut]

j'avoue ne pas comprendre vraiment ce que fait le code que tu as inscrit (je suis une vraie bille en programmation)

En gros, il faudrait que lorsque la RECHERCHEV trouve un truc dans la cellule, il y ait une condition qui dise : si tu trouves une valeur et si y'a un commentaire dans la celule de la feuille 1, alors tu me recopie tout ca là ou je veux dans la feuille 2

un truc du genre ^^

[skorpio]

je te donne un exemple simple...
mais avant sais-tu mettre un code dans un module?

ceci conviendrait par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub deplacercellule()
 
Sheets("Feuil1").Select 'selectionne la Feuil1 de ton classeur
 
If Range("A1").Value = "" Then 'si ta cellule est vide alors elle ne sera pas copié
Exit Sub
Else
    Range("A1").Copy           'sinon elle est copié
    Sheets("Feuil2").Select    'dans la feuil2
    ActiveSheet.Paste
    Range("A1").Select         'en A1
End If
End Sub

est quand elle est copié, elle prend également le commentaire

[Zimzimut]

Si je comprends bien, le code qui est ici est une version "littéraire" du copier coller classique c'est ca ? avec juste la propriété de copier la cellule sur une autre feuille, à la meme place.

faut encorequer ca recherche, et c'est pas gagné :p

[skorpio]

tu va essay ça:

tu prend le code ci-dessus, tu le copie à l'emplacement suivant:

-tu ouvre excel et tu ecris ce que tu veux dans la cellule A1
-ensuite tu fais Alt+F11 (pour ouvrir Visual Basic)
-sur la gauche tu verras ecrit Projet - VBAProjet avec un arborescence
-clic droit, insertion/module
-et sur la droite tu aura une feuille blanche qui apparaitra et c'est la que tu collera ton code
-et pour finir tu lance ton code (avec l'icone "lecture" dans le menu)

et la magie opère