Não é mais possível fazer postagens ou usar assinaturas novas da Usenet nos Grupos do Google. O conteúdo histórico continua disponível.
Dismiss

commentaires à recuperer !

254 visualizações
Pular para a primeira mensagem não lida

Adventum

não lida,
10 de dez. de 2007, 11:02:1910/12/2007
para
Excel 2000,
J'ai une feuille avec une colonne "nom".
Dans certaines cellules ont été insérées sous forme de commentaires des
dates de naissance.
J'ai crée une colonne 'date naissance', et je voudrais que les dates
insérées en commentaire, sient transférées dans la colonne correspondante.

ce qui bloque apparement, ce sont les cellules vides ou les cellules ou
il n'y a pas de date.

> Sub Macro2()
> Dim Num As Integer
> Dim Comtexte As String
> tt1 = "s_commentaire"
> > Num = 2 'ca commence ligne 2
> Do While Num < 2553 'il ya 2553 lignes
> Comtexte = Val(Num)
> texte1 = "I" & Comtexte
> texte2 = "J" & Comtexte
if isnull(Range(texte1).comment.Text) then
> Range(texte2) = tt1
> Num = Num + 1
> Else
> Range(texte2).Value = Range(texte1).comment.Text
> Num = Num + 1
> End If
> Loop
>
> End Sub

j'ai essayé plein de trucs et plein de msg d'erreurs


merci de m'aider à comprendre

isabelle

não lida,
10 de dez. de 2007, 11:24:4810/12/2007
para
bonjour,

For Each c In Columns("nom").SpecialCells(xlCellTypeComments)
Range("E" & c.Row) = c.Comment.Text 'si 'date naissance' est en colonne E
Next

isabelle

Adventum a écrit :

Trirème

não lida,
10 de dez. de 2007, 13:31:0310/12/2007
para
Bonjour Adventum et Isabelle,

Adventum, tu peux tester l'inexistence d'un commentaire par
If c.Comment Is Nothing
où "c" est un range d'une seule cellule

Cordialement,
Trirème

"isabelle" a écrit :

Adventum

não lida,
11 de dez. de 2007, 05:00:4211/12/2007
para
isabelle a écrit :
J'ai des progres a faire !il faut que je me mette serieusement au visual
basic et j'ai du mal a me faire a la syntaxe.

brovo pour cette simplicité et elegance ds le code.

Merci beaucoup

Adventum

não lida,
11 de dez. de 2007, 05:02:0111/12/2007
para
Trirème a écrit :

> Bonjour Adventum et Isabelle,
>
> Adventum, tu peux tester l'inexistence d'un commentaire par
> If c.Comment Is Nothing
> où "c" est un range d'une seule cellule
>
> Cordialement,
> Trirème
>
> "isabelle" a écrit :
>
>> bonjour,
>>
>> For Each c In Columns("nom").SpecialCells(xlCellTypeComments)
>> Range("E" & c.Row) = c.Comment.Text 'si 'date naissance' est en colonne E
>> Next
>>
>> isabelle
>>
J'ai des progres a faire !il faut que je me mette serieusement au visual
basic et j'ai du mal a me faire a la syntaxe.

bravo pour cette simplicité et elegance ds le code.

Merci beaucoup

isabelle

não lida,
11 de dez. de 2007, 09:17:2811/12/2007
para
de rien Adventum,

pa/ si la colonne des nom n'est pas nommée, remplace le code par celui-ci :

For Each c In Range("A:A").SpecialCells(xlCellTypeComments)

0 nova mensagem