Macro

Le
j-marc
> Bonjour voici une macro fonctionne tres bien ,j.ai un nouveau projet et je voudrais savoir si c'est possible de l'ajuster pour quel fonctionne avec une image dans le commentaire ,présentement ca fonctionne tres bien avec du texte, peut etre une petite modification dans la 6e ligne? Merci
>
> Sub essai()
> Dim cell As Range
> For Each cell In Range("E1:E500")
> If cell.Value = "toto" Then
> cell.Value = Range("G10").Value
> cell.AddComment.Text Range("G10").NoteText
> End If
> Next
> End Sub

http://cjoint.com/?lvnAbzi5HB


>
Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #20600441
Bonjour.
Essaie :

Sub essai()
Dim cell As Range
For Each cell In Range("E1", [E10000].End(xlUp))
If cell.Value = "toto" Then
Range("G10").Copy cell
End If
Next
End Sub

Daniel




Bonjour voici une macro fonctionne tres bien ,j.ai un nouveau projet et je
voudrais savoir si c'est possible de l'ajuster pour quel fonctionne avec une
image dans le commentaire ,présentement ca fonctionne tres bien avec du
texte, peut etre une petite modification dans la 6e ligne? Merci

Sub essai()
Dim cell As Range
For Each cell In Range("E1:E500")
If cell.Value = "toto" Then
cell.Value = Range("G10").Value
cell.AddComment.Text Range("G10").NoteText
End If
Next
End Sub



http://cjoint.com/?lvnAbzi5HB





Merci


j-marc
Le #20601281
Merci Daniel ca fonctionne tres bien

"Daniel.C" wrote:

Bonjour.
Essaie :

Sub essai()
Dim cell As Range
For Each cell In Range("E1", [E10000].End(xlUp))
If cell.Value = "toto" Then
Range("G10").Copy cell
End If
Next
End Sub

Daniel

>
>
>
>> Bonjour voici une macro fonctionne tres bien ,j.ai un nouveau projet et je
>> voudrais savoir si c'est possible de l'ajuster pour quel fonctionne avec une
>> image dans le commentaire ,présentement ca fonctionne tres bien avec du
>> texte, peut etre une petite modification dans la 6e ligne? Merci
>>
>> Sub essai()
>> Dim cell As Range
>> For Each cell In Range("E1:E500")
>> If cell.Value = "toto" Then
>> cell.Value = Range("G10").Value
>> cell.AddComment.Text Range("G10").NoteText
>> End If
>> Next
>> End Sub
>
> http://cjoint.com/?lvnAbzi5HB
>
>
>>
> Merci


.



Publicité
Poster une réponse
Anonyme