commentaire

[eutrophisation]

Bonjour
Est il possible de reporter les indications saisies dans des cellules à partir de liste déroulante dans le commentaire?
merci d'avance
ci joint un fichier pour exemple

 

[Cousinhub]

Re : commentaire

Bonjour,

Par exemple, comme ceci?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cible As Range
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C4:G" & [B65000].End(xlUp).Row)) Is Nothing Then
    Set Cible = Cells(Target.Row, 2)
    Cible.Comment.Text Text:= _
        Date & Chr(10) _
            & "Limpidité:" & Chr(10) & Cible.Offset(, 1) & Chr(10) _
            & "Météo:" & Chr(10) & Cible.Offset(, 2) & Chr(10) _
            & "Hydrocarbure:" & Chr(10) & Cible.Offset(, 3) & Chr(10) _
            & "Détergent:" & Chr(10) & Cible.Offset(, 4) & Chr(10) _
            & "Observation:" & Chr(10) & Cible.Offset(, 5)
End If
End Sub

Code à coller dans l'évènement de feuille...

Bonne journée

 

[Dull]

Re : commentaire

Salut eutrophisation, bh²🙂, le Forum

Puisque je l'ai fait essaye également cela

j'ai juste un problème de mise en forme du Commentaire 😱 TropCourt

[COLOR=BLUE]Private Sub[/COLOR] Worksheet_SelectionChange([COLOR=BLUE]ByVal[/COLOR] Target [COLOR=BLUE]As[/COLOR] Range)
Target.ClearComments
[COLOR=BLUE]On Error Resume Next[/COLOR]
    [COLOR=BLUE]If[/COLOR] Target.Column = 2 [COLOR=BLUE]And[/COLOR] Target.Count = 1 [COLOR=BLUE]And[/COLOR] Target <> "" [COLOR=BLUE]Then[/COLOR]
        [COLOR=BLUE]If[/COLOR] Target.Comment [COLOR=BLUE]Is Nothing Then[/COLOR]
            Target.AddComment
            Target.Comment.Text Text:=Target.Comment.Text & [COLOR=BLUE]Date[/COLOR] & Chr(10) & _
            [C3] & ": " & Chr(10) & [C4] & Chr(10) & _
            [D3] & ": " & Chr(10) & [D4] & Chr(10) & _
            [E3] & ": " & Chr(10) & [E4] & Chr(10) & _
            [F3] & ": " & Chr(10) & [F4] & Chr(10) & _
            [G3] & ": " & Chr(10) & [G4] & Chr(10)
        [COLOR=BLUE]End If[/COLOR]
    [COLOR=BLUE]End If[/COLOR]
[COLOR=BLUE]End Sub[/COLOR]

Lekanak...😀 Faitbeaucheztoi 🙂

Bonne Journée

 

[Cousinhub]

Re : commentaire

Hi, Dull 🙂🙂

Lekanak... Faitbeaucheztoi

Même pô.... 😡😡

Micro hiver, en plein milieu du printemps, alors que l'été s'annonçait bien....😛

Euh, à moins que je n'ai pas tout compris, (fort possible, sous la couette....), j'ai cru comprendre que notre ami voulait modifier le commentaire, quelle que soit la cellule modifiée, dans la meuhhme ligne .....😀

Au plaisir

 

[Dull]

Re : commentaire

Re le Fil

Désolé pour toi mon ami penseàl'automne 😀

macro modifiée 😱

[COLOR=BLUE]Private Sub[/COLOR] Worksheet_SelectionChange([COLOR=BLUE]ByVal[/COLOR] Target [COLOR=BLUE]As[/COLOR] Range)
Target.ClearComments
[COLOR=BLUE]On Error Resume Next[/COLOR]
    [COLOR=BLUE]If[/COLOR] Target.Column = 2 [COLOR=BLUE]And[/COLOR] Target.Count = 1 [COLOR=BLUE]And[/COLOR] Target <> "" [COLOR=BLUE]Then[/COLOR]
        [COLOR=BLUE]If[/COLOR] Target.Comment [COLOR=BLUE]Is Nothing Then[/COLOR]
            Target.AddComment
            Target.Comment.Text Text:=Target.Comment.Text & [COLOR=BLUE]Date[/COLOR] & Chr(10) & _
            [C3] & ": " & Chr(10) & Target.Offset(, 1) & Chr(10) & _
            [D3] & ": " & Chr(10) & Target.Offset(, 2) & Chr(10) & _
            [E3] & ": " & Chr(10) & Target.Offset(, 3) & Chr(10) & _
            [F3] & ": " & Chr(10) & Target.Offset(, 4) & Chr(10) & _
            [G3] & ": " & Chr(10) & Target.Offset(, 5) & Chr(10)
        [COLOR=BLUE]End If[/COLOR]
    [COLOR=BLUE]End If[/COLOR]
