High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Couleur de cellule avec Visual basic

Dernière réponse le 26 avr 2005 à 13:49:03 Bozz, le 26 avr 2005 à 11:12:27 
 Signaler ce message aux modérateurs

Bonjour a tous
je suis completement nul en Visual Basic et je cherche a faire un petit programme qui me permet de colorer une colonne sur 2(une en bleu et la suivante en rouge , puis en bleu puis.....)

si mon sauveur existe, merci a lui



bonne journee

BOZZ

Meilleures réponses pour « couleur de cellule avec Visual basic » dans :
Introduction à Visual Basic Voir Présentation de Visual Basic Visual Basic est un outil développé par Microsoft pour développer facilement des applications fonctionnant sous Microsoft Windows ©. Visual Basic est, comme son nom l'indique, un outil visuel permettant de créer...
Télécharger Visual Basic 6 Runtime (VB6 DLL) Voir Le Runtime Visual Basic 6 contient l'ensemble des librairies (DLL) nécessaires pour exécuter des programmes écrits en langage Visual Basic 6.0. Il contient notamment les DLL suivantes :...
Télécharger Visual Basic Express Voir
Erreur système : Microsoft Visual Basic VoirEn ouvrant Excel, vous rencontrez un message d'erreur. Une fenêtre au nom de "Microsoft Visual Basic" s'ouvre avec le contenu suivant : Erreur système &H80004005 (-2147467259). Erreur non spécifiée Pour corriger le problème, suivez les...
[Visual Basic] Liens utiles VoirLa première doc à consulter Le site officiel Des cours, des tutoriaux intéressants Quelques codes sources en cas de problèmes Cours débutant VBA Les graphiques Excel en VBA (en anglais) Bon Courage !
Introduction à VBScript VoirPrésentation de VB Script VBScript (aussi appelé Visual Basic Scripting Edition) est un sous-ensemble du langage Visual Basic for Applications (VBA), un langage propriétaire de Microsoft prévu pour être intégré aux produits Microsoft Office©,...
Généralités sur Visual Basic VoirConcept de Visual Basic l'Environnement de Développement intégré
Posez votre question Répondre

1

Kobaya, le 26 avr 2005 à 13:33:17

Salut,

tu peux essayer quelquechose comme :

Do
If ActiveCell.Column / 2 = Round(ActiveCell.Column / 2) Then
ActiveCell.Interior.ColorIndex = 32
Else
ActiveCell.Interior.ColorIndex = 34
End If
ActiveCell.Offset(0, 1).Select
Loop Until ActiveCell.Column = 10

A+,
Kobaya.

   
Répondre à Kobaya

2

 random, le 26 avr 2005 à 13:49:03

Sinon tu mets ca
Sub macro8()
Dim deb As Boolean
Dim x As Range
deb = ActiveCell.Column / 2 = ActiveCell.Column \ 2
For Each x In Selection
If (x.Column / 2 = x.Column \ 2) = deb Then
x.Interior.ColorIndex = 6
Else
x.Interior.ColorIndex = 5
End If
Next
End Sub
le 6 et le 5 codent les couleurs
elle est pas belle, la vie ?

   
Répondre à random
Posez votre question Répondre
Ils ont besoin de votre aide