Sujet Précédent Sujet Suivant

VBA macro, copier des cellules dans des .....

Résolu/Fermé
hamouchka Messages postés 14 Date d'inscription jeudi 26 mai 2011 Statut Membre Dernière intervention 14 juin 2011 - 26 mai 2011 à 22:36
hamouchka Messages postés 14 Date d'inscription jeudi 26 mai 2011 Statut Membre Dernière intervention 14 juin 2011 - 27 mai 2011 à 14:41
Bonjour,

Mon problème c'est assez bizzard, j'ai deux colonnes (A et B) de 780 lignes, il faut que je copie le contenu des cellules de la colonne B dans des commentaires attachés aux cellules de la colonne A juste à coté. Evidement créer 780 commentaires manuellement ne me tente pas ! J'aimerai ca automatiser la tâche !

Est-ce que c'est faisable en VBA ?

Merci beaucoup



A voir également:

1 réponse

Réponse 1 / 1
Syzygy Messages postés 378 Date d'inscription vendredi 29 avril 2011 Statut Membre Dernière intervention 31 décembre 2011 142
26 mai 2011 à 22:48
Bonjour,

Oui c'est possible. Essayez ceci :

Sub AjoutCommentaire()

Application.ScreenUpdating = False

Dim i As Integer

For i = 1 To 780
Range("A" & i).Select
Range("A" & i).AddComment 'Ajoute le commentaire
Range("A" & i).Comment.Visible = False 'Passez l'option à "True" pour maintenir le commentaire affiché
Range("A" & i).Comment.Text Text:="" & Range("B" & i).Value

Next
Range("A1").Select

Application.ScreenUpdating = True
End Sub

Bonne soirée,
1
hamouchka Messages postés 14 Date d'inscription jeudi 26 mai 2011 Statut Membre Dernière intervention 14 juin 2011
27 mai 2011 à 14:41
ça marcher, cool

Merci beaucoup tu m'as sauvé la vie! :)
0

Discussions similaires

Dessiner avec son clavier et avec des lettres
JSS -
Polodu33 -

78 réponses