[COLOR=BLUE]End Sub[/COLOR]

Bonne Journée

 

[Cousinhub]

Re : commentaire

Re- Hi, Dull.... 🙂🙂

Ton code impose un changement dans la colonne B...😱

Le gars, il voudrait changer une donnée dans une cellule de la colonne C à la colonne G

Si j'ai bien compris.....😱

 

[Dull]

Re : commentaire

Re Re Hi Bh²😉

sauf respect du kawa que tu t'es mis derrière la cravate 😀 et avant mon Citron vert que je me mettrais ... il y a déjà y a une heure😱 Bon...30Minutes... 😡 Il est GMT+2 😎

Peut-être à mettre dans le Private Sub Worksheet_Change(ByVal Target As Range)

Bon bin ... vais faire mes grillades moi 😛

Bonne Journée à tous

 

[Cousinhub]

Re : commentaire

Pfffffffffffffffffffffffffffffffffffffffft, la grosse buse.............; 😱

Meuuuuuuuuuuuuuuhme pas fait gaffe, que tu parlais d'une SelectionChange, alors que j'étais dans un Change tout con.......; 😎

Promis, je me mets au citron vert, ça me réussira mieux (dumoinsjel'espère)

Ben, toujours est-il, qu'en attendant, on aura eu l'occasion de discuter entre "hémisphériens du sud".....


Plus qu'à attendre quelque parisienne, vendéen, savoyard, et j'en oublie, et le fil partira en "live".....😀😀

A moins que notre ami se réveille....😉

Bon W-E

 

[Guest]

Re : commentaire

Bonjour,
salut les sudistes

vendéen😕, pas d'insulte sur le forum, s'il te plait😀 cousin hub🙂
(Aîe) si l'autre fou du puy me lis, vais me faire interdire de territoire. Shut😎

Allez citronezvousvertementbientouslesdeux

[edit]il y a des buses à nouméa?
A+++

 

[Cousinhub]

Re : commentaire

Hi, Ges 😀

Je parlais bien de "Vendéen", et non de "Pays Pagan"....😀

Pour info :

Le terme Buse est le nom vernaculaire donné à certains rapaces diurnes, de la famille des Accipitridae

Ici, il est 01H50, donc, ça colle?

 

[Guest]

Re : commentaire

Re,

Parcequ'en plus ça colle le rapaces diurne, de la famille des Accipitridae, t'es pas sortit d'affaire mon lapin.😀

A+

 

[Si...]

Re : commentaire

bonjour

autre exemple (quand il fait froid, la condensation est au maximum et quiditqu'ondansaitditqu'onseréchauffait, d'où le barbecue; mais attention, trop de citron vert dilué dans un peu d'eau conduit à l'eutrophisation, d'où le retour au sujet.) :

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim col As Byte, Texte As String
  If Intersect(Target, Range("C4:G" & [B65000].End(xlUp).Row)) Is Nothing Then Exit Sub
    For col = 3 To 7
      Texte = Texte & Cells(3, col) & " : " & Cells(Target.Row, col) & Chr(10)
    Next
  Cells(Target.Row, 2).NoteText Date & Chr(10) & Texte
End Sub

 

[Dull]

Re : commentaire

Hi, Ges 😀, le Fil

Entre deux cuisses de poulet 😛 (gallinacé...diurne...Heu...Nocomment...)😀

et juste pour saluer l'ami Hasco 🙂

EDITION: Joli ton code SI...🙂 ... pas encore essayé mais pour ta gouverne ... Pas (Jamais) d'eau dans le Citron vert 😛


Bonne soirée

 

[eutrophisation]

Re : commentaire

Ce qu'à proposer DULL est fonctionnel et ce que je cherchais maintenant il me reste qu'à l'adapter à mon fichier et plus exactement dans une de mes feuilles en esperant qu'il n'y aurait pas d'incompatibilité avec un autre inscrit dans cette meme feuille.

 

[JCGL]

Re : commentaire

Bonjour à tous,

N'apporte rien à la discussion...

Juste pour faire un coucou à Spit qui lira cette discussion et à tous les amis présents...

Je plussoies : le CitronVert ne doit jamais être dilué avec de l'eau : les nutriments sont déjà présents 🙂🙂

BH2 : Pas savoyard mais Isérois ou Dauphinois..

A+ à tous