Discussion :

[Dakuan]

Bonjour à tous !

Voilà, je ne suis pas certain d'être dans la bonne section (a-t-on besoin de vba ou alors excel pourrait se suffire à lui seul ?) mais voilà mon problème :
Dans le cadre de la préparation d'une importation d'un classeur dans une base de données, je vais avoir besoin de donner un certain format à mes feuilles.
Il existe une colonne où le soulignement ou l'absence de soulignement du contenu de chaque cellule a une signification particulière.
Cependant pour pouvoir prendre ça en compte dans ma base de donnée, il faudrait que par exemple j'arrive à faire en sorte que si une cellule est soulignée, la cellule à sa gauche par exemple (colonne que j'aurais au préalable ajouter bien entendu) me retourne "1". Dans le cas contraire (si la cellule n'est pas soulignée), ça me retournerai "0".
(les valeurs 0 et 1 sont justes indicatives hein, n'importe quelle valeur pourrais convenir aussi).

Comment pourrais-je procéder pour effectuer cela svp ?
Merci

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If Cells(1, 1).Font.Underline = 2 then _
msgbox "ta cellule " & Cells(1,1).address & " est soulignée"

[Gorfael]

Salut Dakuan, ouskel'n'or et le forum

... si une cellule est soulignée, la cellule à sa gauche par exemple (colonne que j'aurais au préalable ajouter bien entendu) me retourne "1". Dans le cas contraire (si la cellule n'est pas soulignée), ça me retournerai "0".
(les valeurs 0 et 1 sont justes indicatives hein, n'importe quelle valeur pourrais convenir aussi).

La solution t'es donnée par ouskel'n'or, mais...
Le problème dans ce cas, c'est le déclencheur de lancement de la macro : c'est une mise à un format particulier, et les changement de format ne lancent aucune macro de manière automatique (à ma connaissance). Donc, le soulignement, mise en gras, colorisation du fond, de la police, etc. s'effectuera sans mise à jour de ta base de données. Il faut réflèchir au moyen de mettre à jour et adapter soit le moyen, soit la manière de mettre à jour aux possibilités d'Excel. Tout moyen palliatif pouvant présenter des problèmes incompatibles avec le but.
A+

[ouskel'n'or]

Tu ne dis pas quelle colonne est susceptible de contenir les cellules dont le contenu est souligné.
Attention une cellule vide peut avoir le format souligné.
etc.

[Dakuan]

Alors la détection du soulignement ne s'effectuera que sur une seule colonne précise.

Quant à la gestion de la base de données, il s'agit juste d'un "formatage" préalable pour obtenir un .csv exploitable via phpmadmin.
C'est pourquoi j'aimerai que s'il y a un soulignement dans une cellule d'une colonne que j'aurais désigné (ou alors encore mieux, d'un ensemble de cellules que j'aurais sélectionnés), la cellule de gauche me retourne "1" par exemple, et dans le cas contraire, ça me retournerai "0" (ou alors "vrai" et sinon "faux" etc ...).

[ouskel'n'or]

Pour parcourir ta feuille, c'est classique :
Je suppose que tu as ajouté ta colonne à gauche de la colonne C, par exemple, que les cellules soulignées ou non sont dans la colonne B, par exemple, alors tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
Dim cell as range, Derlig as long
derlig = Split(Worksheets("feuil1").UsedRange.Address, "$")(4)
For Each Cell In Worksheets("feuil1").Range("C1:C" & derlig)
      Cell.Offset(0, -1) = Cell.Font.Underline = 2
      DoEvents
Next
End Sub

[Dakuan]

Navré pour la réponse très en retard, mais j'ai enfin pu tester la macro aujourd'hui.
Elle marche à merveille et fait exactement ce que je désirais.
Merci infiniment ^^