une aide pour "fusionner ces codes

[zesuila]

Bonjour à tous
Voilà , grâce aux excelliens de ce site , j'ai pu bidouiller un petit programme.
Mais là je coince :
ce code permet lorsque un des choix est proposé d'ouvrir automatiquement la fenêtre des commentaires

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:A20], Target) Is Nothing And Target.Count = 1 Then
If InStr("DIVERS HORS PAO AUTRES DEMANDE PAO ", Target) > 0 Then
If Target.Comment Is Nothing Then
Target.AddComment ' Création commentaire
Target.Comment.Shape.OLEFormat.Object.Font.Name = "Tverdana"
Target.Comment.Shape.OLEFormat.Object.Font.Size = 12
Target.Comment.Shape.OLEFormat.Object.Font.FontStyle = "Bold"
SendKeys "+{F2}"
End If
End If
End If
End Sub


puis j'ai ce second code qui lui me permet d'extraire ces commentaires et de les mettre dans une colonne précise


Sub Extrait()

For Each C In Range("A3", [A65000].End(xlUp))
C.Offset(0, 32) = C.Comment.Text
Next C
End Sub

(merci encore à jacques Boisgontier)

Ce que je souhaiterai c'est de compiler les deux c'est à dire faire le 1er code puis le second dans la même foulée.

A vous de jouer😎

merci

 

[James007]

Re : une aide pour "fusionner ces codes

Bonjour à tous,

Il me semble que Selection Change fait le travail mieux que Change qui est gêné par Sendkeys ...
A tester ...
A +

 

[zesuila]

Re : une aide pour "fusionner ces codes

C'est presque cela . là je n'ai plus à reprendre le choix, il me suffit de recliquer sur la cellule.
Comment faire, pour que cela sz fasse après être sortie du commentaire

 

[James007]

Re : une aide pour "fusionner ces codes

C'est presque cela . là je n'ai plus à reprendre le choix, il me suffit de recliquer sur la cellule.
Comment faire, pour que cela sz fasse après être sortie du commentaire

Mais fais-tu pour sortir de ta saisie du commentaire ...???
Est-ce-que tu ne dois pas recliquer sur la cellule ...???

 

[pierrejean]

Re : une aide pour "fusionner ces codes

Re

Vois si cela te convient
En fait j'exploite le fait qu'apres avoir ecrit le commentaire tu dois selectionner une autre cellule
J'ai donc mis le call extrait dans le selection_change
Mais reste mefiant: dans mes essais je suis tombé sur une boucle infernale due probablement au fait qu'a chaque changement dans la feuille 2 macros sont sollicitées

 

[zesuila]

Re : une aide pour "fusionner ces codes

je cliques effectivement sur une cellule quelconque pour faire disparaitre le commentaire et le texte n'apparait pas.
Il faut que je reclique sur la cellule "autres ..... " pour que le commentaire apparaisse en col 32

 

[zesuila]

Re : une aide pour "fusionner ces codes

oui pierrejean moi aussi je suis tombé sur cette boucle infernale avec ce Call ...
La solution de James007 fonctionne un petit détail à régler uniquement (voir ma réponse ci dessus).

 

[zesuila]

Re : une aide pour "fusionner ces codes

James007
dans ton fichier la ligne
If InStr("DIVERS HORS PAO AUTRES DEMANDE PAO", Target) > 0 Then....
a disparu.
cela me sert pour que la fen^tre des commentaires apparaissent uniquement si ces 2 choix sont utilisés (il pourrait y en avoir un 3e dans l'avenir)

 

[James007]

Re : une aide pour "fusionner ces codes

James007
dans ton fichier la ligne
If InStr("DIVERS HORS PAO AUTRES DEMANDE PAO", Target) > 0 Then....
a disparu.
cela me sert pour que la fen^tre des commentaires apparaissent uniquement si ces 2 choix sont utilisés (il pourrait y en avoir un 3e dans l'avenir)

OOps ... j'ai oublié de la remettre après les tests ... remets là ...

 

[zesuila]

Re : une aide pour "fusionner ces codes

oui mais ou ? j'ai pas trouvé

 

[James007]

Re : une aide pour "fusionner ces codes

voilou ...

 

[zesuila]

Re : une aide pour "fusionner ces codes

merci ! c'est génial
il y a toujours ce côté "chi..." de sortir de la cellule et puis d'y rentrer à nouveau pour voir le commentaire s'afficher en col 32 ! mais bon c'est déjà très bien.
Si tu as une idée je prends bien sûr
petite question : A quoi sert le sendkey f2 exactement

 

[James007]

Re : une aide pour "fusionner ces codes

Sendkeys est une instruction qui simule l'intervention manuelle que l'utilisateur peut faire sur son clavier ...

 

[zesuila]

Re : une aide pour "fusionner ces codes

merci beaucoup

 

[James007]

Re : une aide pour "fusionner ces codes

Dès que j'ai un petit moment, je regarde comment éliminer le petit "reclick" ...

 

[zesuila]

Re : une aide pour "fusionner ces codes

super!
Je cherche aussi de mon côté mais bon là c'est pas un petit moment qu'il faut ! !!