Automatiser le remplissage de cellule dans tableau excel

squalbou Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonsoir,
Je suis chargé de remplir un tableau d'activités par date et par enfants. Cela me prend pas mal de temps et j'aimerais automatiser la saisie. C'est a dire que si
dans la case E3 je tape 1 la case remplie Act+17h en orange.
E3 je tape 2 " " Activité en rouge
E3 je tape 3 " " Garderie en vert
E3 je tape 4 " " Gard+17h en bleu


Merci en espérant être assez clair.
A voir également:

2 réponses

Réponse 1 / 2
écureuyl Messages postés 42 Date d'inscription   Statut Membre Dernière intervention   2
 
C'est pas très joli, mais en mettant ton choix dans la colonne A, tu peux ajouter une colonne B avec la formule :
=SI(A1=1;"Act+17h";SI(A1=2;"Activité";SI(A1=3;"Garderie";SI(A1=4;"Gard+17h";""))))
Après tu te sert des mise en forme conditionnelles pour la couleur.

Pour finir, tu copie/colle ta colonne B en mettant gardant que les valeurs et tu supprime la colonne A.

Une autre façon serait de remplir ta colonne de tes chiffres (1,2,3...) et de faire tourner une macro qui les changent comme tu le souhaite (avec la mise en forme)

Pour finir, Excel ne peut pas remplacer un contenu que tu viens de taper par un autre. Le remplissage "automatique" est instantané est impossible.

Bon courage,
0
Réponse 2 / 2
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour,

la "case remplie" est E3 ou...?

Si tu veux écrire (dans une autre cellule que E3) les textes en fonction du choix
avec Excel et les mises en forme conditionnelles:
=Si((E3>0)*(E3<5);CHOISIR(E3;"Act+17h";"Activité";.....etc);"")

en VBA
couleur sur XL2003 (risque d'erreurs si XL>=2007)
ta"caseremplie" peut être alors E3 

Dim xxx As Range
Set xxx = Range("tacaseremplie")

Select Case Range("E3").Value
     Case Is = 1
          xxx = "act+17h"
          xxx.Interior.ColorIndex = 46 'orange
     Case Is = 2
          xxx = "activité"
          xxx.Interior.ColorIndex = 3 'rouge
     Case ect
     
     Case Else
          xxx = ""
          xxx.Interior.ColorIndex = -4142  'pas de couleur
End Select


Ci joint codes des couleurs 2003
https://www.cjoint.com/?3JoiG5X74PW

Michel
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
MERCI POUR LE TEMPS PASSE
0