Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copier couleur de cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion pat17
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

pat17

Guest
Bonjour à tous
Est il possible de récupérer la couleur de la cellule J3 dans (FeuilleDeTravail) Afin de mettre à jour la feuille (Salle de conférence)dans le planning lorsque je clique sur le bouton (recherche automatique) et que je récupère le nom de l'utilisateur.
J'espère être assez clair
Merci pour votre aide

Ci joint fichier
Cijoint.fr - Service gratuit de dépôt de fichiers
 
Trier par date Trier par votes
Re : copier couleur de cellule

Bonjour à tous
J'espère que vous avez passé un bon WE.
J'ai essayé de travaillé avec les solutions de odesta et macsscam mais sans résultat.🙁

pour macsscam, j'ai intégré ton code mais la couleur ne change pas en fonction de l'utilisateur.😕

une petite question,je suppose qu'olivier c'est odesta😉

Cijoint.fr - Service gratuit de dépôt de fichiers
 
Vote positif 0 Vote négatif
Re : copier couleur de cellule

Bonjour pat17,

En effet, Odesta a signé Olivier dans son premier message, du coup, je me suis permis de l'appeler par son vrai nom 🙂

Il me semblait que ma solution fonctionnait. Je te joints le fichier dans lequel je l'ai fait fonctionner.
--> lien


N'hésite pas à nous redemander si besoin,
Bon courage,

--
macsscam
 
Vote positif 0 Vote négatif
Re : copier couleur de cellule

merci macsscam ça fonctionne très bien.
Je ne sais pas pourquoi cela ne fonctionnait pas mais j'ai recopié ton code et mis dans mon fichier maintenant c'est bon 😛

Par contre comment faut il faire pour que amplitude de réservation s'arrête au bon endroit. je m'explique si je réserve de 8h à 9h il colorie la case de 8h à 8h30,de 8h30 à 9h00 et de 9h00 à 9h30 il faudrait supprimer la dernière étape, j'ai le même probleme pour réserver 1/2h

Cijoint.fr - Service gratuit de dépôt de fichiers
 
Vote positif 0 Vote négatif
Re : copier couleur de cellule

Rebonjour,

A mon sens, il faut enlever une unité à la colonne de fin lors de la recherche (problématique classique des intervalles), voici ma proposition :

Code: 
Private Sub CmbValider_Click()
' (...)
    
    
    ListBoxVh.Clear
    For compteurFeuille = 1 To Worksheets.Count
        If Worksheets(compteurFeuille).Name <> "FeuilleDeTravail" And Worksheets(compteurFeuille).Name <> "Menu" And Worksheets(compteurFeuille).Name <> "Cadre" And Worksheets(compteurFeuille).Name <> "Jours ouvrés" Then
           With Worksheets(compteurFeuille)
             LigneDeDateDébut = Application.WorksheetFunction _
             .Match(CLng(CDate(ComboDateDébut)), Worksheets(compteurFeuille).Range("A1:A368"), 0)
              ColonneDébut = Application.WorksheetFunction _
             .Match(CDbl(CDate(HeureDeDébut)), Worksheets(compteurFeuille).Range("A3:Y3"), 1)
              LigneDeDatefin = Application.WorksheetFunction _
             .Match(CLng(CDate(ComboDateFin)), Worksheets(compteurFeuille).Range("A1:A368"), 0)
             ColonneFin = Application.WorksheetFunction _
             .Match(CDbl(CDate(HeureDeFin)), Worksheets(compteurFeuille).Range("A3:Y3"), 1) [COLOR="Red"][B]- 1[/B][/COLOR]
            If CDate(ComboDateDébut) = CDate(ComboDateFin) Then
                For compteurDeColonne = ColonneDébut To ColonneFin
                    If .Cells(LigneDeDateDébut, compteurDeColonne).Interior.ColorIndex <> xlNone Then
                        GoTo VhLibre
                    End If
                Next
' (...)
    Next

Ma correction est en rouge (-1), il faut déplacer un peu le curseur pour naviguer dans le code.
A vérifier que cela n'induit pas de régression dans d'autres parties du code 🙂

Bon courage,

--
macsscam
 
Vote positif 0 Vote négatif
Re : copier couleur de cellule

merci macsscam
ca marche super bien sauf si je réserve entre 11h et 12h la il prend à partir de 10h30 pourquoi?

quelle efficacité encore merci😉

Maintenant j'aimerais récupérer le formulaire qui sert à la réservation pour pouvoir supprimer ou modifier une réservation car si la même personne réserve deux plages différentes, lors de la suppression je supprime systématiquement le premier rencontré.

