Copier le texte d'une cellule et coller en commentaire sur 2500 lignes
Résolu/Fermé
magicpascal
Messages postés
3
Date d'inscription
mercredi 20 février 2019
Statut
Membre
Dernière intervention
20 février 2019
-
Modifié le 20 févr. 2019 à 15:02
magicpascal Messages postés 3 Date d'inscription mercredi 20 février 2019 Statut Membre Dernière intervention 20 février 2019 - 20 févr. 2019 à 16:12
magicpascal Messages postés 3 Date d'inscription mercredi 20 février 2019 Statut Membre Dernière intervention 20 février 2019 - 20 févr. 2019 à 16:12
A voir également:
- Copier coller commentaire excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Dessin a copier coller ✓ - Forum Internet / Réseaux sociaux
- Coeur copier coller ✓ - Forum Internet / Réseaux sociaux
- Copier video youtube - Guide
3 réponses
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
20 févr. 2019 à 15:29
20 févr. 2019 à 15:29
Bonjour Pascal, bonjour le forum,
Une simple boucle de 4 à 2547 avec le même code adapté devrait faire l'affaire :
Une simple boucle de 4 à 2547 avec le même code adapté devrait faire l'affaire :
Sub Macro1()
Sub cellcomment()
Dim I As Integer
For I = 4 To 2547
Cells(I, "F").AddComment
Cells(I, "F").Comment.Text Text:=Cells(I, "F").Value
Next I
End Sub
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
Modifié le 20 févr. 2019 à 15:30
Modifié le 20 févr. 2019 à 15:30
Bonjour,
Un vieux code d'Eric :
Adapter le numéro de colonne
Cordialement
Patrice
Un vieux code d'Eric :
Option Explicit
Dim memCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cmtarea As Single
If Not memCell Is Nothing Then memCell.ClearComments
Set memCell = Nothing
If Target.Column <> 3 Or IsEmpty(Target) Or Target.Cells.Count > 1 Then Exit Sub
With Target
.AddComment
.Comment.Visible = True
.Comment.Text Text:=Target.Value
.Comment.Shape.TextFrame.AutoSize = True
If .Comment.Shape.Width > 300 Then
cmtarea = .Comment.Shape.Width * .Comment.Shape.Height
.Comment.Shape.Width = 300
.Comment.Shape.Height = (cmtarea / 300) * 1.15 + 3 ' (si besoin ajuster le paramètre 1.15)
End If
End With
Set memCell = Target
End Sub
Adapter le numéro de colonne
Cordialement
Patrice
magicpascal
Messages postés
3
Date d'inscription
mercredi 20 février 2019
Statut
Membre
Dernière intervention
20 février 2019
20 févr. 2019 à 16:05
20 févr. 2019 à 16:05
WOuah Merciiiiiiiiiiiiiiiiiiiiiiiiiii à vous 2.
Je prends le code de ThauTheme. Ca marche super bien pour un non expert comme moi.
Mais c'est passionnant.
Merci encore.
Merci Patrice33740, il faut vraiment que je bosse pour tout comprendre.
Excellente semaine à vous 2 et au Forum.
:)
Je prends le code de ThauTheme. Ca marche super bien pour un non expert comme moi.
Mais c'est passionnant.
Merci encore.
Merci Patrice33740, il faut vraiment que je bosse pour tout comprendre.
Excellente semaine à vous 2 et au Forum.
:)
baladur13
Messages postés
44219
Date d'inscription
mercredi 11 avril 2007
Statut
Modérateur
Dernière intervention
18 mars 2023
13 388
20 févr. 2019 à 16:07
20 févr. 2019 à 16:07
Bonjour
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
magicpascal
Messages postés
3
Date d'inscription
mercredi 20 février 2019
Statut
Membre
Dernière intervention
20 février 2019
20 févr. 2019 à 16:12
20 févr. 2019 à 16:12
Oups. Merci baladur13 pour le rappel :)