> 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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
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
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
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
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
.
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
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