Est ce possible??
Faut il clore cette discussion et en ouvrir une autre?

En tous cas bravo à tous😀
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : copier couleur de cellule

Re,

Un petit message rapide pour te donner quelques pistes que je n'ai pas le temps de creuser là tout de suite :

- Concernant la problématique des 1/2 heures, cela pourrait venir de la conversion en Double Cdbl qui arrondit et donc renvoie l'heure pleine au lieu de la 1/2 heure :
Code: 
ColonneDébut = Application.WorksheetFunction _
.Match(CDbl(CDate(HeureDeDébut)), Worksheets(compteurFeuille).Range("A3:Y3"), 1)

Idées de solutions :
- Améliorer la recherche sans utiliser de CDble (mes premiers tests rapides ne m'ont pas donné beaucoup de pistes ni de solutions... désolé)
- Ne pas utiliser le .Match (qui utilise une formule) mais un .Find (qui correspond plus à du vba, même si c'est peut-être plus lent ?) (cf. un exemple dans mon message précédent sur les utilisateurs ou avec l'enregistreur de macro)


Concernant la réutilisation du code pour la suppression, tu as intérêt :
- à sortir le code qui permet la recherche
Code: 
 ListBoxVh.Clear
For compteurFeuille = 1 To Worksheets.Count
(...)
Next
afin de l'utiliser comme il faut
- à commenter ton code (!), je me répète mais c'est fondamental pour pouvoir s'en sortir (toi comme ceux qui relisent le code) 🙄
- à réaliser l'appel de ta nouvelle fonction pour l'ajout de réservation
- à le tester
- dès que l'existant (re)marche, à ajouter la fonction à la suppression


Je ne sais pas s'il faut créer un nouveau fil de discussion, je laisse les habitués du forum répondre sur ce point,

Bon courage,

--
macsscam
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : copier couleur de cellule

je me demande si le problème de réservation n'est pas lié au format de l'heure
car cela fonctionne très bien de 12h à 18h00 par contre le soucis est avant

à voir 😕
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

W
  • Résolu(e)
XL 2016 Changer la taille, la couleur, la graisse d'une partie du contenu de cellule
Réponses
5
Affichages
392
job75
M
  • Résolu(e)
XL 2021 Copier le texte d’une cellule
Réponses
9
Affichages
657
sylvanu
S
  • Résolu(e)
Autres Problème avec sélection d'une cellule puis glisser
Réponses
2
Affichages
250
SPARKLETOF
S
F
  • Question Question
XL 2016 tableaux xl
Réponses
12
Affichages
452
TooFatBoy
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
469
fenec
P
  • Question Question
Microsoft 365 VBA copier-coller selon conditions
Réponses
4
Affichages
320
vgendron
S
  • Résolu(e)
Microsoft 365 Choisircols et ajout de colonne
Réponses
14
Affichages
569
AtTheOne
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
578
pvander
P
F
  • Résolu(e)
Microsoft 365 Copier juste couleur cellule.
Réponses
7
Affichages
722
Francky79
F
W
  • Question Question
Microsoft 365 Correspondance de mot dans une cellule
Réponses
3
Affichages
290
job75
P
  • Question Question
Autres Finalisation de projet VBA pour planning quotidien
2
Réponses
15
Affichages
956
vgendron
D
  • Question Question
XL 2019 Suppression doublons combinés entre deux cellules associées et présentation sous forme de tableau
Réponses
13
Affichages
873
alexga78
A
J
  • Question Question
Microsoft 365 Création fiche suivi de véhicules
Réponses
9
Affichages
1 K
sylvanu
S
  • Résolu(e)
Microsoft 365 Reporter le contenu d'une plage dans une cellule selon un ordre précis
Réponses
4
Affichages
403
sebastien176
S
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
S
  • Résolu(e)
XL 2010 tableau de cumul automatisé
Réponses
13
Affichages
775
stefiskool
S
M
  • Résolu(e)
XL 2013 Macross supprimant les données de cellule en dehors d'une période définie dans deux autres cellules
Réponses
9
Affichages
807
MarineU
M
J
  • Question Question
Autres implementer une donnée provenant d'un importxml; jours après jours dans une cellule différente
Réponses
0
Affichages
408
Julien.D
J
M
  • Question Question
Autres copier la couleur d'une cellule
Réponses
4
Affichages
807
michel1941
M
O
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellules si une autre cellule est vide
Réponses
9
Affichages
607
Olihoes
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…