Bonjour à tous.
Voici mon GROS problème. J'ai une très grande liste de chiffre.
Grace à une macro les chiffres que je souhaite extraire sont en jaune.
Comment puis je faire ma macro pour que toutes les cellules en jaunes ait un
"1" devant le contenu.(au lieu de 99005678 je souahite avoir 199005678).
Merci beaucoup beaucoup de votre aide.
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
ng
Salut,
Il faudrait boucler les cellules (avec 2 for) mais je ne connais pas suffisamment le vba excel pour t'aider, adresse toi plutot à ce groupe : news:microsoft.public.fr.excel
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Marie wrote:
Bonjour à tous. Voici mon GROS problème. J'ai une très grande liste de chiffre. Grace à une macro les chiffres que je souhaite extraire sont en jaune. Comment puis je faire ma macro pour que toutes les cellules en jaunes ait un "1" devant le contenu.(au lieu de 99005678 je souahite avoir 199005678). Merci beaucoup beaucoup de votre aide.
Salut,
Il faudrait boucler les cellules (avec 2 for) mais je ne connais pas
suffisamment le vba excel pour t'aider, adresse toi plutot à ce groupe :
news:microsoft.public.fr.excel
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Marie wrote:
Bonjour à tous.
Voici mon GROS problème. J'ai une très grande liste de chiffre.
Grace à une macro les chiffres que je souhaite extraire sont en jaune.
Comment puis je faire ma macro pour que toutes les cellules en jaunes
ait un "1" devant le contenu.(au lieu de 99005678 je souahite avoir
199005678). Merci beaucoup beaucoup de votre aide.
Il faudrait boucler les cellules (avec 2 for) mais je ne connais pas suffisamment le vba excel pour t'aider, adresse toi plutot à ce groupe : news:microsoft.public.fr.excel
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Marie wrote:
Bonjour à tous. Voici mon GROS problème. J'ai une très grande liste de chiffre. Grace à une macro les chiffres que je souhaite extraire sont en jaune. Comment puis je faire ma macro pour que toutes les cellules en jaunes ait un "1" devant le contenu.(au lieu de 99005678 je souahite avoir 199005678). Merci beaucoup beaucoup de votre aide.
Gloops
Absolument.
Là on pourra répondre que mettre en évidence la couleur on peut faire ça :
Public Sub Evidence() vbJaune = 65535 For Each C In ActiveSheet.UsedRange If C.Font.Color = vbJaune Then C.Value = "1;" & C.Value End If If C.Interior.Color = vbJaune Then C.Value = "1#" & C.Value End If Next End Sub
Si le jaune est la couleur des caractères le 1 sera suivi d'un point-virgule. Si c'est la couleur du fond, il sera suivi d'un dièse.
Attention qu'il y a plusieurs jaunes, j'en ai pris un. _________________________________ ng a écrit, le 29/10/2004 13:41 :
Salut,
Il faudrait boucler les cellules (avec 2 for) mais je ne connais pas suffisamment le vba excel pour t'aider, adresse toi plutot à ce groupe : news:microsoft.public.fr.excel
Absolument.
Là on pourra répondre que mettre en évidence la couleur on peut faire ça :
Public Sub Evidence()
vbJaune = 65535
For Each C In ActiveSheet.UsedRange
If C.Font.Color = vbJaune Then
C.Value = "1;" & C.Value
End If
If C.Interior.Color = vbJaune Then
C.Value = "1#" & C.Value
End If
Next
End Sub
Si le jaune est la couleur des caractères le 1 sera suivi d'un
point-virgule.
Si c'est la couleur du fond, il sera suivi d'un dièse.
Attention qu'il y a plusieurs jaunes, j'en ai pris un.
_________________________________
ng a écrit, le 29/10/2004 13:41 :
Salut,
Il faudrait boucler les cellules (avec 2 for) mais je ne connais pas
suffisamment le vba excel pour t'aider, adresse toi plutot à ce groupe :
news:microsoft.public.fr.excel
Là on pourra répondre que mettre en évidence la couleur on peut faire ça :
Public Sub Evidence() vbJaune = 65535 For Each C In ActiveSheet.UsedRange If C.Font.Color = vbJaune Then C.Value = "1;" & C.Value End If If C.Interior.Color = vbJaune Then C.Value = "1#" & C.Value End If Next End Sub
Si le jaune est la couleur des caractères le 1 sera suivi d'un point-virgule. Si c'est la couleur du fond, il sera suivi d'un dièse.
Attention qu'il y a plusieurs jaunes, j'en ai pris un. _________________________________ ng a écrit, le 29/10/2004 13:41 :
Salut,
Il faudrait boucler les cellules (avec 2 for) mais je ne connais pas suffisamment le vba excel pour t'aider, adresse toi plutot à ce groupe : news:microsoft.public.fr.excel