Voilà j'ai un petit problème. Sous Lotus Notes, en utilisant OLE, je génère
un fichier excel. Dans une colonne, je souhaite afficher une checkbox à
chaque ligne.
En écrivant ceci : range("A1").font.name = "wingdings"
range("A1").value = "q"
,j'obtiens un symbole de type case à cocher dans la cellule A1
Le problème est que je suis obligé de me servir de la propriété Cells(i, j)
car c'est du dynamique. En écrivant ceci: cells(i,j).font.name = "wingdings"
cells(i,j).value= "q"
, j'obtiens ... "q" dans la cellule (i,j)
Comment dois-je procéder ?
Si quelqu'un avait une piste pour me sortir de l'impasse, d'avance merci.
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
Joël GARBE
Bonsoir,
Sous Excel 2000 cela fonctionne correctement !
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "david morio" <david a écrit dans le message de news:
Bonjour
Voilà j'ai un petit problème. Sous Lotus Notes, en utilisant OLE, je génère un fichier excel. Dans une colonne, je souhaite afficher une checkbox à chaque ligne. En écrivant ceci : range("A1").font.name = "wingdings" range("A1").value = "q" ,j'obtiens un symbole de type case à cocher dans la cellule A1
Le problème est que je suis obligé de me servir de la propriété Cells(i, j) car c'est du dynamique. En écrivant ceci: cells(i,j).font.name = "wingdings" cells(i,j).value= "q" , j'obtiens ... "q" dans la cellule (i,j)
Comment dois-je procéder ?
Si quelqu'un avait une piste pour me sortir de l'impasse, d'avance merci.
Bonsoir,
Sous Excel 2000 cela fonctionne correctement !
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"david morio" <david morio@discussions.microsoft.com> a écrit dans le
message de news: A4A969B7-2A0F-43AF-B246-674543375FAF@microsoft.com...
Bonjour
Voilà j'ai un petit problème. Sous Lotus Notes, en utilisant OLE, je
génère
un fichier excel. Dans une colonne, je souhaite afficher une checkbox à
chaque ligne.
En écrivant ceci : range("A1").font.name = "wingdings"
range("A1").value = "q"
,j'obtiens un symbole de type case à cocher dans la cellule A1
Le problème est que je suis obligé de me servir de la propriété Cells(i,
j)
car c'est du dynamique. En écrivant ceci: cells(i,j).font.name =
"wingdings"
cells(i,j).value= "q"
, j'obtiens ... "q" dans la cellule (i,j)
Comment dois-je procéder ?
Si quelqu'un avait une piste pour me sortir de l'impasse, d'avance merci.
Joël GARBE www.joelgarbe.fr "david morio" <david a écrit dans le message de news:
Bonjour
Voilà j'ai un petit problème. Sous Lotus Notes, en utilisant OLE, je génère un fichier excel. Dans une colonne, je souhaite afficher une checkbox à chaque ligne. En écrivant ceci : range("A1").font.name = "wingdings" range("A1").value = "q" ,j'obtiens un symbole de type case à cocher dans la cellule A1
Le problème est que je suis obligé de me servir de la propriété Cells(i, j) car c'est du dynamique. En écrivant ceci: cells(i,j).font.name = "wingdings" cells(i,j).value= "q" , j'obtiens ... "q" dans la cellule (i,j)
Comment dois-je procéder ?
Si quelqu'un avait une piste pour me sortir de l'impasse, d'avance merci.
RaMa
bonjour Je ne vois rien d'anormal!! Vérifie l'orthographe de ta police Salutations RaMa
"david morio" <david a écrit dans le message de news:
Bonjour
Voilà j'ai un petit problème. Sous Lotus Notes, en utilisant OLE, je génère un fichier excel. Dans une colonne, je souhaite afficher une checkbox à chaque ligne. En écrivant ceci : range("A1").font.name = "wingdings" range("A1").value = "q" ,j'obtiens un symbole de type case à cocher dans la cellule A1
Le problème est que je suis obligé de me servir de la propriété Cells(i, j) car c'est du dynamique. En écrivant ceci: cells(i,j).font.name = "wingdings" cells(i,j).value= "q" , j'obtiens ... "q" dans la cellule (i,j)
Comment dois-je procéder ?
Si quelqu'un avait une piste pour me sortir de l'impasse, d'avance merci.
bonjour
Je ne vois rien d'anormal!!
Vérifie l'orthographe de ta police
Salutations
RaMa
"david morio" <david morio@discussions.microsoft.com> a écrit dans le
message de news: A4A969B7-2A0F-43AF-B246-674543375FAF@microsoft.com...
Bonjour
Voilà j'ai un petit problème. Sous Lotus Notes, en utilisant OLE, je
génère
un fichier excel. Dans une colonne, je souhaite afficher une checkbox à
chaque ligne.
En écrivant ceci : range("A1").font.name = "wingdings"
range("A1").value = "q"
,j'obtiens un symbole de type case à cocher dans la cellule A1
Le problème est que je suis obligé de me servir de la propriété Cells(i,
j)
car c'est du dynamique. En écrivant ceci: cells(i,j).font.name =
"wingdings"
cells(i,j).value= "q"
, j'obtiens ... "q" dans la cellule (i,j)
Comment dois-je procéder ?
Si quelqu'un avait une piste pour me sortir de l'impasse, d'avance merci.
bonjour Je ne vois rien d'anormal!! Vérifie l'orthographe de ta police Salutations RaMa
"david morio" <david a écrit dans le message de news:
Bonjour
Voilà j'ai un petit problème. Sous Lotus Notes, en utilisant OLE, je génère un fichier excel. Dans une colonne, je souhaite afficher une checkbox à chaque ligne. En écrivant ceci : range("A1").font.name = "wingdings" range("A1").value = "q" ,j'obtiens un symbole de type case à cocher dans la cellule A1
Le problème est que je suis obligé de me servir de la propriété Cells(i, j) car c'est du dynamique. En écrivant ceci: cells(i,j).font.name = "wingdings" cells(i,j).value= "q" , j'obtiens ... "q" dans la cellule (i,j)
Comment dois-je procéder ?
Si quelqu'un avait une piste pour me sortir de l'impasse, d'avance merci.
PMO
Bonjour,
Un code ci-dessous à essayer sur une copie de votre classeur. Il est impératif (d'après mon code mais vous pouvez le modifier selon votre usage) que les données commencent en cellule A1.
'******************************** Option Explicit Sub WingdingsQ() Dim nbLig& If [a1] = "" Then MsgBox "Les données doivent commencées en A1" Exit Sub End If nbLig& = ActiveSheet.UsedRange.Rows.Count Columns(1).Insert With [a1] .Font.Name = "wingdings" .Value = "q" .AutoFill Destination:=Range(Cells(1, 1), _ Cells(nbLig&, 1)) End With End Sub
'********************************
Cela répond à votre attente ?
Cordialement.
PMO Patrick Morange
Bonjour
Voilà j'ai un petit problème. Sous Lotus Notes, en utilisant OLE, je génère un fichier excel. Dans une colonne, je souhaite afficher une checkbox à chaque ligne. En écrivant ceci : range("A1").font.name = "wingdings" range("A1").value = "q" ,j'obtiens un symbole de type case à cocher dans la cellule A1
Le problème est que je suis obligé de me servir de la propriété Cells(i, j) car c'est du dynamique. En écrivant ceci: cells(i,j).font.name = "wingdings" cells(i,j).value= "q" , j'obtiens ... "q" dans la cellule (i,j)
Comment dois-je procéder ?
Si quelqu'un avait une piste pour me sortir de l'impasse, d'avance merci.
Bonjour,
Un code ci-dessous à essayer sur une copie de votre classeur.
Il est impératif (d'après mon code mais vous pouvez le modifier
selon votre usage) que les données commencent en cellule A1.
'********************************
Option Explicit
Sub WingdingsQ()
Dim nbLig&
If [a1] = "" Then
MsgBox "Les données doivent commencées en A1"
Exit Sub
End If
nbLig& = ActiveSheet.UsedRange.Rows.Count
Columns(1).Insert
With [a1]
.Font.Name = "wingdings"
.Value = "q"
.AutoFill Destination:=Range(Cells(1, 1), _
Cells(nbLig&, 1))
End With
End Sub
'********************************
Cela répond à votre attente ?
Cordialement.
PMO
Patrick Morange
Bonjour
Voilà j'ai un petit problème. Sous Lotus Notes, en utilisant OLE, je génère
un fichier excel. Dans une colonne, je souhaite afficher une checkbox à
chaque ligne.
En écrivant ceci : range("A1").font.name = "wingdings"
range("A1").value = "q"
,j'obtiens un symbole de type case à cocher dans la cellule A1
Le problème est que je suis obligé de me servir de la propriété Cells(i, j)
car c'est du dynamique. En écrivant ceci: cells(i,j).font.name = "wingdings"
cells(i,j).value= "q"
, j'obtiens ... "q" dans la cellule (i,j)
Comment dois-je procéder ?
Si quelqu'un avait une piste pour me sortir de l'impasse, d'avance merci.
Un code ci-dessous à essayer sur une copie de votre classeur. Il est impératif (d'après mon code mais vous pouvez le modifier selon votre usage) que les données commencent en cellule A1.
'******************************** Option Explicit Sub WingdingsQ() Dim nbLig& If [a1] = "" Then MsgBox "Les données doivent commencées en A1" Exit Sub End If nbLig& = ActiveSheet.UsedRange.Rows.Count Columns(1).Insert With [a1] .Font.Name = "wingdings" .Value = "q" .AutoFill Destination:=Range(Cells(1, 1), _ Cells(nbLig&, 1)) End With End Sub
'********************************
Cela répond à votre attente ?
Cordialement.
PMO Patrick Morange
Bonjour
Voilà j'ai un petit problème. Sous Lotus Notes, en utilisant OLE, je génère un fichier excel. Dans une colonne, je souhaite afficher une checkbox à chaque ligne. En écrivant ceci : range("A1").font.name = "wingdings" range("A1").value = "q" ,j'obtiens un symbole de type case à cocher dans la cellule A1
Le problème est que je suis obligé de me servir de la propriété Cells(i, j) car c'est du dynamique. En écrivant ceci: cells(i,j).font.name = "wingdings" cells(i,j).value= "q" , j'obtiens ... "q" dans la cellule (i,j)
Comment dois-je procéder ?
Si quelqu'un avait une piste pour me sortir de l'impasse, d'avance merci.
