Commentaire

[monyo]

Bonsoir, je cherche de l'aide

Je veux reprendre une valeur dans une cellule située dans une autre feuille.
Seulement dans cette cellule, il existe un commentaire que je veux également reprendre....

Y a t-il une solution 🙂

 

[criscris11]

Re : Commentaire

Bonsoir,
Un test par macro :

Sub Macro1()
 
    Range("B7").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

Bonne soirée.

 

[Staple1600]

Re : Commentaire

Bonsoir Criscris11


En reprenant le code de Criscris11 et en jouant à l'élagueur

Sub Macro1()
 Range("B7").Copy
    With Sheets("Feuil2").Range("B7")
        .PasteSpecial xlPasteValues, xlNone, False, False
        .PasteSpecial xlPasteComments, xlNone, False, False
    End With
End Sub

 

[criscris11]

Re : Commentaire

Salut le rennais,
Merci pour l'élaguage car j'ai fait le code vite fait avec l'enregistreur de macro et je n'ai pas encore le niveau adéquat pour élaguer les codes ainsi écrits.
Bonne soirée et bonne nuit à toi.

 

[monyo]

Re : Commentaire

Merci beaucoup cela fonctionne mais je suis gourmand

Si je dois réitérer cette fonction dans plusieurs feuilles à la fois, faut-il que je crée une macro pour chaque feuilles ?😉

 

[criscris11]

Re : Commentaire

Re,
Non pas besoin de macros supplémentaires mais juste le code à modifier. Peux-tu préciser ?
Merci et bonne soirée.

 

[Staple1600]

Re : Commentaire

Re


Si j'ai bien compris

Sub Macro1()
Dim WS As Worksheet
For Each WS In Worksheets
'Si la cellule avec le commentaire est dans la Feuil1
If Not WS.Name Like "Feuil1" Then
'on évite de recopier le commentaire dans la feuil1
 Sheets("Feuil1").Range("B7").Copy
'on copie le contenu de B7 de la feuil1 
'dans B7 de toutes les feuilles du classeur
    With WS.Range("B7")
        .PasteSpecial xlPasteValues, xlNone, False, False
        .PasteSpecial xlPasteComments, xlNone, False, False
    End With
    End If
Next
End Sub

 

[monyo]

Re : Commentaire

J'ai fait une matrice devant modifier certains champs identiques dans une dizaine de feuilles.

Il y a des champs qui comporte des "commentaires" que je veux également transposer sur chaque feuille.

Voila, j'espère être clair...