OVH Cloud OVH Cloud

Commentaires

4 réponses
Avatar
Fredy
Bonjours =E0 tous,

J'ai un nombre de chiffre dans la colonne A allant de 1 =E0 200 avec un=20
commentaire pour chaque nombre.
Est-t-il possible, quand on tape un num=E9ro manuellement de cette=20
colonne dans une cellule d'une autre feuille que ce commentaire s'y=20
colle automatiquement.
Ex : Nr 10 en A10(feuille1)+(commentaire) que je doit mettre en=20
G3(feuille2) donc t'apper 10 et le
commentaire devrait suivre.En sachant que ce num=E9ro 10 est attribu=E9 =E0=20
une =E9quipe lors d'un concours.
Apr=E8s plusieurs test et essai je n'y arrive pas , copier-coller ne=20
fonctionne pas.
Merci pour toutes solutions possibles.

4 réponses

Avatar
anonymousA
Bonjour,

si j'ai bien tout compris. Un exemple avec en Feuil2, une plage de
cellules de A1 à A11 avec des commentaires. J'ai fait le choix ici de
limiter la possibilité d'importation des commentaires sur un changement
dans la plage A1:A11 de la feuille de réception mais c'est complètement
adaptable.Par ailleurs, le test de recherche se fait sur les valeurs
exactes ( pas d'approximation)et dans les valeurs (pas dans les formules).


A mettre dans le module de feuille qui va accepter la copie des
commentaires par exemple la feuille 3.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A11")) Is Nothing And
Target.Cells.Count = 1 Then
Set rng = Sheets("Feuil2").Range("A1:A11").Find(what:=Target.Value,
Lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
rng.Copy
Application.EnableEvents = False
Target.PasteSpecial xlPasteComments
Application.CutCopyMode = False
Application.EnableEvents = True
End If
End If

End Sub

A+


Bonjours à tous,

J'ai un nombre de chiffre dans la colonne A allant de 1 à 200 avec un
commentaire pour chaque nombre.
Est-t-il possible, quand on tape un numéro manuellement de cette
colonne dans une cellule d'une autre feuille que ce commentaire s'y
colle automatiquement.
Ex : Nr 10 en A10(feuille1)+(commentaire) que je doit mettre en
G3(feuille2) donc t'apper 10 et le
commentaire devrait suivre.En sachant que ce numéro 10 est attribué à
une équipe lors d'un concours.
Après plusieurs test et essai je n'y arrive pas , copier-coller ne
fonctionne pas.
Merci pour toutes solutions possibles.



Avatar
Fredy
On 31 jan, 00:04, anonymousA wrote:
Bonjour,

si j'ai bien tout compris. Un exemple avec en Feuil2, une plage de
cellules de A1 à A11 avec des commentaires. J'ai fait le choix ici de
limiter la possibilité d'importation des commentaires sur un changement
dans la plage A1:A11 de la feuille de réception mais c'est complèteme nt
adaptable.Par ailleurs, le test de recherche se fait sur les valeurs
exactes ( pas d'approximation)et dans les valeurs (pas dans les formules).

A mettre dans le module de feuille qui va accepter la copie des
commentaires par exemple la feuille 3.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A11")) Is Nothing And
Target.Cells.Count = 1 Then
Set rng = Sheets("Feuil2").Range("A1:A11").Find(what:=Target.Val ue,
Lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
rng.Copy
Application.EnableEvents = False
Target.PasteSpecial xlPasteComments
Application.CutCopyMode = False
Application.EnableEvents = True
End If
End If

End Sub

A+




Bonjours à tous,

J'ai un nombre de chiffre dans la colonne A allant de 1 à 200 avec un
commentaire pour chaque nombre.
Est-t-il possible, quand on tappe un numéro manuellement de cette
colonne dans une cellule d'une autre feuille que ce commentaire s'y
colle automatiquement.
Ex : Nr 10 en A10(feuille1)+(commentaire) que je doit mettre en
G3(feuille2) donc tapper 10 et le
commentaire devrait suivre.En sachant que ce numéro 10 est attribué à
une équipe lors d'un concours.
Après plusieurs test et essai je n'y arrive pas , copier-coller ne
fonctionne pas.
Merci pour toutes solutions possibles.- Masquer le texte des messages p récédents -


- Afficher le texte des messages précédents -


ça ne marche pas
il me donne erreur de compllation / erreur de syntaxe.
?


Avatar
anonymousA
Le logiciel de messagerie coupe ( tronque ) les lignes . Il va de soi
que que ce suit le And doit être sur la même ligne et ce qui suit
Target.value doit être sur la même ligne

A+

On 31 jan, 06:17, "Fredy" wrote:
On 31 jan, 00:04, anonymousA wrote:





Bonjour,

si j'ai bien tout compris. Un exemple avec en Feuil2, une plage de
cellules de A1 à A11 avec des commentaires. J'ai fait le choix ici de
limiter la possibilité d'importation des commentaires sur un changeme nt
dans la plage A1:A11 de la feuille de réception mais c'est complète ment
adaptable.Par ailleurs, le test de recherche se fait sur les valeurs
exactes ( pas d'approximation)et dans les valeurs (pas dans les formule s).

A mettre dans le module de feuille qui va accepter la copie des
commentaires par exemple la feuille 3.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A11")) Is Nothing And
Target.Cells.Count = 1 Then
Set rng = Sheets("Feuil2").Range("A1:A11").Find(what:=Target.V alue,
Lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
rng.Copy
Application.EnableEvents = False
Target.PasteSpecial xlPasteComments
Application.CutCopyMode = False
Application.EnableEvents = True
End If
End If

End Sub

A+



Bonjours à tous,

J'ai un nombre de chiffre dans la colonne A allant de 1 à 200 avec un
commentaire pour chaque nombre.
Est-t-il possible, quand on tappe un numéro manuellement de cette
colonne dans une cellule d'une autre feuille que ce commentaire s'y
colle automatiquement.
Ex : Nr 10 en A10(feuille1)+(commentaire) que je doit mettre en
G3(feuille2) donc tapper 10 et le
commentaire devrait suivre.En sachant que ce numéro 10 est attribu é à
une équipe lors d'un concours.
Après plusieurs test et essai je n'y arrive pas , copier-coller ne
fonctionne pas.
Merci pour toutes solutions possibles.- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


ça ne marche pas
il me donne erreur de compllation / erreur de syntaxe.
?- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -




Avatar
Fredy
On 31 jan, 08:25, "anonymousA" wrote:
Le logiciel de messagerie coupe ( tronque ) les lignes . Il va de soi
que que ce suit le And doit être sur la même ligne et ce qui suit
Target.value doit être sur la même ligne

A+

On 31 jan, 06:17, "Fredy" wrote:



On 31 jan, 00:04, anonymousA wrote:

Bonjour,

si j'ai bien tout compris. Un exemple avec en Feuil2, une plage de
cellules de A1 à A11 avec des commentaires. J'ai fait le choix ici de
limiter la possibilité d'importation des commentaires sur un change ment
dans la plage A1:A11 de la feuille de réception mais c'est complè tement
adaptable.Par ailleurs, le test de recherche se fait sur les valeurs
exactes ( pas d'approximation)et dans les valeurs (pas dans les formu les).

A mettre dans le module de feuille qui va accepter la copie des
commentaires par exemple la feuille 3.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A11")) Is Nothing And
Target.Cells.Count = 1 Then
Set rng = Sheets("Feuil2").Range("A1:A11").Find(what:=Target .Value,
Lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
rng.Copy
Application.EnableEvents = False
Target.PasteSpecial xlPasteComments
Application.CutCopyMode = False
Application.EnableEvents = True
End If
End If

End Sub

A+




Bonjours à tous,

J'ai un nombre de chiffre dans la colonne A allant de 1 à 200 ave c un
commentaire pour chaque nombre.
Est-t-il possible, quand on tappe un numéro manuellement de cette
colonne dans une cellule d'une autre feuille que ce commentaire s'y
colle automatiquement.
Ex : Nr 10 en A10(feuille1)+(commentaire) que je doit mettre en
G3(feuille2) donc tapper 10 et le
commentaire devrait suivre.En sachant que ce numéro 10 est attrib ué à
une équipe lors d'un concours.
Après plusieurs test et essai je n'y arrive pas , copier-coller ne
fonctionne pas.
Merci pour toutes solutions possibles.- Masquer le texte des messag es précédents -


- Afficher le texte des messages précédents -


ça ne marche pas
il me donne erreur de compllation / erreur de syntaxe.
?- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


ça marche, c'est tout bon
un grand merci à vous