Automatiser le remplissage de cellule dans tableau excel

Fermé

squalbou Messages postés 1 Date d'inscription lundi 13 octobre 2014 Statut Membre Dernière intervention 13 octobre 2014 - 13 oct. 2014 à 19:09
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 15 oct. 2014 à 09:54

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:

Automatiser saisie excel
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Mise en forme conditionnelle excel - Guide

2 réponses

Réponse 1 / 2

écureuyl Messages postés 37 Date d'inscription lundi 31 janvier 2011 Statut Membre Dernière intervention 24 septembre 2016 2
13 oct. 2014 à 19:34

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,

Réponse 2 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 14/10/2014 à 08:29

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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
15 oct. 2014 à 09:54

MERCI POUR LE TEMPS PASSE

Discussions similaires

Je n' arrive pas a activer la saisie vocale

Discussions similaires

Newsletters