Excel Downloads
Forum

Précédent   Excel Downloads Forums > Archives > Forum Excel Downloads - Archives


 
 
LinkBack Outils de la discussion
Vieux 02/12/2002, 21h25   #1 (permalink)
Quaisako
Guest
 
Messages: n/a
Par défaut Recherche code VBA pour 'Fond de cellules" et "Doublons".

Bonsoir tout le monde,

1) Comment marquer certaines cellules avec un fond de couleur?

2) Comment empêcher la saisie de doublons?

Tout est dans le fichier joint.

Pour les couleurs et les doublons, j'ai trouvé des choses intéressantes, (surtout des calculs) mais pas en VBA.

Merci d'avance.

Quaisako
Fichiers attachés
Type de fichier : xls CouleursMois.xls (30,0 Ko, 11 affichages)
 
ANNONCES
Vieux 03/12/2002, 08h15   #2 (permalink)
Moa
Guest
 
Messages: n/a
Par défaut Re: Recherche code VBA pour 'Fond de cellules" et "Doublons".

<http://ericrenaud.free.fr/>

Regardes là

@ +

Moa
 
Vieux 03/12/2002, 09h48   #3 (permalink)
STéphane
Guest
 
Messages: n/a
Par défaut Re: Recherche code VBA pour 'Fond de cellules" et "Doublons".


première interrogation

voilà une façon de faire.
par contre mon test ISDATE n'est pas des meilleurs semble-t-il pour s'assurer que l'étiquette d'en-tête est une date donc j'ai rajouté TARGET.ROW <>1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 2 And IsDate(Target) And Target.Row <> 1 Then
Select Case Month(Target)
Case 1: cm = 38
Case 2: cm = 6
Case 3: cm = 3
Case 4: cm = 4
Case 5: cm = 5
Case 6: cm = 6
Case 7: cm = 7
Case 8: cm = 8
Case 9: cm = 9
Case 10: cm = 36
Case 11: cm = 15
Case 12: cm = 39
End Select
Target.Interior.ColorIndex = cm
Else
Target.Interior.ColorIndex = xlNone
End If
End Sub

pour la seconde interrogation
j'ai pas regardé encore.

pourquoi veux-tu spécifiquement le faire par VBA ?
tu peux au minimum utiliser countif en VBA

bye
Stéphane
 
Vieux 03/12/2002, 10h22   #4 (permalink)
Ti
Guest
 
Messages: n/a
Par défaut Re: Recherche code VBA pour 'Fond de cellules" et "Doublons".

pour la deuxième partie de ta question, tu peux utiliser la formule suivante (ici appliquée à la ligne 3)

=SI(B3="";"";GAUCHE(A2;CHERCHE("-";A2)-1)+1&"-"&MOIS(B3)&"-"&ANNEE(B3))

ainsi tes numéros de factures sont incrémentés automatiquement tout en gardant la référence date.

Tu dois placer cette formule à partir de la 2ème ligne du tableau, la première contenant une référence introduite manuellement, ou selon une formule adaptée.
 
Vieux 03/12/2002, 11h10   #5 (permalink)
andré
Guest
 
Messages: n/a
Par défaut Re: Recherche code VBA pour 'Fond de cellules" et "Doublons".

Salut Quaisako,

Après les grands maîtres (tiens Thierry, Celada, Pat5, ... manquent à l'appel), je te joins ma modeste contribution.
Regarde la forme conditionnelle et le format personnalisé de la colonne A
J'ai essayé de supprimer la colonne B en intégrant le tout sous une seule formule, mais je n'y suis pas parvenu.

André.
Fichiers attachés
Type de fichier : xls doubles.xls (14,0 Ko, 16 affichages)
 
Vieux 03/12/2002, 18h40   #6 (permalink)
Quaisako
Guest
 
Messages: n/a
Par défaut Re: Recherche code VBA pour 'Fond de cellules" et "Doublons".

Bonsoir Moa, Stéphane, Ti, André,

Merci pour votre aide.

Stéphane! je fais peût-être une erreur, mais il me semble que le code VBA remplace avantageusement les formules, surtout en période de recalcul.

Mon PC n'est pas une bête de course, est depuis que je remplace progressivement les formules par du code, je trouve mon prg plus rapide et sans plantage.

J'ai un blême avec ton code. Pour que les couleurs apparaissent, il faut systématiquement cliquer individuellement sur chaque cellule. Autrement, c'est tout à fait ce que je recherche.

Si je fais une erreur de jugement par rapport à "Formules => VBA", expliquez moi.

@+ Quaisako
 
Vieux 26/07/2003, 17h50   #7 (permalink)
Vincent
Guest
 
Messages: n/a
Par défaut Re: Recherche code VBA pour 'Fond de cellules" et "Doublons".

Bonjour,
En je n'y connait rien en vba mais pour me faire gagner du temps au boulot je recherche une petite macro sur excel qui pourrait sélectionner une plage de données et voir ensuite la coller dans un fichier me servant de trame. Merci
 
ANNONCES
 

Liens sociaux

Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are oui
Pingbacks are oui
Refbacks are oui


Fuseau horaire GMT +2. Il est actuellement 14h35.


(C) 2006 Excel Downloads