Excel - Macro automatique
Fermé
Maspid
-
9 juil. 2009 à 14:57
wida Messages postés 150 Date d'inscription lundi 5 novembre 2007 Statut Membre Dernière intervention 28 novembre 2011 - 10 juil. 2009 à 09:21
wida Messages postés 150 Date d'inscription lundi 5 novembre 2007 Statut Membre Dernière intervention 28 novembre 2011 - 10 juil. 2009 à 09:21
A voir également:
- Excel - Macro automatique
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Réponse automatique thunderbird - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
2 réponses
Pour ceux que ça intéresse je viens de trouver :
Sub Test()
Dim I As Integer
For I = 1 To 1455
If Cells(I, 1).Comment Is Nothing Then Cells(I, 1).AddComment
Cells(I, 1).Comment.Text CStr(Cells(I, 6) & " " & Cells(I, 7) & " " & Cells(I, 8) & " " & Cells(I, 9) & " " & Cells(I, 10))
Next I
End Sub
Après il ne vous reste plus qu'à adapter en fonction du besoin.
Sub Test()
Dim I As Integer
For I = 1 To 1455
If Cells(I, 1).Comment Is Nothing Then Cells(I, 1).AddComment
Cells(I, 1).Comment.Text CStr(Cells(I, 6) & " " & Cells(I, 7) & " " & Cells(I, 8) & " " & Cells(I, 9) & " " & Cells(I, 10))
Next I
End Sub
Après il ne vous reste plus qu'à adapter en fonction du besoin.
wida
Messages postés
150
Date d'inscription
lundi 5 novembre 2007
Statut
Membre
Dernière intervention
28 novembre 2011
17
10 juil. 2009 à 09:21
10 juil. 2009 à 09:21
n'oublie pas de mattre résolu