VBA macro, copier des cellules dans des .....
Résolu
hamouchka
Messages postés
14
Date d'inscription
Statut
Membre
Dernière intervention
-
hamouchka Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
hamouchka Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
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
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,
Merci beaucoup tu m'as sauvé la vie! :)