× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Comment transférer texte et couleur de cellule ?Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
michel70
  Posté le 09/05/2010 @ 14:49 
Aller en bas de la page 
Petit astucien

Bonjour à tous.

Je suis sur vista familial prémium,et excel 2007.

Je désire ,dans un même classeur,enregistrer ,des données texte,et couleurs de cellules,dans le feuillet A,colonne H5 à H35,et qu'une copie conforme se fasse simultanément feuillet B,colonne I3 à I33.

J'ai essayé plusieurs méthodes,mais je ne réussis que le transfert des données texte,les couleurs ne se transfèrent pas.

Quelqu'un a-t-il une solution ?

Merci de bien vouloir me la communiquer.

A plus.

Michel70

Publicité
metasuz
 Posté le 09/05/2010 à 16:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

As-tu essayé un copie puis collage spécial. Avec collage spécial tu indiques ce que tu veux copier par exemple format et formules{#}

ferrand
 Posté le 09/05/2010 à 17:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Salut,

Peut-être une procédure évènementielle genre :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%, j%
i = Target.Row
j = Target.Column
If i >= 5 And i <= 35 And j = 8 Then
With Worksheets("B").Cells(i - 2, j + 1)
.Value = Target.Value
.Interior.ColorIndex = Target.Interior.ColorIndex
End With
End If
End Sub

A mettre dans le module de la feuille "A". Remplacer "B" par le nom de la feuille cible.

Bonne soirée.

michel70
 Posté le 09/05/2010 à 20:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir metasuz et ferrand

Merci à vous de venir à mon secours.

Le collage spécial,je l'ai essayé de plusieurs façons,sans obtenir satisfaction.

Ta solution,ferrand,est beaucoup plus satisfaisante en ce qui concerne la copie des données texte,mais échoue comme mes précédentes tentatives sur le transfert des couleurs.Les couleurs variant avec le contenu,selon les critères retenus ,choisis dans la mise en forme conditionnelle,ceci explique peut-être celà !

Mais,je suis bien incapable de le dire.

Pour insérer ton code dans le module vba,je vais avoir encore droit aux fenètres d'erreur,car j'y ai déjà un code "private sub worksheet_selection,etc..."et j'ai déjà galéré et échoué sur ce sujet.Il y a bien les aides ,mais elles s'adressent à des gens beaucoup expérimentés que moi !

Encore merci,et,à plus.

Michel70

ferrand
 Posté le 09/05/2010 à 23:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Salut,

Tu aurais dû préciser qu'il s'agissait d'un MFC. Il faut procéder autrement : et mettre les mêmes couleurs...

La procédure ne porte pas sur le même évènement, sous réserve du contenu de l'autre les deux devraient coexister.

A+

michel70
 Posté le 09/05/2010 à 23:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir ferrand

Il se fait tard,je ferai mes essais demain

Encore merci,bonne nuit,et,à plus.

Michel70

Mytå
 Posté le 10/05/2010 à 00:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Salut le forum

Cette fonction retourne la valeur du format actif d'une mise en forme conditionnelle.
Avec la fonction de la démo, deux valeurs peuvent êtres retournées.

  • Mode = 0 : retourne la valeur de Interior.ColorIndex
  • Mode = 1 : retourne la valeur de Interior.Color

Public Function CouleurMFC(RG As Range, Optional Mode As Byte = 0) As Variant
Dim e As Long, i As Byte, LoTest As Boolean
Dim LoMFC As FormatCondition
Application.Volatile
'boucle sur le nombre de condition(s)
'Si pas de MFC .FormatConditions.Count renvoi 0
For i = 1 To RG.FormatConditions.Count
Set LoMFC = RG.FormatConditions(i)
If LoMFC.Type = xlCellValue Then
'tester le type de la formule entrée
Select Case LoMFC.Operator
Case xlEqual
LoTest = RG = Evaluate(LoMFC.Formula1)
Case xlNotEqual
LoTest = RG <> Evaluate(LoMFC.Formula1)
Case xlGreater
LoTest = RG > Evaluate(LoMFC.Formula1)
Case xlGreaterEqual
LoTest = RG >= Evaluate(LoMFC.Formula1)
Case xlLess
LoTest = RG < Evaluate(LoMFC.Formula1)
Case xlLessEqual
LoTest = RG <= Evaluate(LoMFC.Formula1)
Case xlNotBetween
LoTest = (RG < Evaluate(LoMFC.Formula1) Or RG > Evaluate(LoMFC.Formula2))
Case xlBetween
LoTest = (RG >= Evaluate(LoMFC.Formula1)) And (RG <= Evaluate(LoMFC.Formula2))
End Select
If LoTest Then
'Peu ajouter d'autre format si nécessaire,
'comme la bordure, la police etc..
Select Case Mode
Case 0
CouleurMFC = LoMFC.Interior.ColorIndex
Case 1
CouleurMFC = LoMFC.Interior.Color
End Select
Exit Function
End If
End If
Next i
CouleurMFC = 0
End Function

La formule pour l'utiliser est dans le style :

=CouleurMFC(A2)

A te relire

Mytå

michel70
 Posté le 10/05/2010 à 09:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Mytà

Je te remercie pour ton envoi,mais,là,j'aborde un sujet que je ne connais pas du tout,et la mise en application de cette fonction me semble difficile,car mes connaissances et mon expérience sont du niveau très élémentaire.

Néanmoins,c'est très sympa de ta part d'être intervenu(e),encore merci

Peut-être à plus

Michel70

michel70
 Posté le 10/05/2010 à 10:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour ferrand

La mise en service de ton code s'est déroulée sans problème,et le fonctionnement de copie simultanée des données fonctionne très bien.

Pour le transfert des couleurs,il s'est résolu de façon inattendue:

Au lieu de copier la couleur de A à B,c'est la couleur de B qui disparait.

Le but recherché étant le changement de couleur,selon les données enregistrées dans les cellules concernées,cette opération me convient.

Je marque le sujet résolu

Encore merci pour tout

Très cordialement

Michel70

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
599,99 €Portable 14 pouces Asus Vivobook (FullHD, Ryzen 7, 8Go, SSD 256 Go) à 599,99 €
Valable jusqu'au 01 Juin

RueDuCommerce fait une promotion sur le PC portable 14 pouces Asus Vivobook S412DA-EK320T qui passe à 599,99 € alors qu'on le trouve ailleurs à partir de 749 €. Ce portable très bien équipé possède un écran 14 pouces Full HD (1920x1080) mat antireflet, un processeur AMD Ryzen 7 3700U, 8 Go de RAM, un processeur graphique AMD Radeon RX Vega 10 et un SSD de 256 Go. Le WiFi, le bluetooth sont de la partie. Notez que le clavier est rétroéclairé et que le pad peut se transformer en pavé numérique. Le tout tourne sous Windows 10. Une très bonne affaire.


> Voir l'offre
14,99 €Télécommande de présentation sans fil Logitech R400 à 14,99 €
Valable jusqu'au 30 Mai

Amazon fait une promotion sur la télécommande de présentation sans fil Logitech R400 qui passe à 14,99 € alors qu'on la trouve ailleurs autour de 30 €. Les commandes pratiques de la télécommande Logitech Wireless Presenter R400 vous aident à réussir vos présentations. Avec les commandes intuitives et le pointeur laser rouge de la Wireless Presenter R400, les présentations sont un vrai jeu d'enfant, même dans les environnements les plus sombres. Le pointeur laser rouge est facile à voir sur la plupart des surfaces et sa portée peut atteindre 15 mètres, vous permettant ainsi de vous déplacer dans la salle. Aucun logiciel n'est nécessaire, il suffit de brancher le récepteur dans un port USB et le tour est joué !


> Voir l'offre
89,99 €Disque dur externe portable Seagate Expansion 4 To USB 3.0 à 89,99 €
Valable jusqu'au 01 Juin

Boulanger fait une promotion sur le disque dur externe portable Seagate Expansion d'une capacité de 4 To à 89,99 € alors qu'on le trouve ailleurs à partir de 120 €. Ce disque dur externe portable au format 2,5 pouces dispose d'une interface USB 3.0 compatible USB 2.0. Une excellente affaire pour ce disque dur qui offre des débits de 115 Mo/s. Il n'est pas soudé et est donc démontable si vous souhaitez le réutiliser ailleurs (console, NAS, PC).


> Voir l'offre

Sujets relatifs
couleur ce cellule a écraser en insérant du texte
Comment changer la couleur de plusieur cellule
Comment agrandir un texte ?
Word : comment établir dans un texte ses propres marges de & et sous-& ?
Word 2007-Texte centré dans une cellule
Comment supprimer qq-mots dans un texte en PDF ?
Cellule de couleur
Comment verrouiller une cellule Excel 2007
(Macro Excel) Sélectionner cellule en fonction de sa couleur
Changement de couleur texte dans WordArt
Plus de sujets relatifs à Comment transférer texte et couleur de cellule ?
 > Tous les forums > Forum Bureautique