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
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
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:
- VBA macro, copier des cellules dans des .....
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Verrouiller des cellules excel - Guide
- Additionner des cellules excel - Guide
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
1 réponse
Syzygy
Messages postés
378
Date d'inscription
vendredi 29 avril 2011
Statut
Membre
Dernière intervention
31 décembre 2011
144
26 mai 2011 à 22:48
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,
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,
27 mai 2011 à 14:41
Merci beaucoup tu m'as sauvé la vie! :)