[Excel 2016 Macro] Applicable à toute la feuille

Hello,

J'ai un code qui fonctionne bien pour ce que je veux faire (recopier des valeurs de cellule dans un commentaire dans la 1ère colonne. Jusque la ça fait le taf mais pour le A2 seulement… Il va chercher les infos dans D2, E2, F2 va les copier dans un commentaire en A2 puis va chercher les infos dans G2, H2 et I2 et va les copier également. Jusque la pas de soucis mais il doit reproduire ce qui a été enregistré sur les autres lignes, donc aller mettre un commentaire avec dans A3 avec les infos D3, E3,... etc

Voici le code :

Sub MacroTest1()
'
' MacroTest1 Macro
'

'
    Range("D2:F2").Select
    Selection.Copy
    Range("A2").Select
    Application.CutCopyMode = False
    Range("A2").AddComment
    Range("A2").Comment.Visible = False
    Range("A2").Comment.Text Text:="Longitude 25 26 27" & Chr(10) & ""
    Range("G2:I2").Select
    Selection.Copy
    Range("A2").Select
    Application.CutCopyMode = False
    Application.CommandBars("Office Clipboard").Visible = False
    Range("A2").Comment.Text Text:="Longitude 25 26 27" & Chr(10) & "" & Chr(10) & "Latitude 28 29 30" & Chr(10) & ""
    Range("A2").Comment.Shape.TextFrame.Characters.Font.Size = 12
    Selection.Comment.Shape.ScaleWidth 1.1, msoFalse, msoScaleFromTopLeft
    Selection.Comment.Shape.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
    Range("J2").Select
End Sub

Une idée ?

Merci d'avance.

Bonjour,

Un essai ...

Sub MacroTest1()
Dim Dlig As Long
Dim X As Long

Dlig = Cells(Rows.Count, "A").End(xlUp).Row
For X = 2 To Dlig
    If Not Range("A" & X).Comment Is Nothing Then Range("A" & X).Comment.Delete
    Range("A" & X).AddComment
    Range("A" & X).Comment.Visible = False
    Range("A" & X).Comment.Text Text:="Longitude " & Range("D" & X) & " " & Range("E" & X) & _
        " " & Range("F" & X) & Chr(10) & Chr(10) & "Latitude " & Range("G" & X) & " " & _
        Range("H" & X) & " " & Range("I" & X) & Chr(10) & ""

    Range("A" & X).Comment.Shape.TextFrame.Characters.Font.Size = 12
    Range("A" & X).Comment.Shape.ScaleWidth 1.1, msoFalse, msoScaleFromTopLeft
    Range("A" & X).Comment.Shape.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
Next X
End Sub

ric

Bonjour,

Merci ça fonctionne nickel par contre pour ceci :

Range("A2").Comment.Shape.TextFrame.Characters.Font.Size = 12

Selection.Comment.Shape.ScaleWidth 1.1, msoFalse, msoScaleFromTopLeft

Selection.Comment.Shape.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft

Je peux l'imbriquer ou ? Je dois changer le Range("A2") pour qu'il le fasse partout je suppose.

C'est pour agrandir l'écriture et régler la taille du "commentaire" pour qu'il s'ajuste bien.

Bonjour,

Désolé, j'ai supprimé les lignes sans trop regarder.

J'ai corrigé le code de mon post précédent.

ric

Super, ça marche nickel, un tout grand merci !!

ric